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 computationSun, 04 Nov 2007 07:01:13 -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/04/41boazvkvq126tn1194184837.htm/, Retrieved Sun, 05 May 2024 10:02:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=278, Retrieved Sun, 05 May 2024 10:02:07 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [] [2007-11-04 14:01:13] [22d719c250b0837edaa2d173fd414084] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
106,9	108,8	85,3
112,6	113,2	73,8
101,7	105,5	55,2
92	77,8	54,4
97,4	102,1	80,8
97	97	88
105,4	95,5	74,5
102,7	99,3	55,1
98,1	86,4	47,2
104,5	92,4	54,2
87,4	85,7	70,6
89,9	61,9	78,5
109,8	104,9	77,1
111,7	107,9	56,6
98,6	95,6	39,8
96,9	79,8	44,1
95,1	94,8	66,9
97	93,7	75,3
112,7	108,1	74,9
102,9	96,9	48,8
97,4	88,8	37
111,4	106,7	49,8
87,4	86,8	63,2
96,8	69,8	75,9
114,1	110,9	68,5
110,3	105,4	49,2
103,9	99,2	40,3
101,6	84,4	38,6
94,6	87,2	54,2
95,9	91,9	70,6
104,7	97,9	68
102,8	94,5	43
98,1	85	42,3
113,9	100,3	47,7
80,9	78,7	57,7
95,7	65,8	75,8
113,2	104,8	57,2
105,9	96	43,6
108,8	103,3	40
102,3	82,9	35,9
99	91,4	59,5
100,7	94,5	72,7
115,5	109,3	70,9
100,7	92,1	44,9
109,9	99,3	44,5
114,6	109,6	48
85,4	87,5	60,4
100,5	73,1	71,8
114,8	110,7	63,2
116,5	111,6	32,4
112,9	110,7	33,9
102	84	24,2
106	101,6	64,7
105,3	102,1	73
118,8	113,9	61,7
106,1	99	31,9
109,3	100,4	30,8
114,3	111,1	34,1
91,9	93	47,4
104,4	74,1	53

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'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 & 2 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=278&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]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=278&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=278&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'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
11.46969384566990
21.80554700852678
33.16701752442263
43.20624390837629
53.49571165858971
63.49571165858971
73.51140997321589
83.66196668472011
94.06169444984537
104.14969878424928
114.59238500128201
124.76864760702653
134.84664832642104
145.09607692249637
155.12542681149579
165.21919534027996
175.33760245803301
185.72867451801992
196.28092349897688
206.39609255717894
216.6035591267608
226.68364690460908
236.76904720030817
246.98258039308016
257.150131407602
267.45117440407886
277.7032460690283
288.83232698670062
299.19480033803757
309.31167115850094
319.33648756224738
3210.7652985421463
3310.8496924363278
3411.6150764095636
3512.0146996598101
3612.1628560934349
3714.1909225836989
3814.4335409210157
3914.8699992327721
4015.3306325371399
4115.7914425461982
4217.1340456432715
4320.0249229501805
4420.5786156526313
4522.3559430492974
4623.0982733592233
4724.9257482540461
4825.8304253430201
4926.2513135468415
5041.0258515295429
5141.5887996530487
5259.8927614963974
5360.5214276476266
5469.0660013096672
5584.3802701364584
56100.611495174208
57142.803923725819
58258.625290232214
59310.867437604433

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.46969384566990 \tabularnewline
2 & 1.80554700852678 \tabularnewline
3 & 3.16701752442263 \tabularnewline
4 & 3.20624390837629 \tabularnewline
5 & 3.49571165858971 \tabularnewline
6 & 3.49571165858971 \tabularnewline
7 & 3.51140997321589 \tabularnewline
8 & 3.66196668472011 \tabularnewline
9 & 4.06169444984537 \tabularnewline
10 & 4.14969878424928 \tabularnewline
11 & 4.59238500128201 \tabularnewline
12 & 4.76864760702653 \tabularnewline
13 & 4.84664832642104 \tabularnewline
14 & 5.09607692249637 \tabularnewline
15 & 5.12542681149579 \tabularnewline
16 & 5.21919534027996 \tabularnewline
17 & 5.33760245803301 \tabularnewline
18 & 5.72867451801992 \tabularnewline
19 & 6.28092349897688 \tabularnewline
20 & 6.39609255717894 \tabularnewline
21 & 6.6035591267608 \tabularnewline
22 & 6.68364690460908 \tabularnewline
23 & 6.76904720030817 \tabularnewline
24 & 6.98258039308016 \tabularnewline
25 & 7.150131407602 \tabularnewline
26 & 7.45117440407886 \tabularnewline
27 & 7.7032460690283 \tabularnewline
28 & 8.83232698670062 \tabularnewline
29 & 9.19480033803757 \tabularnewline
30 & 9.31167115850094 \tabularnewline
31 & 9.33648756224738 \tabularnewline
32 & 10.7652985421463 \tabularnewline
33 & 10.8496924363278 \tabularnewline
34 & 11.6150764095636 \tabularnewline
35 & 12.0146996598101 \tabularnewline
36 & 12.1628560934349 \tabularnewline
37 & 14.1909225836989 \tabularnewline
38 & 14.4335409210157 \tabularnewline
39 & 14.8699992327721 \tabularnewline
40 & 15.3306325371399 \tabularnewline
41 & 15.7914425461982 \tabularnewline
42 & 17.1340456432715 \tabularnewline
43 & 20.0249229501805 \tabularnewline
44 & 20.5786156526313 \tabularnewline
45 & 22.3559430492974 \tabularnewline
46 & 23.0982733592233 \tabularnewline
47 & 24.9257482540461 \tabularnewline
48 & 25.8304253430201 \tabularnewline
49 & 26.2513135468415 \tabularnewline
50 & 41.0258515295429 \tabularnewline
51 & 41.5887996530487 \tabularnewline
52 & 59.8927614963974 \tabularnewline
53 & 60.5214276476266 \tabularnewline
54 & 69.0660013096672 \tabularnewline
55 & 84.3802701364584 \tabularnewline
56 & 100.611495174208 \tabularnewline
57 & 142.803923725819 \tabularnewline
58 & 258.625290232214 \tabularnewline
59 & 310.867437604433 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=278&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.46969384566990[/C][/ROW]
[ROW][C]2[/C][C]1.80554700852678[/C][/ROW]
[ROW][C]3[/C][C]3.16701752442263[/C][/ROW]
[ROW][C]4[/C][C]3.20624390837629[/C][/ROW]
[ROW][C]5[/C][C]3.49571165858971[/C][/ROW]
[ROW][C]6[/C][C]3.49571165858971[/C][/ROW]
[ROW][C]7[/C][C]3.51140997321589[/C][/ROW]
[ROW][C]8[/C][C]3.66196668472011[/C][/ROW]
[ROW][C]9[/C][C]4.06169444984537[/C][/ROW]
[ROW][C]10[/C][C]4.14969878424928[/C][/ROW]
[ROW][C]11[/C][C]4.59238500128201[/C][/ROW]
[ROW][C]12[/C][C]4.76864760702653[/C][/ROW]
[ROW][C]13[/C][C]4.84664832642104[/C][/ROW]
[ROW][C]14[/C][C]5.09607692249637[/C][/ROW]
[ROW][C]15[/C][C]5.12542681149579[/C][/ROW]
[ROW][C]16[/C][C]5.21919534027996[/C][/ROW]
[ROW][C]17[/C][C]5.33760245803301[/C][/ROW]
[ROW][C]18[/C][C]5.72867451801992[/C][/ROW]
[ROW][C]19[/C][C]6.28092349897688[/C][/ROW]
[ROW][C]20[/C][C]6.39609255717894[/C][/ROW]
[ROW][C]21[/C][C]6.6035591267608[/C][/ROW]
[ROW][C]22[/C][C]6.68364690460908[/C][/ROW]
[ROW][C]23[/C][C]6.76904720030817[/C][/ROW]
[ROW][C]24[/C][C]6.98258039308016[/C][/ROW]
[ROW][C]25[/C][C]7.150131407602[/C][/ROW]
[ROW][C]26[/C][C]7.45117440407886[/C][/ROW]
[ROW][C]27[/C][C]7.7032460690283[/C][/ROW]
[ROW][C]28[/C][C]8.83232698670062[/C][/ROW]
[ROW][C]29[/C][C]9.19480033803757[/C][/ROW]
[ROW][C]30[/C][C]9.31167115850094[/C][/ROW]
[ROW][C]31[/C][C]9.33648756224738[/C][/ROW]
[ROW][C]32[/C][C]10.7652985421463[/C][/ROW]
[ROW][C]33[/C][C]10.8496924363278[/C][/ROW]
[ROW][C]34[/C][C]11.6150764095636[/C][/ROW]
[ROW][C]35[/C][C]12.0146996598101[/C][/ROW]
[ROW][C]36[/C][C]12.1628560934349[/C][/ROW]
[ROW][C]37[/C][C]14.1909225836989[/C][/ROW]
[ROW][C]38[/C][C]14.4335409210157[/C][/ROW]
[ROW][C]39[/C][C]14.8699992327721[/C][/ROW]
[ROW][C]40[/C][C]15.3306325371399[/C][/ROW]
[ROW][C]41[/C][C]15.7914425461982[/C][/ROW]
[ROW][C]42[/C][C]17.1340456432715[/C][/ROW]
[ROW][C]43[/C][C]20.0249229501805[/C][/ROW]
[ROW][C]44[/C][C]20.5786156526313[/C][/ROW]
[ROW][C]45[/C][C]22.3559430492974[/C][/ROW]
[ROW][C]46[/C][C]23.0982733592233[/C][/ROW]
[ROW][C]47[/C][C]24.9257482540461[/C][/ROW]
[ROW][C]48[/C][C]25.8304253430201[/C][/ROW]
[ROW][C]49[/C][C]26.2513135468415[/C][/ROW]
[ROW][C]50[/C][C]41.0258515295429[/C][/ROW]
[ROW][C]51[/C][C]41.5887996530487[/C][/ROW]
[ROW][C]52[/C][C]59.8927614963974[/C][/ROW]
[ROW][C]53[/C][C]60.5214276476266[/C][/ROW]
[ROW][C]54[/C][C]69.0660013096672[/C][/ROW]
[ROW][C]55[/C][C]84.3802701364584[/C][/ROW]
[ROW][C]56[/C][C]100.611495174208[/C][/ROW]
[ROW][C]57[/C][C]142.803923725819[/C][/ROW]
[ROW][C]58[/C][C]258.625290232214[/C][/ROW]
[ROW][C]59[/C][C]310.867437604433[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=278&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=278&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
11.46969384566990
21.80554700852678
33.16701752442263
43.20624390837629
53.49571165858971
63.49571165858971
73.51140997321589
83.66196668472011
94.06169444984537
104.14969878424928
114.59238500128201
124.76864760702653
134.84664832642104
145.09607692249637
155.12542681149579
165.21919534027996
175.33760245803301
185.72867451801992
196.28092349897688
206.39609255717894
216.6035591267608
226.68364690460908
236.76904720030817
246.98258039308016
257.150131407602
267.45117440407886
277.7032460690283
288.83232698670062
299.19480033803757
309.31167115850094
319.33648756224738
3210.7652985421463
3310.8496924363278
3411.6150764095636
3512.0146996598101
3612.1628560934349
3714.1909225836989
3814.4335409210157
3914.8699992327721
4015.3306325371399
4115.7914425461982
4217.1340456432715
4320.0249229501805
4420.5786156526313
4522.3559430492974
4623.0982733592233
4724.9257482540461
4825.8304253430201
4926.2513135468415
5041.0258515295429
5141.5887996530487
5259.8927614963974
5360.5214276476266
5469.0660013096672
5584.3802701364584
56100.611495174208
57142.803923725819
58258.625290232214
59310.867437604433


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