Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationSun, 18 Nov 2007 10:48:33 -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/18/t11954077067nb6hgx4xn9sd1n.htm/, Retrieved Sun, 05 May 2024 06:14:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=5612, Retrieved Sun, 05 May 2024 06:14:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsWS4
Estimated Impact180
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [WS4] [2007-11-18 17:48:33] [443d2fe869025e720a9fee03b1da487c] [Current]
Feedback Forum

Post a new message
Dataseries X:
97,3	93,5	104,8	124,9
101	94,7	105,6	132
113,2	112,9	118,3	151,4
101	99,2	89,9	108,9
105,7	105,6	90,2	121,3
113,9	113	107	123,4
86,4	83,1	64,5	90,3
96,5	81,1	92,6	79,3
103,3	96,9	95,8	117,2
114,9	104,3	94,3	116,9
105,8	97,7	91,2	120,8
94,2	102,6	86,3	96,1
98,4	89,9	77,6	100,8
99,4	96	82,5	105,3
108,8	112,7	97,7	116,1
112,6	107,1	83,3	112,8
104,4	106,2	84,2	114,5
112,2	121	92,8	117,2
81,1	101,2	77,4	77,1
97,1	83,2	72,5	80,1
112,6	105,1	88,8	120,3
113,8	113,3	93,4	133,4
107,8	99,1	92,6	109,4
103,2	100,3	90,7	93,2
103,3	93,5	81,6	91,2
101,2	98,8	84,1	99,2
107,7	106,2	88,1	108,2
110,4	98,3	85,3	101,5
101,9	102,1	82,9	106,9
115,9	117,1	84,8	104,4
89,9	101,5	71,2	77,9
88,6	80,5	68,9	60
117,2	105,9	94,3	99,5
123,9	109,5	97,6	95
100	97,2	85,6	105,6
103,6	114,5	91,9	102,5
94,1	93,5	75,8	93,3
98,7	100,9	79,8	97,3
119,5	121,1	99	127
112,7	116,5	88,5	111,7
104,4	109,3	86,7	96,4
124,7	118,1	97,9	133
89,1	108,3	94,3	72,2
97	105,4	72,9	95,8
121,6	116,2	91,8	124,1
118,8	111,2	93,2	127,6
114	105,8	86,5	110,7
111,5	122,7	98,9	104,6
97,2	99,5	77,2	112,7
102,5	107,9	79,4	115,3
113,4	124,6	90,4	139,4
109,8	115	81,4	119
104,9	110,3	85,8	97,4
126,1	132,7	103,6	154
80	99,7	73,6	81,5
96,8	96,5	75,7	88,8
117,2	118,7	99,2	127,7
112,3	112,9	88,7	105,1
117,3	130,5	94,6	114,9
111,1	137,9	98,7	106,4
102,2	115	84,2	104,5
104,3	116,8	87,7	121,6
122,9	140,9	103,3	141,4
107,6	120,7	88,2	99
121,3	134,2	93,4	126,7
131,5	147,3	106,3	134,1
89	112,4	73,1	81,3
104,4	107,1	78,6	88,6
128,9	128,4	101,6	132,7
135,9	137,7	101,4	132,9
133,3	135	98,5	134,4
121,3	151	99	103,7
120,5	137,4	89,5	119,7
120,4	132,4	83,5	115
137,9	161,3	97,4	132,9
126,1	139,8	87,8	108,5
133,2	146	90,4	113,9
146,6	154,6	97,1	142,9
103,4	142,1	79,4	95,2
117,2	120,5	85	93




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

\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 & 5 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=5612&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]5 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=5612&T=0

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

