FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationSun, 04 Nov 2007 04:50:01 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2007/Nov/04/tmq3pc16utd85gt1194176949.htm/, Retrieved Sun, 05 May 2024 19:33:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=362, Retrieved Sun, 05 May 2024 19:33:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsQ2
Estimated Impact211

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Various EDA topics] [2007-11-04 11:50:01] [ac6f409873aab27747ac7f3d36ded223] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
455	93	354
456	95	357
461	98	357
470	98	357
471	102	358
471	103	363
475	105	363
476	107	364
499	108	371
501	110	373
503	111	376
507	111	378
509	111	379
509	112	380
510	112	380
511	113	384
512	113	392
513	114	392
517	114	392
517	114	394
519	114	396
519	116	396
523	116	406
525	117	410
526	117	416
532	117	418
537	117	418
542	118	418
543	120	419
544	122	420
547	123	421
549	123	423
555	123	424
555	124	424
555	124	426
557	125	427
561	126	427
561	127	428
562	127	430
565	128	431
565	130	434
566	130	438
567	130	441
569	132	442
569	132	443
573	133	444
573	134	449
573	135	452
574	136	453
578	137	455
580	137	455
580	137	456
584	138	456
588	139	459
589	139	460
590	140	461
591	144	461
593	147	461
594	147	462
594	148	462
595	148	462
595	149	463
597	149	463
611	149	465
611	150	465
612	151	467
613	153	468
620	157	471
620	157	471
621	158	472
626	159	472
628	161	476
629	162	476

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=362&T=0

