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 computationTue, 11 Nov 2008 13:17:55 -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/2008/Nov/11/t1226434925lnv9zq71qqhexp2.htm/, Retrieved Sun, 19 May 2024 10:51:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23929, Retrieved Sun, 19 May 2024 10:51:47 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [] [2008-11-11 20:17:55] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
98.1	98.6
101.1	98
111.1	106.8
93.3	96.7
100	100.2
108	107.7
70.4	92
75.4	98.4
105.5	107.4
112.3	117.7
102.5	105.7
93.5	97.5
86.7	99.9
95.2	98.2
103.8	104.5
97	100.8
95.5	101.5
101	103.9
67.5	99.6
64	98.4
106.7	112.7
100.6	118.4
101.2	108.1
93.1	105.4
84.2	114.6
85.8	106.9
91.8	115.9
92.4	109.8
80.3	101.8
79.7	114.2
62.5	110.8
57.1	108.4
100.8	127.5
100.7	128.6
86.2	116.6
83.2	127.4
71.7	105
77.5	108.3
89.8	125
80.3	111.6
78.7	106.5
93.8	130.3
57.6	115
60.6	116.1
91	134
85.3	126.5
77.4	125.8
77.3	136.4
68.3	114.9
69.9	110.9
81.7	125.5
75.1	116.8
69.9	116.8
84	125.5
54.3	104.2
60	115.1
89.9	132.8
77	123.3
85.3	124.8
77.6	122
69.2	117.4
75.5	117.9
85.7	137.4
72.2	114.6
79.9	124.7
85.3	129.6
52.2	109.4
61.2	120.9
82.4	134.9
85.4	136.3
78.2	133.2
70.2	127.2
70.2	122.7
69.3	120.5
77.5	137.8
66.1	119.1
69	124.3
79.2	134.4
56.2	121.1
63.3	122.2
77.8	127.7
92	137.4
78.1	132.2
65.1	129.2
71.1	124.9

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23929&T=0

