FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationTue, 11 Nov 2008 06:24:27 -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/t1226409899l46rzw7i49xpco5.htm/, Retrieved Sun, 19 May 2024 09:24:30 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23450, Retrieved Sun, 19 May 2024 09:24:30 +0000
QR Codes:

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

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...] [2008-11-11 13:24:27] [02e7fb326979b65614900650d62c19a6] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2333,3	117	2894,3	3118,6
2282,2	122,2	2838,1	3089,8
2458,2	116,8	3137,7	3312,3
2345,5	115	2703,7	3106,1
2065,2	105,3	2623,6	2843,1
2332,5	114,1	2691,1	3300,4
2077,5	102,1	2577,9	3147,9
1691,4	91	2430,5	2742,7
2381,9	123,2	2871	3397,3
2526	125,8	2922,5	3461,4
2212,1	108,1	2810,8	3314,8
2459,9	117,2	3070,3	3248
2178,8	111	2790	2938
2318,2	114,5	2821	3473,8
2661,8	141,9	3383,6	3839,1
2407,9	135,5	3038,4	3601,9
2040,6	128,3	2877,3	3173,2
2601,6	142,7	3283,7	3938,3
2106,3	135,4	2927,3	3034,2
1829,9	174,3	2952,5	2900,5
2546,1	186	3328,9	4236,3
2363	154,9	3467,3	3433,4
2435,8	146,2	3355,6	3777,8
2668	135,9	3707	3709,8
2316,9	118	3275,6	3192,8
2324,2	113,3	3466,5	3640,2
2610,8	138	4054,3	4275,3
2413,2	138	3708,5	3708,9
2345,2	116,7	3339	3312,1
2590,8	303	3559,8	3948
2132,1	111,6	3189,2	3084,8
1990,7	110,1	3620,7	3412,8
2641,7	132,8	3915,4	4036,3
2437,1	133,2	3804,3	3608,7
2649,2	135,9	4391,6	3911,8
2819,4	153,7	4975,9	3857,3
2405,6	132,7	4478,7	3567,3
2451,3	141,1	4455,8	4022,2
2878,5	168	5661,8	4948,6
2534,1	136	4062,8	3645
2670,6	134,7	4257,7	3982,5
2909,7	146,4	4114,2	4175,4
2261,8	135,5	3793,8	3660,9
2135,3	134,8	4170	4019,7
2870,4	145	4004,9	4447,6
2803,2	156,4	4129,7	4211,6
2775,1	161,7	4116	4252,3
2633,7	144,1	4133,8	3703,1
2930,6	147,7	4081,2	4052,1
2779,7	152,2	3854,1	4462
3039,2	170,7	4239,8	4862,6
2752,7	225,8	3718,5	4114,4
2743,1	151,3	4183,1	4630,4
2914	162,3	4336,1	4694,1
2711,9	132,6	4299,2	4189,4
2295,8	130,1	4285,3	4158
2840,6	149,1	4676,7	4533,8
3230,5	340,7	4980,6	4906,2
2761,1	243,4	5207,4	4858,8
2769,6	238,1	5221,7	4059

Tables (Output of Computation)





Summary of computational 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 computational 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=23450&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]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=23450&T=0

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