As an alternative you can also use a 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 time5 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Summary of Dendrogram
LabelHeight
11.74928556845359
23.39116499156263
33.40293990543470
44.27784992724149
54.97091540865462
65.49363267792815
75.72363520850168
86.04565960007674
96.10409698481275
106.40390505863414
116.8044103344816
126.85930025585701
136.90941386804988
147.33416661932355
157.43319846155543
168.09320702811933
178.13510909576509
188.32105762508589
198.66544863235598
208.7630497874952
218.94091717890284
229.42578354323287
239.43345111822815
249.82805309654202
2510.2042522365039
2610.7678490217154
2711.1700492389246
2811.3966693593580
2911.5351636312625
3011.6099095603713
3111.6807534003591
3211.7865146265502
3311.8949761916029
3411.9155360769040
3512.9553707875648
3613.3120246394003
3713.5177973168608
3813.6214062055956
3913.8097786560340
4014.1859814878576
4114.8549654997916
4215.3127397940408
4316.0791162019351
4416.2467087644982
4516.8089262000879
4616.8595005301798
4717.2893137747923
4817.5789998366768
4917.6310491608526
5017.7170188755694
5119.1484982910573
5219.7596056456984
5320.1407846457694
5421.0693710903141
5522.5353007088034
5623.0426162567524
5724.0234929671519
5824.7491472432982
5927.3135133835557
6029.1187224994504
6129.7897975817926
6230.9971243154015
6332.8690667823914
6436.9603570100131
6537.3291717584563
6641.2990155745250
6743.4852052433074
6844.4934922810275
6945.0920376663262
7050.7837484460942
7151.7501093701212
7258.7321871936795
7377.8147335127634
74104.538627527516
75162.360760542454
76162.781915585912
77187.208652756772
78372.134485777678
79702.679652878129

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.74928556845359 \tabularnewline
2 & 3.39116499156263 \tabularnewline
3 & 3.40293990543470 \tabularnewline
4 & 4.27784992724149 \tabularnewline
5 & 4.97091540865462 \tabularnewline
6 & 5.49363267792815 \tabularnewline
7 & 5.72363520850168 \tabularnewline
8 & 6.04565960007674 \tabularnewline
9 & 6.10409698481275 \tabularnewline
10 & 6.40390505863414 \tabularnewline
11 & 6.8044103344816 \tabularnewline
12 & 6.85930025585701 \tabularnewline
13 & 6.90941386804988 \tabularnewline
14 & 7.33416661932355 \tabularnewline
15 & 7.43319846155543 \tabularnewline
16 & 8.09320702811933 \tabularnewline
17 & 8.13510909576509 \tabularnewline
18 & 8.32105762508589 \tabularnewline
19 & 8.66544863235598 \tabularnewline
20 & 8.7630497874952 \tabularnewline
21 & 8.94091717890284 \tabularnewline
22 & 9.42578354323287 \tabularnewline
23 & 9.43345111822815 \tabularnewline
24 & 9.82805309654202 \tabularnewline
25 & 10.2042522365039 \tabularnewline
26 & 10.7678490217154 \tabularnewline
27 & 11.1700492389246 \tabularnewline
28 & 11.3966693593580 \tabularnewline
29 & 11.5351636312625 \tabularnewline
30 & 11.6099095603713 \tabularnewline
31 & 11.6807534003591 \tabularnewline
32 & 11.7865146265502 \tabularnewline
33 & 11.8949761916029 \tabularnewline
34 & 11.9155360769040 \tabularnewline
35 & 12.9553707875648 \tabularnewline
36 & 13.3120246394003 \tabularnewline
37 & 13.5177973168608 \tabularnewline
38 & 13.6214062055956 \tabularnewline
39 & 13.8097786560340 \tabularnewline
40 & 14.1859814878576 \tabularnewline
41 & 14.8549654997916 \tabularnewline
42 & 15.3127397940408 \tabularnewline
43 & 16.0791162019351 \tabularnewline
44 & 16.2467087644982 \tabularnewline
45 & 16.8089262000879 \tabularnewline
46 & 16.8595005301798 \tabularnewline
47 & 17.2893137747923 \tabularnewline
48 & 17.5789998366768 \tabularnewline
49 & 17.6310491608526 \tabularnewline
50 & 17.7170188755694 \tabularnewline
51 & 19.1484982910573 \tabularnewline
52 & 19.7596056456984 \tabularnewline
53 & 20.1407846457694 \tabularnewline
54 & 21.0693710903141 \tabularnewline
55 & 22.5353007088034 \tabularnewline
56 & 23.0426162567524 \tabularnewline
57 & 24.0234929671519 \tabularnewline
58 & 24.7491472432982 \tabularnewline
59 & 27.3135133835557 \tabularnewline
60 & 29.1187224994504 \tabularnewline
61 & 29.7897975817926 \tabularnewline
62 & 30.9971243154015 \tabularnewline
63 & 32.8690667823914 \tabularnewline
64 & 36.9603570100131 \tabularnewline
65 & 37.3291717584563 \tabularnewline
66 & 41.2990155745250 \tabularnewline
67 & 43.4852052433074 \tabularnewline
68 & 44.4934922810275 \tabularnewline
69 & 45.0920376663262 \tabularnewline
70 & 50.7837484460942 \tabularnewline
71 & 51.7501093701212 \tabularnewline
72 & 58.7321871936795 \tabularnewline
73 & 77.8147335127634 \tabularnewline
74 & 104.538627527516 \tabularnewline
75 & 162.360760542454 \tabularnewline
76 & 162.781915585912 \tabularnewline
77 & 187.208652756772 \tabularnewline
78 & 372.134485777678 \tabularnewline
79 & 702.679652878129 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=5612&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.74928556845359[/C][/ROW]
[ROW][C]2[/C][C]3.39116499156263[/C][/ROW]
[ROW][C]3[/C][C]3.40293990543470[/C][/ROW]
[ROW][C]4[/C][C]4.27784992724149[/C][/ROW]
[ROW][C]5[/C][C]4.97091540865462[/C][/ROW]
[ROW][C]6[/C][C]5.49363267792815[/C][/ROW]
[ROW][C]7[/C][C]5.72363520850168[/C][/ROW]
[ROW][C]8[/C][C]6.04565960007674[/C][/ROW]
[ROW][C]9[/C][C]6.10409698481275[/C][/ROW]
[ROW][C]10[/C][C]6.40390505863414[/C][/ROW]
[ROW][C]11[/C][C]6.8044103344816[/C][/ROW]
[ROW][C]12[/C][C]6.85930025585701[/C][/ROW]
[ROW][C]13[/C][C]6.90941386804988[/C][/ROW]
[ROW][C]14[/C][C]7.33416661932355[/C][/ROW]
[ROW][C]15[/C][C]7.43319846155543[/C][/ROW]
[ROW][C]16[/C][C]8.09320702811933[/C][/ROW]
[ROW][C]17[/C][C]8.13510909576509[/C][/ROW]
[ROW][C]18[/C][C]8.32105762508589[/C][/ROW]
[ROW][C]19[/C][C]8.66544863235598[/C][/ROW]
[ROW][C]20[/C][C]8.7630497874952[/C][/ROW]
[ROW][C]21[/C][C]8.94091717890284[/C][/ROW]
[ROW][C]22[/C][C]9.42578354323287[/C][/ROW]
[ROW][C]23[/C][C]9.43345111822815[/C][/ROW]
[ROW][C]24[/C][C]9.82805309654202[/C][/ROW]
[ROW][C]25[/C][C]10.2042522365039[/C][/ROW]
[ROW][C]26[/C][C]10.7678490217154[/C][/ROW]
[ROW][C]27[/C][C]11.1700492389246[/C][/ROW]
[ROW][C]28[/C][C]11.3966693593580[/C][/ROW]
[ROW][C]29[/C][C]11.5351636312625[/C][/ROW]
[ROW][C]30[/C][C]11.6099095603713[/C][/ROW]
[ROW][C]31[/C][C]11.6807534003591[/C][/ROW]
[ROW][C]32[/C][C]11.7865146265502[/C][/ROW]
[ROW][C]33[/C][C]11.8949761916029[/C][/ROW]
[ROW][C]34[/C][C]11.9155360769040[/C][/ROW]
[ROW][C]35[/C][C]12.9553707875648[/C][/ROW]
[ROW][C]36[/C][C]13.3120246394003[/C][/ROW]
[ROW][C]37[/C][C]13.5177973168608[/C][/ROW]
[ROW][C]38[/C][C]13.6214062055956[/C][/ROW]
[ROW][C]39[/C][C]13.8097786560340[/C][/ROW]
[ROW][C]40[/C][C]14.1859814878576[/C][/ROW]
[ROW][C]41[/C][C]14.8549654997916[/C][/ROW]
[ROW][C]42[/C][C]15.3127397940408[/C][/ROW]
[ROW][C]43[/C][C]16.0791162019351[/C][/ROW]
[ROW][C]44[/C][C]16.2467087644982[/C][/ROW]
[ROW][C]45[/C][C]16.8089262000879[/C][/ROW]
[ROW][C]46[/C][C]16.8595005301798[/C][/ROW]
[ROW][C]47[/C][C]17.2893137747923[/C][/ROW]
[ROW][C]48[/C][C]17.5789998366768[/C][/ROW]
[ROW][C]49[/C][C]17.6310491608526[/C][/ROW]
[ROW][C]50[/C][C]17.7170188755694[/C][/ROW]
[ROW][C]51[/C][C]19.1484982910573[/C][/ROW]
[ROW][C]52[/C][C]19.7596056456984[/C][/ROW]
[ROW][C]53[/C][C]20.1407846457694[/C][/ROW]
[ROW][C]54[/C][C]21.0693710903141[/C][/ROW]
[ROW][C]55[/C][C]22.5353007088034[/C][/ROW]
[ROW][C]56[/C][C]23.0426162567524[/C][/ROW]
[ROW][C]57[/C][C]24.0234929671519[/C][/ROW]
[ROW][C]58[/C][C]24.7491472432982[/C][/ROW]
[ROW][C]59[/C][C]27.3135133835557[/C][/ROW]
[ROW][C]60[/C][C]29.1187224994504[/C][/ROW]
[ROW][C]61[/C][C]29.7897975817926[/C][/ROW]
[ROW][C]62[/C][C]30.9971243154015[/C][/ROW]
[ROW][C]63[/C][C]32.8690667823914[/C][/ROW]
[ROW][C]64[/C][C]36.9603570100131[/C][/ROW]
[ROW][C]65[/C][C]37.3291717584563[/C][/ROW]
[ROW][C]66[/C][C]41.2990155745250[/C][/ROW]
[ROW][C]67[/C][C]43.4852052433074[/C][/ROW]
[ROW][C]68[/C][C]44.4934922810275[/C][/ROW]
[ROW][C]69[/C][C]45.0920376663262[/C][/ROW]
[ROW][C]70[/C][C]50.7837484460942[/C][/ROW]
[ROW][C]71[/C][C]51.7501093701212[/C][/ROW]
[ROW][C]72[/C][C]58.7321871936795[/C][/ROW]
[ROW][C]73[/C][C]77.8147335127634[/C][/ROW]
[ROW][C]74[/C][C]104.538627527516[/C][/ROW]
[ROW][C]75[/C][C]162.360760542454[/C][/ROW]
[ROW][C]76[/C][C]162.781915585912[/C][/ROW]
[ROW][C]77[/C][C]187.208652756772[/C][/ROW]
[ROW][C]78[/C][C]372.134485777678[/C][/ROW]
[ROW][C]79[/C][C]702.679652878129[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=5612&T=1

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

As an alternative you can also use a QR Code:  

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

Summary of Dendrogram
LabelHeight
11.74928556845359
23.39116499156263
33.40293990543470
44.27784992724149
54.97091540865462
65.49363267792815
75.72363520850168
86.04565960007674
96.10409698481275
106.40390505863414
116.8044103344816
126.85930025585701
136.90941386804988
147.33416661932355
157.43319846155543
168.09320702811933
178.13510909576509
188.32105762508589
198.66544863235598
208.7630497874952
218.94091717890284
229.42578354323287
239.43345111822815
249.82805309654202
2510.2042522365039
2610.7678490217154
2711.1700492389246
2811.3966693593580
2911.5351636312625
3011.6099095603713
3111.6807534003591
3211.7865146265502
3311.8949761916029
3411.9155360769040
3512.9553707875648
3613.3120246394003
3713.5177973168608
3813.6214062055956
3913.8097786560340
4014.1859814878576
4114.8549654997916
4215.3127397940408
4316.0791162019351
4416.2467087644982
4516.8089262000879
4616.8595005301798
4717.2893137747923
4817.5789998366768
4917.6310491608526
5017.7170188755694
5119.1484982910573
5219.7596056456984
5320.1407846457694
5421.0693710903141
5522.5353007088034
5623.0426162567524
5724.0234929671519
5824.7491472432982
5927.3135133835557
6029.1187224994504
6129.7897975817926
6230.9971243154015
6332.8690667823914
6436.9603570100131
6537.3291717584563
6641.2990155745250
6743.4852052433074
6844.4934922810275
6945.0920376663262
7050.7837484460942
7151.7501093701212
7258.7321871936795
7377.8147335127634
74104.538627527516
75162.360760542454
76162.781915585912
77187.208652756772
78372.134485777678
79702.679652878129



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