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 computationMon, 05 Nov 2007 09:10:19 -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/05/eblhjavttfxck1u1194278904.htm/, Retrieved Mon, 29 Apr 2024 02:54:55 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=463, Retrieved Mon, 29 Apr 2024 02:54:55 +0000
QR Codes:

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

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 Q2] [2007-11-05 16:10:19] [640491d00f3c9cca22cbf779aa38ac16] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100,70	101,30
97,90	97,60
96,50	96,40
96,60	97,00
96,60	96,40
95,50	94,70
91,80	89,30
89,30	85,90
87,00	83,30
85,90	81,50
88,00	85,00
87,90	84,80
89,20	87,50
90,90	89,00
91,60	90,00
90,20	89,60
89,10	87,40
87,50	84,80
86,30	81,90
86,00	81,10
84,40	79,10
86,10	80,50
91,00	88,50
92,70	90,90
88,00	84,90
84,30	80,00
82,20	76,50
80,80	75,40
79,40	73,50
80,20	74,30
82,20	77,70
82,20	77,90
81,20	76,70
82,10	77,20
88,10	86,00
88,50	86,90
92,10	92,00
98,60	101,70
100,90	104,50
100,60	101,70
101,10	100,60
102,10	100,30
103,60	102,50
102,80	101,00
108,30	108,60
104,00	103,40
106,10	106,40
106,30	106,60
109,00	108,90
111,00	110,50
113,70	114,00
112,70	112,80
110,30	109,60
114,50	116,00
119,30	124,60
121,80	129,00
125,40	131,50
129,70	138,60
129,40	138,10
134,50	146,30
141,20	157,60
141,40	158,40
152,20	176,30
167,70	199,90
173,30	210,40
168,70	202,60
172,60	207,10
169,80	202,00
172,00	203,40
179,40	216,30
174,60	207,30
172,50	203,50
172,60	204,40
176,30	203,70
178,90	205,70
179,60	208,00
179,90	209,30
180,30	208,70
180,90	206,50
177,70	204,50

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=463&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]2 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=463&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=463&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Summary of Dendrogram
LabelHeight
10.0999999999999943
20.0999999999999943
30.141421356237312
40.200000000000003
50.210018769324862
60.282842712474613
70.41231056256177
80.412310562561774
90.509901951359277
100.509901951359277
110.583095189484521
120.646704523705155
130.707106781186552
140.72111025509282
150.728010988928055
160.761577310586398
170.772184168686542
180.809287012133409
190.824621125123547
200.905538513813748
210.984885780179618
220.984885780179618
230.98994949366117
241.13054235081598
251.13137084989847
261.14017542509914
271.20558339393895
281.21118527806878
291.21574746538694
301.25299640861417
311.25299640861418
321.30904051501827
331.32822761018399
341.35143368061546
351.56204993518133
361.61245154965970
371.86224923923909
382.00997512422418
392.01872442950477
402.03159715193742
412.15406592285381
422.30438975736918
432.34988124600521
442.68446690830628
453.03005445557119
463.36303527026687
473.48172419096934
483.48907312167021
493.81999017291256
503.83678102332728
514.10466231591478
524.13081681110551
534.38292140016223
544.57132749413426
555.19129076390141
565.32334293741009
577.66974696830948
588.052632723089
598.38949465318321
609.22083661977003
619.5772051114983
629.92924084560596
6310.5939848167218
6412.292429605067
6513.0404975979163
6618.8867727923453
6722.5616760628438
6828.1258809942865
6930.7546475326866
7030.7597876840117
7133.9898174724017
7236.0787240676087
7340.4085200367006
7499.437909506743
75110.073975553826
76117.599074034966
77447.285243173008
78754.270793994751
793016.3342992471

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0999999999999943 \tabularnewline
2 & 0.0999999999999943 \tabularnewline
3 & 0.141421356237312 \tabularnewline
4 & 0.200000000000003 \tabularnewline
5 & 0.210018769324862 \tabularnewline
6 & 0.282842712474613 \tabularnewline
7 & 0.41231056256177 \tabularnewline
8 & 0.412310562561774 \tabularnewline
9 & 0.509901951359277 \tabularnewline
10 & 0.509901951359277 \tabularnewline
11 & 0.583095189484521 \tabularnewline
12 & 0.646704523705155 \tabularnewline
13 & 0.707106781186552 \tabularnewline
14 & 0.72111025509282 \tabularnewline
15 & 0.728010988928055 \tabularnewline
16 & 0.761577310586398 \tabularnewline
17 & 0.772184168686542 \tabularnewline
18 & 0.809287012133409 \tabularnewline
19 & 0.824621125123547 \tabularnewline
20 & 0.905538513813748 \tabularnewline
21 & 0.984885780179618 \tabularnewline
22 & 0.984885780179618 \tabularnewline
23 & 0.98994949366117 \tabularnewline
24 & 1.13054235081598 \tabularnewline
25 & 1.13137084989847 \tabularnewline
26 & 1.14017542509914 \tabularnewline
27 & 1.20558339393895 \tabularnewline
28 & 1.21118527806878 \tabularnewline
29 & 1.21574746538694 \tabularnewline
30 & 1.25299640861417 \tabularnewline
31 & 1.25299640861418 \tabularnewline
32 & 1.30904051501827 \tabularnewline
33 & 1.32822761018399 \tabularnewline
34 & 1.35143368061546 \tabularnewline
35 & 1.56204993518133 \tabularnewline
36 & 1.61245154965970 \tabularnewline
37 & 1.86224923923909 \tabularnewline
38 & 2.00997512422418 \tabularnewline
39 & 2.01872442950477 \tabularnewline
40 & 2.03159715193742 \tabularnewline
41 & 2.15406592285381 \tabularnewline
42 & 2.30438975736918 \tabularnewline
43 & 2.34988124600521 \tabularnewline
44 & 2.68446690830628 \tabularnewline
45 & 3.03005445557119 \tabularnewline
46 & 3.36303527026687 \tabularnewline
47 & 3.48172419096934 \tabularnewline
48 & 3.48907312167021 \tabularnewline
49 & 3.81999017291256 \tabularnewline
50 & 3.83678102332728 \tabularnewline
51 & 4.10466231591478 \tabularnewline
52 & 4.13081681110551 \tabularnewline
53 & 4.38292140016223 \tabularnewline
54 & 4.57132749413426 \tabularnewline
55 & 5.19129076390141 \tabularnewline
56 & 5.32334293741009 \tabularnewline
57 & 7.66974696830948 \tabularnewline
58 & 8.052632723089 \tabularnewline
59 & 8.38949465318321 \tabularnewline
60 & 9.22083661977003 \tabularnewline
61 & 9.5772051114983 \tabularnewline
62 & 9.92924084560596 \tabularnewline
63 & 10.5939848167218 \tabularnewline
64 & 12.292429605067 \tabularnewline
65 & 13.0404975979163 \tabularnewline
66 & 18.8867727923453 \tabularnewline
67 & 22.5616760628438 \tabularnewline
68 & 28.1258809942865 \tabularnewline
69 & 30.7546475326866 \tabularnewline
70 & 30.7597876840117 \tabularnewline
71 & 33.9898174724017 \tabularnewline
72 & 36.0787240676087 \tabularnewline
73 & 40.4085200367006 \tabularnewline
74 & 99.437909506743 \tabularnewline
75 & 110.073975553826 \tabularnewline
76 & 117.599074034966 \tabularnewline
77 & 447.285243173008 \tabularnewline
78 & 754.270793994751 \tabularnewline
79 & 3016.3342992471 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=463&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]2[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]3[/C][C]0.141421356237312[/C][/ROW]
[ROW][C]4[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]5[/C][C]0.210018769324862[/C][/ROW]
[ROW][C]6[/C][C]0.282842712474613[/C][/ROW]
[ROW][C]7[/C][C]0.41231056256177[/C][/ROW]
[ROW][C]8[/C][C]0.412310562561774[/C][/ROW]
[ROW][C]9[/C][C]0.509901951359277[/C][/ROW]
[ROW][C]10[/C][C]0.509901951359277[/C][/ROW]
[ROW][C]11[/C][C]0.583095189484521[/C][/ROW]
[ROW][C]12[/C][C]0.646704523705155[/C][/ROW]
[ROW][C]13[/C][C]0.707106781186552[/C][/ROW]
[ROW][C]14[/C][C]0.72111025509282[/C][/ROW]
[ROW][C]15[/C][C]0.728010988928055[/C][/ROW]
[ROW][C]16[/C][C]0.761577310586398[/C][/ROW]
[ROW][C]17[/C][C]0.772184168686542[/C][/ROW]
[ROW][C]18[/C][C]0.809287012133409[/C][/ROW]
[ROW][C]19[/C][C]0.824621125123547[/C][/ROW]
[ROW][C]20[/C][C]0.905538513813748[/C][/ROW]
[ROW][C]21[/C][C]0.984885780179618[/C][/ROW]
[ROW][C]22[/C][C]0.984885780179618[/C][/ROW]
[ROW][C]23[/C][C]0.98994949366117[/C][/ROW]
[ROW][C]24[/C][C]1.13054235081598[/C][/ROW]
[ROW][C]25[/C][C]1.13137084989847[/C][/ROW]
[ROW][C]26[/C][C]1.14017542509914[/C][/ROW]
[ROW][C]27[/C][C]1.20558339393895[/C][/ROW]
[ROW][C]28[/C][C]1.21118527806878[/C][/ROW]
[ROW][C]29[/C][C]1.21574746538694[/C][/ROW]
[ROW][C]30[/C][C]1.25299640861417[/C][/ROW]
[ROW][C]31[/C][C]1.25299640861418[/C][/ROW]
[ROW][C]32[/C][C]1.30904051501827[/C][/ROW]
[ROW][C]33[/C][C]1.32822761018399[/C][/ROW]
[ROW][C]34[/C][C]1.35143368061546[/C][/ROW]
[ROW][C]35[/C][C]1.56204993518133[/C][/ROW]
[ROW][C]36[/C][C]1.61245154965970[/C][/ROW]
[ROW][C]37[/C][C]1.86224923923909[/C][/ROW]
[ROW][C]38[/C][C]2.00997512422418[/C][/ROW]
[ROW][C]39[/C][C]2.01872442950477[/C][/ROW]
[ROW][C]40[/C][C]2.03159715193742[/C][/ROW]
[ROW][C]41[/C][C]2.15406592285381[/C][/ROW]
[ROW][C]42[/C][C]2.30438975736918[/C][/ROW]
[ROW][C]43[/C][C]2.34988124600521[/C][/ROW]
[ROW][C]44[/C][C]2.68446690830628[/C][/ROW]
[ROW][C]45[/C][C]3.03005445557119[/C][/ROW]
[ROW][C]46[/C][C]3.36303527026687[/C][/ROW]
[ROW][C]47[/C][C]3.48172419096934[/C][/ROW]
[ROW][C]48[/C][C]3.48907312167021[/C][/ROW]
[ROW][C]49[/C][C]3.81999017291256[/C][/ROW]
[ROW][C]50[/C][C]3.83678102332728[/C][/ROW]
[ROW][C]51[/C][C]4.10466231591478[/C][/ROW]
[ROW][C]52[/C][C]4.13081681110551[/C][/ROW]
[ROW][C]53[/C][C]4.38292140016223[/C][/ROW]
[ROW][C]54[/C][C]4.57132749413426[/C][/ROW]
[ROW][C]55[/C][C]5.19129076390141[/C][/ROW]
[ROW][C]56[/C][C]5.32334293741009[/C][/ROW]
[ROW][C]57[/C][C]7.66974696830948[/C][/ROW]
[ROW][C]58[/C][C]8.052632723089[/C][/ROW]
[ROW][C]59[/C][C]8.38949465318321[/C][/ROW]
[ROW][C]60[/C][C]9.22083661977003[/C][/ROW]
[ROW][C]61[/C][C]9.5772051114983[/C][/ROW]
[ROW][C]62[/C][C]9.92924084560596[/C][/ROW]
[ROW][C]63[/C][C]10.5939848167218[/C][/ROW]
[ROW][C]64[/C][C]12.292429605067[/C][/ROW]
[ROW][C]65[/C][C]13.0404975979163[/C][/ROW]
[ROW][C]66[/C][C]18.8867727923453[/C][/ROW]
[ROW][C]67[/C][C]22.5616760628438[/C][/ROW]
[ROW][C]68[/C][C]28.1258809942865[/C][/ROW]
[ROW][C]69[/C][C]30.7546475326866[/C][/ROW]
[ROW][C]70[/C][C]30.7597876840117[/C][/ROW]
[ROW][C]71[/C][C]33.9898174724017[/C][/ROW]
[ROW][C]72[/C][C]36.0787240676087[/C][/ROW]
[ROW][C]73[/C][C]40.4085200367006[/C][/ROW]
[ROW][C]74[/C][C]99.437909506743[/C][/ROW]
[ROW][C]75[/C][C]110.073975553826[/C][/ROW]
[ROW][C]76[/C][C]117.599074034966[/C][/ROW]
[ROW][C]77[/C][C]447.285243173008[/C][/ROW]
[ROW][C]78[/C][C]754.270793994751[/C][/ROW]
[ROW][C]79[/C][C]3016.3342992471[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=463&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=463&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.0999999999999943
20.0999999999999943
30.141421356237312
40.200000000000003
50.210018769324862
60.282842712474613
70.41231056256177
80.412310562561774
90.509901951359277
100.509901951359277
110.583095189484521
120.646704523705155
130.707106781186552
140.72111025509282
150.728010988928055
160.761577310586398
170.772184168686542
180.809287012133409
190.824621125123547
200.905538513813748
210.984885780179618
220.984885780179618
230.98994949366117
241.13054235081598
251.13137084989847
261.14017542509914
271.20558339393895
281.21118527806878
291.21574746538694
301.25299640861417
311.25299640861418
321.30904051501827
331.32822761018399
341.35143368061546
351.56204993518133
361.61245154965970
371.86224923923909
382.00997512422418
392.01872442950477
402.03159715193742
412.15406592285381
422.30438975736918
432.34988124600521
442.68446690830628
453.03005445557119
463.36303527026687
473.48172419096934
483.48907312167021
493.81999017291256
503.83678102332728
514.10466231591478
524.13081681110551
534.38292140016223
544.57132749413426
555.19129076390141
565.32334293741009
577.66974696830948
588.052632723089
598.38949465318321
609.22083661977003
619.5772051114983
629.92924084560596
6310.5939848167218
6412.292429605067
6513.0404975979163
6618.8867727923453
6722.5616760628438
6828.1258809942865
6930.7546475326866
7030.7597876840117
7133.9898174724017
7236.0787240676087
7340.4085200367006
7499.437909506743
75110.073975553826
76117.599074034966
77447.285243173008
78754.270793994751
793016.3342992471


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