[TABLE]
[ROW][C]Summary of computational 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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23929&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23929&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 computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
10.82462112512353
20.921954445729296
31.00498756211209
41.10453610171872
51.14017542509913
61.16619037896906
71.17046999107197
81.4142135623731
91.43178210632763
101.47648230602334
111.62788205960996
121.65529453572469
131.73458719578267
141.76918060129541
151.94164878389476
161.96977156035922
172.00000000000000
182.16333076527839
192.34615395291672
202.37400388772340
212.45967477524977
222.46981780704569
232.51793566240283
242.56460717060354
252.66833281282527
262.82842712474619
272.87568186013709
282.8813658765197
293.0413812651491
303.12002486528499
313.34286420142828
323.4928498393146
333.70000000000000
343.96064341423952
354.35660418215838
364.45533388198908
374.52483772222214
384.58703311186446
394.84658438878933
405.00099990001999
415.06739052216257
425.19116450095807
435.43686786184238
445.63501072255688
455.96405902049937
466.39038585731383
476.59381489130811
487.05761999543756
497.08387594524669
507.13933410483038
517.14997625373978
527.3025303176202
537.4016805900942
547.58885977071102
557.65924438634794
567.95983298127758
578.50021693152008
589.28683891342324
599.8043682780299
6010.2236408345506
6111.2167210440661
6211.5054230199636
6311.7209214654821
6412.7344250300822
6513.5225706199227
6614.4358872001098
6716.4716310662616
6816.6049963828214
6917.8695730943227
7018.7520495770721
7126.6897761887862
7228.5773569819621
7329.7434794530085
7432.1626239138844
7536.6587999790875
7641.9831924484983
7757.5835498566356
7862.971859867484
7977.0964785677452
8082.716741676011
8189.7331766015637
82203.650845020251
83340.920650788671
84509.721820395504

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.82462112512353 \tabularnewline
2 & 0.921954445729296 \tabularnewline
3 & 1.00498756211209 \tabularnewline
4 & 1.10453610171872 \tabularnewline
5 & 1.14017542509913 \tabularnewline
6 & 1.16619037896906 \tabularnewline
7 & 1.17046999107197 \tabularnewline
8 & 1.4142135623731 \tabularnewline
9 & 1.43178210632763 \tabularnewline
10 & 1.47648230602334 \tabularnewline
11 & 1.62788205960996 \tabularnewline
12 & 1.65529453572469 \tabularnewline
13 & 1.73458719578267 \tabularnewline
14 & 1.76918060129541 \tabularnewline
15 & 1.94164878389476 \tabularnewline
16 & 1.96977156035922 \tabularnewline
17 & 2.00000000000000 \tabularnewline
18 & 2.16333076527839 \tabularnewline
19 & 2.34615395291672 \tabularnewline
20 & 2.37400388772340 \tabularnewline
21 & 2.45967477524977 \tabularnewline
22 & 2.46981780704569 \tabularnewline
23 & 2.51793566240283 \tabularnewline
24 & 2.56460717060354 \tabularnewline
25 & 2.66833281282527 \tabularnewline
26 & 2.82842712474619 \tabularnewline
27 & 2.87568186013709 \tabularnewline
28 & 2.8813658765197 \tabularnewline
29 & 3.0413812651491 \tabularnewline
30 & 3.12002486528499 \tabularnewline
31 & 3.34286420142828 \tabularnewline
32 & 3.4928498393146 \tabularnewline
33 & 3.70000000000000 \tabularnewline
34 & 3.96064341423952 \tabularnewline
35 & 4.35660418215838 \tabularnewline
36 & 4.45533388198908 \tabularnewline
37 & 4.52483772222214 \tabularnewline
38 & 4.58703311186446 \tabularnewline
39 & 4.84658438878933 \tabularnewline
40 & 5.00099990001999 \tabularnewline
41 & 5.06739052216257 \tabularnewline
42 & 5.19116450095807 \tabularnewline
43 & 5.43686786184238 \tabularnewline
44 & 5.63501072255688 \tabularnewline
45 & 5.96405902049937 \tabularnewline
46 & 6.39038585731383 \tabularnewline
47 & 6.59381489130811 \tabularnewline
48 & 7.05761999543756 \tabularnewline
49 & 7.08387594524669 \tabularnewline
50 & 7.13933410483038 \tabularnewline
51 & 7.14997625373978 \tabularnewline
52 & 7.3025303176202 \tabularnewline
53 & 7.4016805900942 \tabularnewline
54 & 7.58885977071102 \tabularnewline
55 & 7.65924438634794 \tabularnewline
56 & 7.95983298127758 \tabularnewline
57 & 8.50021693152008 \tabularnewline
58 & 9.28683891342324 \tabularnewline
59 & 9.8043682780299 \tabularnewline
60 & 10.2236408345506 \tabularnewline
61 & 11.2167210440661 \tabularnewline
62 & 11.5054230199636 \tabularnewline
63 & 11.7209214654821 \tabularnewline
64 & 12.7344250300822 \tabularnewline
65 & 13.5225706199227 \tabularnewline
66 & 14.4358872001098 \tabularnewline
67 & 16.4716310662616 \tabularnewline
68 & 16.6049963828214 \tabularnewline
69 & 17.8695730943227 \tabularnewline
70 & 18.7520495770721 \tabularnewline
71 & 26.6897761887862 \tabularnewline
72 & 28.5773569819621 \tabularnewline
73 & 29.7434794530085 \tabularnewline
74 & 32.1626239138844 \tabularnewline
75 & 36.6587999790875 \tabularnewline
76 & 41.9831924484983 \tabularnewline
77 & 57.5835498566356 \tabularnewline
78 & 62.971859867484 \tabularnewline
79 & 77.0964785677452 \tabularnewline
80 & 82.716741676011 \tabularnewline
81 & 89.7331766015637 \tabularnewline
82 & 203.650845020251 \tabularnewline
83 & 340.920650788671 \tabularnewline
84 & 509.721820395504 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23929&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.82462112512353[/C][/ROW]
[ROW][C]2[/C][C]0.921954445729296[/C][/ROW]
[ROW][C]3[/C][C]1.00498756211209[/C][/ROW]
[ROW][C]4[/C][C]1.10453610171872[/C][/ROW]
[ROW][C]5[/C][C]1.14017542509913[/C][/ROW]
[ROW][C]6[/C][C]1.16619037896906[/C][/ROW]
[ROW][C]7[/C][C]1.17046999107197[/C][/ROW]
[ROW][C]8[/C][C]1.4142135623731[/C][/ROW]
[ROW][C]9[/C][C]1.43178210632763[/C][/ROW]
[ROW][C]10[/C][C]1.47648230602334[/C][/ROW]
[ROW][C]11[/C][C]1.62788205960996[/C][/ROW]
[ROW][C]12[/C][C]1.65529453572469[/C][/ROW]
[ROW][C]13[/C][C]1.73458719578267[/C][/ROW]
[ROW][C]14[/C][C]1.76918060129541[/C][/ROW]
[ROW][C]15[/C][C]1.94164878389476[/C][/ROW]
[ROW][C]16[/C][C]1.96977156035922[/C][/ROW]
[ROW][C]17[/C][C]2.00000000000000[/C][/ROW]
[ROW][C]18[/C][C]2.16333076527839[/C][/ROW]
[ROW][C]19[/C][C]2.34615395291672[/C][/ROW]
[ROW][C]20[/C][C]2.37400388772340[/C][/ROW]
[ROW][C]21[/C][C]2.45967477524977[/C][/ROW]
[ROW][C]22[/C][C]2.46981780704569[/C][/ROW]
[ROW][C]23[/C][C]2.51793566240283[/C][/ROW]
[ROW][C]24[/C][C]2.56460717060354[/C][/ROW]
[ROW][C]25[/C][C]2.66833281282527[/C][/ROW]
[ROW][C]26[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]27[/C][C]2.87568186013709[/C][/ROW]
[ROW][C]28[/C][C]2.8813658765197[/C][/ROW]
[ROW][C]29[/C][C]3.0413812651491[/C][/ROW]
[ROW][C]30[/C][C]3.12002486528499[/C][/ROW]
[ROW][C]31[/C][C]3.34286420142828[/C][/ROW]
[ROW][C]32[/C][C]3.4928498393146[/C][/ROW]
[ROW][C]33[/C][C]3.70000000000000[/C][/ROW]
[ROW][C]34[/C][C]3.96064341423952[/C][/ROW]
[ROW][C]35[/C][C]4.35660418215838[/C][/ROW]
[ROW][C]36[/C][C]4.45533388198908[/C][/ROW]
[ROW][C]37[/C][C]4.52483772222214[/C][/ROW]
[ROW][C]38[/C][C]4.58703311186446[/C][/ROW]
[ROW][C]39[/C][C]4.84658438878933[/C][/ROW]
[ROW][C]40[/C][C]5.00099990001999[/C][/ROW]
[ROW][C]41[/C][C]5.06739052216257[/C][/ROW]
[ROW][C]42[/C][C]5.19116450095807[/C][/ROW]
[ROW][C]43[/C][C]5.43686786184238[/C][/ROW]
[ROW][C]44[/C][C]5.63501072255688[/C][/ROW]
[ROW][C]45[/C][C]5.96405902049937[/C][/ROW]
[ROW][C]46[/C][C]6.39038585731383[/C][/ROW]
[ROW][C]47[/C][C]6.59381489130811[/C][/ROW]
[ROW][C]48[/C][C]7.05761999543756[/C][/ROW]
[ROW][C]49[/C][C]7.08387594524669[/C][/ROW]
[ROW][C]50[/C][C]7.13933410483038[/C][/ROW]
[ROW][C]51[/C][C]7.14997625373978[/C][/ROW]
[ROW][C]52[/C][C]7.3025303176202[/C][/ROW]
[ROW][C]53[/C][C]7.4016805900942[/C][/ROW]
[ROW][C]54[/C][C]7.58885977071102[/C][/ROW]
[ROW][C]55[/C][C]7.65924438634794[/C][/ROW]
[ROW][C]56[/C][C]7.95983298127758[/C][/ROW]
[ROW][C]57[/C][C]8.50021693152008[/C][/ROW]
[ROW][C]58[/C][C]9.28683891342324[/C][/ROW]
[ROW][C]59[/C][C]9.8043682780299[/C][/ROW]
[ROW][C]60[/C][C]10.2236408345506[/C][/ROW]
[ROW][C]61[/C][C]11.2167210440661[/C][/ROW]
[ROW][C]62[/C][C]11.5054230199636[/C][/ROW]
[ROW][C]63[/C][C]11.7209214654821[/C][/ROW]
[ROW][C]64[/C][C]12.7344250300822[/C][/ROW]
[ROW][C]65[/C][C]13.5225706199227[/C][/ROW]
[ROW][C]66[/C][C]14.4358872001098[/C][/ROW]
[ROW][C]67[/C][C]16.4716310662616[/C][/ROW]
[ROW][C]68[/C][C]16.6049963828214[/C][/ROW]
[ROW][C]69[/C][C]17.8695730943227[/C][/ROW]
[ROW][C]70[/C][C]18.7520495770721[/C][/ROW]
[ROW][C]71[/C][C]26.6897761887862[/C][/ROW]
[ROW][C]72[/C][C]28.5773569819621[/C][/ROW]
[ROW][C]73[/C][C]29.7434794530085[/C][/ROW]
[ROW][C]74[/C][C]32.1626239138844[/C][/ROW]
[ROW][C]75[/C][C]36.6587999790875[/C][/ROW]
[ROW][C]76[/C][C]41.9831924484983[/C][/ROW]
[ROW][C]77[/C][C]57.5835498566356[/C][/ROW]
[ROW][C]78[/C][C]62.971859867484[/C][/ROW]
[ROW][C]79[/C][C]77.0964785677452[/C][/ROW]
[ROW][C]80[/C][C]82.716741676011[/C][/ROW]
[ROW][C]81[/C][C]89.7331766015637[/C][/ROW]
[ROW][C]82[/C][C]203.650845020251[/C][/ROW]
[ROW][C]83[/C][C]340.920650788671[/C][/ROW]
[ROW][C]84[/C][C]509.721820395504[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23929&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23929&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.82462112512353
20.921954445729296
31.00498756211209
41.10453610171872
51.14017542509913
61.16619037896906
71.17046999107197
81.4142135623731
91.43178210632763
101.47648230602334
111.62788205960996
121.65529453572469
131.73458719578267
141.76918060129541
151.94164878389476
161.96977156035922
172.00000000000000
182.16333076527839
192.34615395291672
202.37400388772340
212.45967477524977
222.46981780704569
232.51793566240283
242.56460717060354
252.66833281282527
262.82842712474619
272.87568186013709
282.8813658765197
293.0413812651491
303.12002486528499
313.34286420142828
323.4928498393146
333.70000000000000
343.96064341423952
354.35660418215838
364.45533388198908
374.52483772222214
384.58703311186446
394.84658438878933
405.00099990001999
415.06739052216257
425.19116450095807
435.43686786184238
445.63501072255688
455.96405902049937
466.39038585731383
476.59381489130811
487.05761999543756
497.08387594524669
507.13933410483038
517.14997625373978
527.3025303176202
537.4016805900942
547.58885977071102
557.65924438634794
567.95983298127758
578.50021693152008
589.28683891342324
599.8043682780299
6010.2236408345506
6111.2167210440661
6211.5054230199636
6311.7209214654821
6412.7344250300822
6513.5225706199227
6614.4358872001098
6716.4716310662616
6816.6049963828214
6917.8695730943227
7018.7520495770721
7126.6897761887862
7228.5773569819621
7329.7434794530085
7432.1626239138844
7536.6587999790875
7641.9831924484983
7757.5835498566356
7862.971859867484
7977.0964785677452
8082.716741676011
8189.7331766015637
82203.650845020251
83340.920650788671
84509.721820395504


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')
}