Summary of Dendrogram
LabelHeight
151.5934104319532
281.4010442193468
393.1681275973709
4111.739115801048
5129.346008829032
6135.655372175229
7138.038509119738
8140.754857820255
9152.928414625929
10153.118679461391
11161.826759221088
12170.492257888738
13176.709733744353
14195.430409243483
15200.222706968380
16211.588137663717
17217.289576372177
18222.783347672128
19231.109368048982
20241.253642459549
21246.540157717117
22256.591543118630
23265.290912292544
24267.785658248142
25283.834353142762
26304.91531475075
27332.722001075973
28335.096001169814
29335.860364451172
30341.554397314496
31350.262607986786
32411.889674762141
33420.295194948812
34435.061458907882
35449.272381780513
36459.283937864015
37483.747165366373
38539.830276693691
39577.624013147568
40591.028609802603
41597.375170370717
42619.88754967067
43696.204188829428
44710.625484115912
45718.45639209918
46738.603012829048
47782.54596270751
48925.159487564434
49964.053710933342
50997.428935826934
511180.33644933683
521704.35180247615
531710.28802382974
541825.95925068335
552814.53498639758
563306.68104866315
575039.38036496132
587694.19454281714
5926961.130941128

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 51.5934104319532 \tabularnewline
2 & 81.4010442193468 \tabularnewline
3 & 93.1681275973709 \tabularnewline
4 & 111.739115801048 \tabularnewline
5 & 129.346008829032 \tabularnewline
6 & 135.655372175229 \tabularnewline
7 & 138.038509119738 \tabularnewline
8 & 140.754857820255 \tabularnewline
9 & 152.928414625929 \tabularnewline
10 & 153.118679461391 \tabularnewline
11 & 161.826759221088 \tabularnewline
12 & 170.492257888738 \tabularnewline
13 & 176.709733744353 \tabularnewline
14 & 195.430409243483 \tabularnewline
15 & 200.222706968380 \tabularnewline
16 & 211.588137663717 \tabularnewline
17 & 217.289576372177 \tabularnewline
18 & 222.783347672128 \tabularnewline
19 & 231.109368048982 \tabularnewline
20 & 241.253642459549 \tabularnewline
21 & 246.540157717117 \tabularnewline
22 & 256.591543118630 \tabularnewline
23 & 265.290912292544 \tabularnewline
24 & 267.785658248142 \tabularnewline
25 & 283.834353142762 \tabularnewline
26 & 304.91531475075 \tabularnewline
27 & 332.722001075973 \tabularnewline
28 & 335.096001169814 \tabularnewline
29 & 335.860364451172 \tabularnewline
30 & 341.554397314496 \tabularnewline
31 & 350.262607986786 \tabularnewline
32 & 411.889674762141 \tabularnewline
33 & 420.295194948812 \tabularnewline
34 & 435.061458907882 \tabularnewline
35 & 449.272381780513 \tabularnewline
36 & 459.283937864015 \tabularnewline
37 & 483.747165366373 \tabularnewline
38 & 539.830276693691 \tabularnewline
39 & 577.624013147568 \tabularnewline
40 & 591.028609802603 \tabularnewline
41 & 597.375170370717 \tabularnewline
42 & 619.88754967067 \tabularnewline
43 & 696.204188829428 \tabularnewline
44 & 710.625484115912 \tabularnewline
45 & 718.45639209918 \tabularnewline
46 & 738.603012829048 \tabularnewline
47 & 782.54596270751 \tabularnewline
48 & 925.159487564434 \tabularnewline
49 & 964.053710933342 \tabularnewline
50 & 997.428935826934 \tabularnewline
51 & 1180.33644933683 \tabularnewline
52 & 1704.35180247615 \tabularnewline
53 & 1710.28802382974 \tabularnewline
54 & 1825.95925068335 \tabularnewline
55 & 2814.53498639758 \tabularnewline
56 & 3306.68104866315 \tabularnewline
57 & 5039.38036496132 \tabularnewline
58 & 7694.19454281714 \tabularnewline
59 & 26961.130941128 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23450&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]51.5934104319532[/C][/ROW]
[ROW][C]2[/C][C]81.4010442193468[/C][/ROW]
[ROW][C]3[/C][C]93.1681275973709[/C][/ROW]
[ROW][C]4[/C][C]111.739115801048[/C][/ROW]
[ROW][C]5[/C][C]129.346008829032[/C][/ROW]
[ROW][C]6[/C][C]135.655372175229[/C][/ROW]
[ROW][C]7[/C][C]138.038509119738[/C][/ROW]
[ROW][C]8[/C][C]140.754857820255[/C][/ROW]
[ROW][C]9[/C][C]152.928414625929[/C][/ROW]
[ROW][C]10[/C][C]153.118679461391[/C][/ROW]
[ROW][C]11[/C][C]161.826759221088[/C][/ROW]
[ROW][C]12[/C][C]170.492257888738[/C][/ROW]
[ROW][C]13[/C][C]176.709733744353[/C][/ROW]
[ROW][C]14[/C][C]195.430409243483[/C][/ROW]
[ROW][C]15[/C][C]200.222706968380[/C][/ROW]
[ROW][C]16[/C][C]211.588137663717[/C][/ROW]
[ROW][C]17[/C][C]217.289576372177[/C][/ROW]
[ROW][C]18[/C][C]222.783347672128[/C][/ROW]
[ROW][C]19[/C][C]231.109368048982[/C][/ROW]
[ROW][C]20[/C][C]241.253642459549[/C][/ROW]
[ROW][C]21[/C][C]246.540157717117[/C][/ROW]
[ROW][C]22[/C][C]256.591543118630[/C][/ROW]
[ROW][C]23[/C][C]265.290912292544[/C][/ROW]
[ROW][C]24[/C][C]267.785658248142[/C][/ROW]
[ROW][C]25[/C][C]283.834353142762[/C][/ROW]
[ROW][C]26[/C][C]304.91531475075[/C][/ROW]
[ROW][C]27[/C][C]332.722001075973[/C][/ROW]
[ROW][C]28[/C][C]335.096001169814[/C][/ROW]
[ROW][C]29[/C][C]335.860364451172[/C][/ROW]
[ROW][C]30[/C][C]341.554397314496[/C][/ROW]
[ROW][C]31[/C][C]350.262607986786[/C][/ROW]
[ROW][C]32[/C][C]411.889674762141[/C][/ROW]
[ROW][C]33[/C][C]420.295194948812[/C][/ROW]
[ROW][C]34[/C][C]435.061458907882[/C][/ROW]
[ROW][C]35[/C][C]449.272381780513[/C][/ROW]
[ROW][C]36[/C][C]459.283937864015[/C][/ROW]
[ROW][C]37[/C][C]483.747165366373[/C][/ROW]
[ROW][C]38[/C][C]539.830276693691[/C][/ROW]
[ROW][C]39[/C][C]577.624013147568[/C][/ROW]
[ROW][C]40[/C][C]591.028609802603[/C][/ROW]
[ROW][C]41[/C][C]597.375170370717[/C][/ROW]
[ROW][C]42[/C][C]619.88754967067[/C][/ROW]
[ROW][C]43[/C][C]696.204188829428[/C][/ROW]
[ROW][C]44[/C][C]710.625484115912[/C][/ROW]
[ROW][C]45[/C][C]718.45639209918[/C][/ROW]
[ROW][C]46[/C][C]738.603012829048[/C][/ROW]
[ROW][C]47[/C][C]782.54596270751[/C][/ROW]
[ROW][C]48[/C][C]925.159487564434[/C][/ROW]
[ROW][C]49[/C][C]964.053710933342[/C][/ROW]
[ROW][C]50[/C][C]997.428935826934[/C][/ROW]
[ROW][C]51[/C][C]1180.33644933683[/C][/ROW]
[ROW][C]52[/C][C]1704.35180247615[/C][/ROW]
[ROW][C]53[/C][C]1710.28802382974[/C][/ROW]
[ROW][C]54[/C][C]1825.95925068335[/C][/ROW]
[ROW][C]55[/C][C]2814.53498639758[/C][/ROW]
[ROW][C]56[/C][C]3306.68104866315[/C][/ROW]
[ROW][C]57[/C][C]5039.38036496132[/C][/ROW]
[ROW][C]58[/C][C]7694.19454281714[/C][/ROW]
[ROW][C]59[/C][C]26961.130941128[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23450&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23450&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
151.5934104319532
281.4010442193468
393.1681275973709
4111.739115801048
5129.346008829032
6135.655372175229
7138.038509119738
8140.754857820255
9152.928414625929
10153.118679461391
11161.826759221088
12170.492257888738
13176.709733744353
14195.430409243483
15200.222706968380
16211.588137663717
17217.289576372177
18222.783347672128
19231.109368048982
20241.253642459549
21246.540157717117
22256.591543118630
23265.290912292544
24267.785658248142
25283.834353142762
26304.91531475075
27332.722001075973
28335.096001169814
29335.860364451172
30341.554397314496
31350.262607986786
32411.889674762141
33420.295194948812
34435.061458907882
35449.272381780513
36459.283937864015
37483.747165366373
38539.830276693691
39577.624013147568
40591.028609802603
41597.375170370717
42619.88754967067
43696.204188829428
44710.625484115912
45718.45639209918
46738.603012829048
47782.54596270751
48925.159487564434
49964.053710933342
50997.428935826934
511180.33644933683
521704.35180247615
531710.28802382974
541825.95925068335
552814.53498639758
563306.68104866315
575039.38036496132
587694.19454281714
5926961.130941128


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