[TABLE]
[ROW][C]Summary of compuational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=362&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=362&T=0

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Summary of Dendrogram
LabelHeight
10
21
31
41
51
61
71
81.27614237491540
91.41421356237310
101.41421356237310
111.41421356237310
121.41421356237310
131.73205080756888
141.76417624662798
152
162
172
182.22884146263373
192.30940107675850
202.44948974278318
212.44948974278318
222.44948974278318
232.44948974278318
242.49071198499986
252.68329601758822
262.82842712474619
273.16227766016838
283.23039065777909
293.46410161513775
303.60555127546399
313.74165738677394
323.79781862047987
334.08248290463863
344.24264068711928
354.32567062355411
364.58257569495584
374.58588530089319
384.98720776526422
395
405.55014425471675
415.83182209022494
426.03779028347897
436.05378292738036
446.392402161603
456.48542118801057
466.68188306615007
476.85799520682882
487.50883854744284
498.21781564453272
509.50557944938164
519.51970877634788
5210.8015658965408
5311.7138103363560
5412.6029709416091
5514.9564115767679
5621.3607511617166
5721.7817773368460
5822.117127461389
5929.7467398794082
6030.0095881956608
6133.8648207215892
6249.8794879667035
6359.8634808259639
6462.018245934717
6565.455502577751
6696.2546852384475
67161.442528057820
68190.750703187039
69411.083883771161
70413.8196809113
71977.59127017626
722307.621143085

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0 \tabularnewline
2 & 1 \tabularnewline
3 & 1 \tabularnewline
4 & 1 \tabularnewline
5 & 1 \tabularnewline
6 & 1 \tabularnewline
7 & 1 \tabularnewline
8 & 1.27614237491540 \tabularnewline
9 & 1.41421356237310 \tabularnewline
10 & 1.41421356237310 \tabularnewline
11 & 1.41421356237310 \tabularnewline
12 & 1.41421356237310 \tabularnewline
13 & 1.73205080756888 \tabularnewline
14 & 1.76417624662798 \tabularnewline
15 & 2 \tabularnewline
16 & 2 \tabularnewline
17 & 2 \tabularnewline
18 & 2.22884146263373 \tabularnewline
19 & 2.30940107675850 \tabularnewline
20 & 2.44948974278318 \tabularnewline
21 & 2.44948974278318 \tabularnewline
22 & 2.44948974278318 \tabularnewline
23 & 2.44948974278318 \tabularnewline
24 & 2.49071198499986 \tabularnewline
25 & 2.68329601758822 \tabularnewline
26 & 2.82842712474619 \tabularnewline
27 & 3.16227766016838 \tabularnewline
28 & 3.23039065777909 \tabularnewline
29 & 3.46410161513775 \tabularnewline
30 & 3.60555127546399 \tabularnewline
31 & 3.74165738677394 \tabularnewline
32 & 3.79781862047987 \tabularnewline
33 & 4.08248290463863 \tabularnewline
34 & 4.24264068711928 \tabularnewline
35 & 4.32567062355411 \tabularnewline
36 & 4.58257569495584 \tabularnewline
37 & 4.58588530089319 \tabularnewline
38 & 4.98720776526422 \tabularnewline
39 & 5 \tabularnewline
40 & 5.55014425471675 \tabularnewline
41 & 5.83182209022494 \tabularnewline
42 & 6.03779028347897 \tabularnewline
43 & 6.05378292738036 \tabularnewline
44 & 6.392402161603 \tabularnewline
45 & 6.48542118801057 \tabularnewline
46 & 6.68188306615007 \tabularnewline
47 & 6.85799520682882 \tabularnewline
48 & 7.50883854744284 \tabularnewline
49 & 8.21781564453272 \tabularnewline
50 & 9.50557944938164 \tabularnewline
51 & 9.51970877634788 \tabularnewline
52 & 10.8015658965408 \tabularnewline
53 & 11.7138103363560 \tabularnewline
54 & 12.6029709416091 \tabularnewline
55 & 14.9564115767679 \tabularnewline
56 & 21.3607511617166 \tabularnewline
57 & 21.7817773368460 \tabularnewline
58 & 22.117127461389 \tabularnewline
59 & 29.7467398794082 \tabularnewline
60 & 30.0095881956608 \tabularnewline
61 & 33.8648207215892 \tabularnewline
62 & 49.8794879667035 \tabularnewline
63 & 59.8634808259639 \tabularnewline
64 & 62.018245934717 \tabularnewline
65 & 65.455502577751 \tabularnewline
66 & 96.2546852384475 \tabularnewline
67 & 161.442528057820 \tabularnewline
68 & 190.750703187039 \tabularnewline
69 & 411.083883771161 \tabularnewline
70 & 413.8196809113 \tabularnewline
71 & 977.59127017626 \tabularnewline
72 & 2307.621143085 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=362&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]1[/C][/ROW]
[ROW][C]3[/C][C]1[/C][/ROW]
[ROW][C]4[/C][C]1[/C][/ROW]
[ROW][C]5[/C][C]1[/C][/ROW]
[ROW][C]6[/C][C]1[/C][/ROW]
[ROW][C]7[/C][C]1[/C][/ROW]
[ROW][C]8[/C][C]1.27614237491540[/C][/ROW]
[ROW][C]9[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]10[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]11[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]12[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]13[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]14[/C][C]1.76417624662798[/C][/ROW]
[ROW][C]15[/C][C]2[/C][/ROW]
[ROW][C]16[/C][C]2[/C][/ROW]
[ROW][C]17[/C][C]2[/C][/ROW]
[ROW][C]18[/C][C]2.22884146263373[/C][/ROW]
[ROW][C]19[/C][C]2.30940107675850[/C][/ROW]
[ROW][C]20[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]21[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]22[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]23[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]24[/C][C]2.49071198499986[/C][/ROW]
[ROW][C]25[/C][C]2.68329601758822[/C][/ROW]
[ROW][C]26[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]27[/C][C]3.16227766016838[/C][/ROW]
[ROW][C]28[/C][C]3.23039065777909[/C][/ROW]
[ROW][C]29[/C][C]3.46410161513775[/C][/ROW]
[ROW][C]30[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]31[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]32[/C][C]3.79781862047987[/C][/ROW]
[ROW][C]33[/C][C]4.08248290463863[/C][/ROW]
[ROW][C]34[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]35[/C][C]4.32567062355411[/C][/ROW]
[ROW][C]36[/C][C]4.58257569495584[/C][/ROW]
[ROW][C]37[/C][C]4.58588530089319[/C][/ROW]
[ROW][C]38[/C][C]4.98720776526422[/C][/ROW]
[ROW][C]39[/C][C]5[/C][/ROW]
[ROW][C]40[/C][C]5.55014425471675[/C][/ROW]
[ROW][C]41[/C][C]5.83182209022494[/C][/ROW]
[ROW][C]42[/C][C]6.03779028347897[/C][/ROW]
[ROW][C]43[/C][C]6.05378292738036[/C][/ROW]
[ROW][C]44[/C][C]6.392402161603[/C][/ROW]
[ROW][C]45[/C][C]6.48542118801057[/C][/ROW]
[ROW][C]46[/C][C]6.68188306615007[/C][/ROW]
[ROW][C]47[/C][C]6.85799520682882[/C][/ROW]
[ROW][C]48[/C][C]7.50883854744284[/C][/ROW]
[ROW][C]49[/C][C]8.21781564453272[/C][/ROW]
[ROW][C]50[/C][C]9.50557944938164[/C][/ROW]
[ROW][C]51[/C][C]9.51970877634788[/C][/ROW]
[ROW][C]52[/C][C]10.8015658965408[/C][/ROW]
[ROW][C]53[/C][C]11.7138103363560[/C][/ROW]
[ROW][C]54[/C][C]12.6029709416091[/C][/ROW]
[ROW][C]55[/C][C]14.9564115767679[/C][/ROW]
[ROW][C]56[/C][C]21.3607511617166[/C][/ROW]
[ROW][C]57[/C][C]21.7817773368460[/C][/ROW]
[ROW][C]58[/C][C]22.117127461389[/C][/ROW]
[ROW][C]59[/C][C]29.7467398794082[/C][/ROW]
[ROW][C]60[/C][C]30.0095881956608[/C][/ROW]
[ROW][C]61[/C][C]33.8648207215892[/C][/ROW]
[ROW][C]62[/C][C]49.8794879667035[/C][/ROW]
[ROW][C]63[/C][C]59.8634808259639[/C][/ROW]
[ROW][C]64[/C][C]62.018245934717[/C][/ROW]
[ROW][C]65[/C][C]65.455502577751[/C][/ROW]
[ROW][C]66[/C][C]96.2546852384475[/C][/ROW]
[ROW][C]67[/C][C]161.442528057820[/C][/ROW]
[ROW][C]68[/C][C]190.750703187039[/C][/ROW]
[ROW][C]69[/C][C]411.083883771161[/C][/ROW]
[ROW][C]70[/C][C]413.8196809113[/C][/ROW]
[ROW][C]71[/C][C]977.59127017626[/C][/ROW]
[ROW][C]72[/C][C]2307.621143085[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=362&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=362&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Summary of Dendrogram
LabelHeight
10
21
31
41
51
61
71
81.27614237491540
91.41421356237310
101.41421356237310
111.41421356237310
121.41421356237310
131.73205080756888
141.76417624662798
152
162
172
182.22884146263373
192.30940107675850
202.44948974278318
212.44948974278318
222.44948974278318
232.44948974278318
242.49071198499986
252.68329601758822
262.82842712474619
273.16227766016838
283.23039065777909
293.46410161513775
303.60555127546399
313.74165738677394
323.79781862047987
334.08248290463863
344.24264068711928
354.32567062355411
364.58257569495584
374.58588530089319
384.98720776526422
395
405.55014425471675
415.83182209022494
426.03779028347897
436.05378292738036
446.392402161603
456.48542118801057
466.68188306615007
476.85799520682882
487.50883854744284
498.21781564453272
509.50557944938164
519.51970877634788
5210.8015658965408
5311.7138103363560
5412.6029709416091
5514.9564115767679
5621.3607511617166
5721.7817773368460
5822.117127461389
5929.7467398794082
6030.0095881956608
6133.8648207215892
6249.8794879667035
6359.8634808259639
6462.018245934717
6565.455502577751
6696.2546852384475
67161.442528057820
68190.750703187039
69411.083883771161
70413.8196809113
71977.59127017626
722307.621143085


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ;
Parameters (R input):
par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ;
R code (references can be found in the software module):
par3 <- as.logical(par3)
par4 <- as.logical(par4)
if (par3 == 'TRUE'){
dum = xlab
xlab = ylab
ylab = dum
}
x <- t(y)
hc <- hclust(dist(x),method=par1)
d <- as.dendrogram(hc)
str(d)
mysub <- paste('Method: ',par1)
bitmap(file='test1.png')
if (par4 == 'TRUE'){
plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub)
} else {
plot(d,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub)
}
dev.off()
if (par2 != 'ALL'){
if (par3 == 'TRUE'){
ylab = 'cluster'
} else {
xlab = 'cluster'
}
par2 <- as.numeric(par2)
memb <- cutree(hc, k = par2)
cent <- NULL
for(k in 1:par2){
cent <- rbind(cent, colMeans(x[memb == k, , drop = FALSE]))
}
hc1 <- hclust(dist(cent),method=par1, members = table(memb))
de <- as.dendrogram(hc1)
bitmap(file='test2.png')
if (par4 == 'TRUE'){
plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8),type='t',center=T, sub=mysub)
} else {
plot(de,main=main,ylab=ylab,xlab=xlab,horiz=par3, nodePar=list(pch = c(1,NA), cex=0.8, lab.cex = 0.8), sub=mysub)
}
dev.off()
str(de)
}
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary of Dendrogram',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Label',header=TRUE)
a<-table.element(a,'Height',header=TRUE)
a<-table.row.end(a)
num <- length(x[,1])-1
for (i in 1:num)
{
a<-table.row.start(a)
a<-table.element(a,hc$labels[i])
a<-table.element(a,hc$height[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')
if (par2 != 'ALL'){
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary of Cut Dendrogram',2,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Label',header=TRUE)
a<-table.element(a,'Height',header=TRUE)
a<-table.row.end(a)
num <- par2-1
for (i in 1:num)
{
a<-table.row.start(a)
a<-table.element(a,i)
a<-table.element(a,hc1$height[i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable2.tab')
}