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 computationFri, 02 Nov 2007 07:25:31 -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/02/xkaqibvdyooxnix1194013473.htm/, Retrieved Fri, 03 May 2024 19:06:11 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=164, Retrieved Fri, 03 May 2024 19:06:11 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Hierarchical clus...] [2007-11-02 14:25:31] [887c58ec85a2f7f96f5a0ba18e7ae311] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
436	6.5	7.7	8.4
431	6.4	7.7	8.4
484	6.2	7.8	8.4
510	6.2	7.8	8.5
513	6.3	7.8	8.5
503	7.5	7.9	8.5
471	7.4	7.9	8.5
471	7.4	7.9	8.6
476	7.4	7.9	8.7
475	7.4	8	8.7
470	7.4	8	8.7
461	7.2	8.1	8.8
455	7.2	8.1	8.8
456	7.2	8.1	8.8
517	7.5	8.2	8.9
525	7.4	8.3	8.9
523	7.4	8.3	8.9
519	8	8.3	8.9
509	8.1	8.4	8.9
512	8.1	8.4	8.9
519	8.1	8.5	8.9
517	8.1	8.6	8.9
510	8.1	8.6	8.9
509	7.9	8.6	8.9
501	7.9	8.7	8.9
507	8	8.7	9
569	8.1	8.7	9
580	8.1	8.7	9
578	8.1	8.7	9
565	8.5	8.7	9
547	8.5	8.7	9
555	8.6	8.8	9
562	8.4	8.8	9.1
561	8.4	8.8	9.1
555	8.4	8.8	9.1
544	7.7	8.8	9.1
537	7.8	8.9	9.1
543	7.9	8.9	9.1
594	8.7	8.8	9
611	8.8	8.8	9
613	8.8	8.8	9
611	8.5	8.8	8.9
594	8.5	8.7	8.9
595	8.5	8.7	8.9
591	8.4	8.7	8.8
589	8.5	8.8	8.9
584	8.5	8.8	8.9
573	8.3	8.7	8.8
567	8.4	8.7	8.8
569	8.4	8.6	8.8
621	8.4	8.5	8.6
629	8.4	8.4	8.5
628	8.4	8.3	8.5
612	8.5	8.3	8.5
595	8.5	8.4	8.5
597	8.5	8.4	8.5
593	8.5	8.3	8.3
590	8.5	8.2	8.2
580	8.5	8.1	8.2
574	8.3	8	8.1
573	8.3	7.9	8
573	8.4	7.9	7.9
620	8.2	7.8	7.9
626	8.2	7.8	7.8
620	8.1	7.7	7.8
588	8.1	7.7	7.6
566	8	7.6	7.5
557	7.8	7.5	7.5
561	7.9	7.4	7.3
549	7.8	7.2	7.2
532	7.7	7.1	7.1
526	7.9	7	6.9

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=164&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=164&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164&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.0999999999999996
20.141421356237309
30.173205080756888
40.223606797749978
50.223606797749978
60.244948974278318
70.282842712474618
80.316227766016838
90.374165738677394
100.5
110.721110255092798
121
131
141.00498756211209
151.00498756211209
161.02469507659596
171.07703296142690
181.26095202129185
191.26545763279987
201.27279220613579
211.31253521987750
221.32309704695478
231.50991094357378
241.62971647991151
251.82082462519608
261.91609662120721
272
282.01246117974981
292.11931134633810
302.18174242292714
312.22710574513201
322.34623253953389
332.44802605790931
342.48869790507111
352.87822047035738
362.91613901721721
373.02387704417457
383.15911379978626
393.21910957903652
403.38938056858772
413.62805305738344
423.66641172832096
433.83442696968308
443.94093847856199
455.00099990002
465.67890834580027
475.73713291648039
486.18761624565554
496.96968815491181
507
517.53952288285715
5210.4335990122747
5313.6343622921623
5416.9736047590363
5517.9894866551138
5618.1647729899543
5718.9511051236632
5819.5984712142200
5921.1063280529028
6022.6839721455977
6141.7352398625811
6246.5877277440632
6351.0445674205568
6467.1184816656003
6568.7469304491699
6697.1877474518428
67164.271322092654
68312.517244300188
69502.185250957854
70530.334773033626
711979.57649545815

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0999999999999996 \tabularnewline
2 & 0.141421356237309 \tabularnewline
3 & 0.173205080756888 \tabularnewline
4 & 0.223606797749978 \tabularnewline
5 & 0.223606797749978 \tabularnewline
6 & 0.244948974278318 \tabularnewline
7 & 0.282842712474618 \tabularnewline
8 & 0.316227766016838 \tabularnewline
9 & 0.374165738677394 \tabularnewline
10 & 0.5 \tabularnewline
11 & 0.721110255092798 \tabularnewline
12 & 1 \tabularnewline
13 & 1 \tabularnewline
14 & 1.00498756211209 \tabularnewline
15 & 1.00498756211209 \tabularnewline
16 & 1.02469507659596 \tabularnewline
17 & 1.07703296142690 \tabularnewline
18 & 1.26095202129185 \tabularnewline
19 & 1.26545763279987 \tabularnewline
20 & 1.27279220613579 \tabularnewline
21 & 1.31253521987750 \tabularnewline
22 & 1.32309704695478 \tabularnewline
23 & 1.50991094357378 \tabularnewline
24 & 1.62971647991151 \tabularnewline
25 & 1.82082462519608 \tabularnewline
26 & 1.91609662120721 \tabularnewline
27 & 2 \tabularnewline
28 & 2.01246117974981 \tabularnewline
29 & 2.11931134633810 \tabularnewline
30 & 2.18174242292714 \tabularnewline
31 & 2.22710574513201 \tabularnewline
32 & 2.34623253953389 \tabularnewline
33 & 2.44802605790931 \tabularnewline
34 & 2.48869790507111 \tabularnewline
35 & 2.87822047035738 \tabularnewline
36 & 2.91613901721721 \tabularnewline
37 & 3.02387704417457 \tabularnewline
38 & 3.15911379978626 \tabularnewline
39 & 3.21910957903652 \tabularnewline
40 & 3.38938056858772 \tabularnewline
41 & 3.62805305738344 \tabularnewline
42 & 3.66641172832096 \tabularnewline
43 & 3.83442696968308 \tabularnewline
44 & 3.94093847856199 \tabularnewline
45 & 5.00099990002 \tabularnewline
46 & 5.67890834580027 \tabularnewline
47 & 5.73713291648039 \tabularnewline
48 & 6.18761624565554 \tabularnewline
49 & 6.96968815491181 \tabularnewline
50 & 7 \tabularnewline
51 & 7.53952288285715 \tabularnewline
52 & 10.4335990122747 \tabularnewline
53 & 13.6343622921623 \tabularnewline
54 & 16.9736047590363 \tabularnewline
55 & 17.9894866551138 \tabularnewline
56 & 18.1647729899543 \tabularnewline
57 & 18.9511051236632 \tabularnewline
58 & 19.5984712142200 \tabularnewline
59 & 21.1063280529028 \tabularnewline
60 & 22.6839721455977 \tabularnewline
61 & 41.7352398625811 \tabularnewline
62 & 46.5877277440632 \tabularnewline
63 & 51.0445674205568 \tabularnewline
64 & 67.1184816656003 \tabularnewline
65 & 68.7469304491699 \tabularnewline
66 & 97.1877474518428 \tabularnewline
67 & 164.271322092654 \tabularnewline
68 & 312.517244300188 \tabularnewline
69 & 502.185250957854 \tabularnewline
70 & 530.334773033626 \tabularnewline
71 & 1979.57649545815 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=164&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0999999999999996[/C][/ROW]
[ROW][C]2[/C][C]0.141421356237309[/C][/ROW]
[ROW][C]3[/C][C]0.173205080756888[/C][/ROW]
[ROW][C]4[/C][C]0.223606797749978[/C][/ROW]
[ROW][C]5[/C][C]0.223606797749978[/C][/ROW]
[ROW][C]6[/C][C]0.244948974278318[/C][/ROW]
[ROW][C]7[/C][C]0.282842712474618[/C][/ROW]
[ROW][C]8[/C][C]0.316227766016838[/C][/ROW]
[ROW][C]9[/C][C]0.374165738677394[/C][/ROW]
[ROW][C]10[/C][C]0.5[/C][/ROW]
[ROW][C]11[/C][C]0.721110255092798[/C][/ROW]
[ROW][C]12[/C][C]1[/C][/ROW]
[ROW][C]13[/C][C]1[/C][/ROW]
[ROW][C]14[/C][C]1.00498756211209[/C][/ROW]
[ROW][C]15[/C][C]1.00498756211209[/C][/ROW]
[ROW][C]16[/C][C]1.02469507659596[/C][/ROW]
[ROW][C]17[/C][C]1.07703296142690[/C][/ROW]
[ROW][C]18[/C][C]1.26095202129185[/C][/ROW]
[ROW][C]19[/C][C]1.26545763279987[/C][/ROW]
[ROW][C]20[/C][C]1.27279220613579[/C][/ROW]
[ROW][C]21[/C][C]1.31253521987750[/C][/ROW]
[ROW][C]22[/C][C]1.32309704695478[/C][/ROW]
[ROW][C]23[/C][C]1.50991094357378[/C][/ROW]
[ROW][C]24[/C][C]1.62971647991151[/C][/ROW]
[ROW][C]25[/C][C]1.82082462519608[/C][/ROW]
[ROW][C]26[/C][C]1.91609662120721[/C][/ROW]
[ROW][C]27[/C][C]2[/C][/ROW]
[ROW][C]28[/C][C]2.01246117974981[/C][/ROW]
[ROW][C]29[/C][C]2.11931134633810[/C][/ROW]
[ROW][C]30[/C][C]2.18174242292714[/C][/ROW]
[ROW][C]31[/C][C]2.22710574513201[/C][/ROW]
[ROW][C]32[/C][C]2.34623253953389[/C][/ROW]
[ROW][C]33[/C][C]2.44802605790931[/C][/ROW]
[ROW][C]34[/C][C]2.48869790507111[/C][/ROW]
[ROW][C]35[/C][C]2.87822047035738[/C][/ROW]
[ROW][C]36[/C][C]2.91613901721721[/C][/ROW]
[ROW][C]37[/C][C]3.02387704417457[/C][/ROW]
[ROW][C]38[/C][C]3.15911379978626[/C][/ROW]
[ROW][C]39[/C][C]3.21910957903652[/C][/ROW]
[ROW][C]40[/C][C]3.38938056858772[/C][/ROW]
[ROW][C]41[/C][C]3.62805305738344[/C][/ROW]
[ROW][C]42[/C][C]3.66641172832096[/C][/ROW]
[ROW][C]43[/C][C]3.83442696968308[/C][/ROW]
[ROW][C]44[/C][C]3.94093847856199[/C][/ROW]
[ROW][C]45[/C][C]5.00099990002[/C][/ROW]
[ROW][C]46[/C][C]5.67890834580027[/C][/ROW]
[ROW][C]47[/C][C]5.73713291648039[/C][/ROW]
[ROW][C]48[/C][C]6.18761624565554[/C][/ROW]
[ROW][C]49[/C][C]6.96968815491181[/C][/ROW]
[ROW][C]50[/C][C]7[/C][/ROW]
[ROW][C]51[/C][C]7.53952288285715[/C][/ROW]
[ROW][C]52[/C][C]10.4335990122747[/C][/ROW]
[ROW][C]53[/C][C]13.6343622921623[/C][/ROW]
[ROW][C]54[/C][C]16.9736047590363[/C][/ROW]
[ROW][C]55[/C][C]17.9894866551138[/C][/ROW]
[ROW][C]56[/C][C]18.1647729899543[/C][/ROW]
[ROW][C]57[/C][C]18.9511051236632[/C][/ROW]
[ROW][C]58[/C][C]19.5984712142200[/C][/ROW]
[ROW][C]59[/C][C]21.1063280529028[/C][/ROW]
[ROW][C]60[/C][C]22.6839721455977[/C][/ROW]
[ROW][C]61[/C][C]41.7352398625811[/C][/ROW]
[ROW][C]62[/C][C]46.5877277440632[/C][/ROW]
[ROW][C]63[/C][C]51.0445674205568[/C][/ROW]
[ROW][C]64[/C][C]67.1184816656003[/C][/ROW]
[ROW][C]65[/C][C]68.7469304491699[/C][/ROW]
[ROW][C]66[/C][C]97.1877474518428[/C][/ROW]
[ROW][C]67[/C][C]164.271322092654[/C][/ROW]
[ROW][C]68[/C][C]312.517244300188[/C][/ROW]
[ROW][C]69[/C][C]502.185250957854[/C][/ROW]
[ROW][C]70[/C][C]530.334773033626[/C][/ROW]
[ROW][C]71[/C][C]1979.57649545815[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=164&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=164&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.0999999999999996
20.141421356237309
30.173205080756888
40.223606797749978
50.223606797749978
60.244948974278318
70.282842712474618
80.316227766016838
90.374165738677394
100.5
110.721110255092798
121
131
141.00498756211209
151.00498756211209
161.02469507659596
171.07703296142690
181.26095202129185
191.26545763279987
201.27279220613579
211.31253521987750
221.32309704695478
231.50991094357378
241.62971647991151
251.82082462519608
261.91609662120721
272
282.01246117974981
292.11931134633810
302.18174242292714
312.22710574513201
322.34623253953389
332.44802605790931
342.48869790507111
352.87822047035738
362.91613901721721
373.02387704417457
383.15911379978626
393.21910957903652
403.38938056858772
413.62805305738344
423.66641172832096
433.83442696968308
443.94093847856199
455.00099990002
465.67890834580027
475.73713291648039
486.18761624565554
496.96968815491181
507
517.53952288285715
5210.4335990122747
5313.6343622921623
5416.9736047590363
5517.9894866551138
5618.1647729899543
5718.9511051236632
5819.5984712142200
5921.1063280529028
6022.6839721455977
6141.7352398625811
6246.5877277440632
6351.0445674205568
6467.1184816656003
6568.7469304491699
6697.1877474518428
67164.271322092654
68312.517244300188
69502.185250957854
70530.334773033626
711979.57649545815


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