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 computationSat, 10 Nov 2007 04:28:08 -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/10/t1194693854t248aee242sibph.htm/, Retrieved Tue, 30 Apr 2024 07:05:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=5003, Retrieved Tue, 30 Apr 2024 07:05:14 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [paper] [2007-11-10 11:28:08] [8ce1ad2ac57e06e10fb37a1292ae8cb6] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
103,1	98,6	98,1	98,6
100,6	98	101,1	98
103,1	106,8	111,1	106,8
95,5	96,6	93,3	96,7
90,5	100,1	100	100,2
90,9	107,7	108	107,7
88,8	91,5	70,4	92
90,7	97,8	75,4	98,4
94,3	107,4	105,5	107,4
104,6	117,5	112,3	117,7
111,1	105,6	102,5	105,7
110,8	97,4	93,5	97,5
107,2	99,5	86,7	99,9
99	98	95,2	98,2
99	104,3	103,8	104,5
91	100,6	97	100,8
96,2	101,1	95,5	101,5
96,9	103,9	101	103,9
96,2	96,9	67,5	99,6
100,1	95,5	64	98,4
99	108,4	106,7	112,7
115,4	117	100,6	118,4
106,9	103,8	101,2	108,1
107,1	100,8	93,1	105,4
99,3	110,6	84,2	114,6
99,2	104	85,8	106,9
108,3	112,6	91,8	115,9
105,6	107,3	92,4	109,8
99,5	98,9	80,3	101,8
107,4	109,8	79,7	114,2
93,1	104,9	62,5	110,8
88,1	102,2	57,1	108,4
110,7	123,9	100,8	127,5
113,1	124,9	100,7	128,6
99,6	112,7	86,2	116,6
93,6	121,9	83,2	127,4
98,6	100,6	71,7	105
99,6	104,3	77,5	108,3
114,3	120,4	89,8	125
107,8	107,5	80,3	111,6
101,2	102,9	78,7	106,5
112,5	125,6	93,8	130,3
100,5	107,5	57,6	115
93,9	108,8	60,6	116,1
116,2	128,4	91	134
112	121,1	85,3	126,5
106,4	119,5	77,4	125,8
95,7	128,7	77,3	136,4
96	108,7	68,3	114,9
95,8	105,5	69,9	110,9
103	119,8	81,7	125,5
102,2	111,3	75,1	116,8
98,4	110,6	69,9	116,8
111,4	120,1	84	125,5
86,6	97,5	54,3	104,2
91,3	107,7	60	115,1
107,9	127,3	89,9	132,8
101,8	117,2	77	123,3
104,4	119,8	85,3	124,8
93,4	116,2	77,6	122
100,1	111	69,2	117,4
98,5	112,4	75,5	117,9
112,9	130,6	85,7	137,4
101,4	109,1	72,2	114,6
107,1	118,8	79,9	124,7
110,8	123,9	85,3	129,6
90,3	101,6	52,2	109,4
95,5	112,8	61,2	120,9
111,4	128	82,4	134,9
113	129,6	85,4	136,3
107,5	125,8	78,2	133,2
95,9	119,5	70,2	127,2
106,3	115,7	70,2	122,7
105,2	113,6	69,3	120,5
117,2	129,7	77,5	137,8
106,9	112	66,1	119,1
108,2	116,8	69	124,3
110	126,3	75,3	134,3
96,1	112,9	58,2	121,7
100,6	115,9	59,7	125

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=5003&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
11.51986841535706
21.97484176581314
32.01246117974981
42.82488937836510
52.90516780926679
62.9698484809835
73.03315017762062
83.05450486986026
93.14006369362151
103.16385840391127
113.53553390593274
123.54541958024717
133.57351367704112
143.9255572852781
153.99624824053762
164.01497197997696
174.03360880601975
184.20119030752
194.24146201208969
204.47995535692043
215.32259335286849
225.37028863283903
235.49636243346452
245.55517776493245
255.56116431211975
265.57584026246159
276.07376492736444
286.56201188660917
296.70987042010081
307.12297742613039
317.56891971418106
327.95201949437366
337.99631006768038
348.02184517427256
358.12065295182214
368.1872419873922
378.21561582749469
388.32886546895794
398.57554662980734
409.0321674102571
419.07524104363074
429.42333855105635
439.48135684894045
449.64624279188536
4510.4527508341106
4610.9016093571052
4711.5697643437436
4811.7393922532449
4911.8997043162546
5012.3623326350073
5112.3878973195615
5213.4201785324492
5314.2240552376252
5414.5176298178522
5514.8035519417472
5616.9181929480329
5717.7726438480242
5817.8845879366242
5917.9796423013800
6019.1654105920298
6120.8181545887518
6223.0932035390893
6324.4867985725525
6424.9013041131454
6525.9603182125375
6631.5420308494674
6736.5159944913662
6837.3895657235242
6947.7613293810131
7047.7771377975562
7154.7250029057309
7257.7723710737579
7370.1473886356615
7471.9044527827645
7571.9538798655109
76138.808091055222
77152.031189639636
78403.878745038168
79507.816613145297

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.51986841535706 \tabularnewline
2 & 1.97484176581314 \tabularnewline
3 & 2.01246117974981 \tabularnewline
4 & 2.82488937836510 \tabularnewline
5 & 2.90516780926679 \tabularnewline
6 & 2.9698484809835 \tabularnewline
7 & 3.03315017762062 \tabularnewline
8 & 3.05450486986026 \tabularnewline
9 & 3.14006369362151 \tabularnewline
10 & 3.16385840391127 \tabularnewline
11 & 3.53553390593274 \tabularnewline
12 & 3.54541958024717 \tabularnewline
13 & 3.57351367704112 \tabularnewline
14 & 3.9255572852781 \tabularnewline
15 & 3.99624824053762 \tabularnewline
16 & 4.01497197997696 \tabularnewline
17 & 4.03360880601975 \tabularnewline
18 & 4.20119030752 \tabularnewline
19 & 4.24146201208969 \tabularnewline
20 & 4.47995535692043 \tabularnewline
21 & 5.32259335286849 \tabularnewline
22 & 5.37028863283903 \tabularnewline
23 & 5.49636243346452 \tabularnewline
24 & 5.55517776493245 \tabularnewline
25 & 5.56116431211975 \tabularnewline
26 & 5.57584026246159 \tabularnewline
27 & 6.07376492736444 \tabularnewline
28 & 6.56201188660917 \tabularnewline
29 & 6.70987042010081 \tabularnewline
30 & 7.12297742613039 \tabularnewline
31 & 7.56891971418106 \tabularnewline
32 & 7.95201949437366 \tabularnewline
33 & 7.99631006768038 \tabularnewline
34 & 8.02184517427256 \tabularnewline
35 & 8.12065295182214 \tabularnewline
36 & 8.1872419873922 \tabularnewline
37 & 8.21561582749469 \tabularnewline
38 & 8.32886546895794 \tabularnewline
39 & 8.57554662980734 \tabularnewline
40 & 9.0321674102571 \tabularnewline
41 & 9.07524104363074 \tabularnewline
42 & 9.42333855105635 \tabularnewline
43 & 9.48135684894045 \tabularnewline
44 & 9.64624279188536 \tabularnewline
45 & 10.4527508341106 \tabularnewline
46 & 10.9016093571052 \tabularnewline
47 & 11.5697643437436 \tabularnewline
48 & 11.7393922532449 \tabularnewline
49 & 11.8997043162546 \tabularnewline
50 & 12.3623326350073 \tabularnewline
51 & 12.3878973195615 \tabularnewline
52 & 13.4201785324492 \tabularnewline
53 & 14.2240552376252 \tabularnewline
54 & 14.5176298178522 \tabularnewline
55 & 14.8035519417472 \tabularnewline
56 & 16.9181929480329 \tabularnewline
57 & 17.7726438480242 \tabularnewline
58 & 17.8845879366242 \tabularnewline
59 & 17.9796423013800 \tabularnewline
60 & 19.1654105920298 \tabularnewline
61 & 20.8181545887518 \tabularnewline
62 & 23.0932035390893 \tabularnewline
63 & 24.4867985725525 \tabularnewline
64 & 24.9013041131454 \tabularnewline
65 & 25.9603182125375 \tabularnewline
66 & 31.5420308494674 \tabularnewline
67 & 36.5159944913662 \tabularnewline
68 & 37.3895657235242 \tabularnewline
69 & 47.7613293810131 \tabularnewline
70 & 47.7771377975562 \tabularnewline
71 & 54.7250029057309 \tabularnewline
72 & 57.7723710737579 \tabularnewline
73 & 70.1473886356615 \tabularnewline
74 & 71.9044527827645 \tabularnewline
75 & 71.9538798655109 \tabularnewline
76 & 138.808091055222 \tabularnewline
77 & 152.031189639636 \tabularnewline
78 & 403.878745038168 \tabularnewline
79 & 507.816613145297 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=5003&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.51986841535706[/C][/ROW]
[ROW][C]2[/C][C]1.97484176581314[/C][/ROW]
[ROW][C]3[/C][C]2.01246117974981[/C][/ROW]
[ROW][C]4[/C][C]2.82488937836510[/C][/ROW]
[ROW][C]5[/C][C]2.90516780926679[/C][/ROW]
[ROW][C]6[/C][C]2.9698484809835[/C][/ROW]
[ROW][C]7[/C][C]3.03315017762062[/C][/ROW]
[ROW][C]8[/C][C]3.05450486986026[/C][/ROW]
[ROW][C]9[/C][C]3.14006369362151[/C][/ROW]
[ROW][C]10[/C][C]3.16385840391127[/C][/ROW]
[ROW][C]11[/C][C]3.53553390593274[/C][/ROW]
[ROW][C]12[/C][C]3.54541958024717[/C][/ROW]
[ROW][C]13[/C][C]3.57351367704112[/C][/ROW]
[ROW][C]14[/C][C]3.9255572852781[/C][/ROW]
[ROW][C]15[/C][C]3.99624824053762[/C][/ROW]
[ROW][C]16[/C][C]4.01497197997696[/C][/ROW]
[ROW][C]17[/C][C]4.03360880601975[/C][/ROW]
[ROW][C]18[/C][C]4.20119030752[/C][/ROW]
[ROW][C]19[/C][C]4.24146201208969[/C][/ROW]
[ROW][C]20[/C][C]4.47995535692043[/C][/ROW]
[ROW][C]21[/C][C]5.32259335286849[/C][/ROW]
[ROW][C]22[/C][C]5.37028863283903[/C][/ROW]
[ROW][C]23[/C][C]5.49636243346452[/C][/ROW]
[ROW][C]24[/C][C]5.55517776493245[/C][/ROW]
[ROW][C]25[/C][C]5.56116431211975[/C][/ROW]
[ROW][C]26[/C][C]5.57584026246159[/C][/ROW]
[ROW][C]27[/C][C]6.07376492736444[/C][/ROW]
[ROW][C]28[/C][C]6.56201188660917[/C][/ROW]
[ROW][C]29[/C][C]6.70987042010081[/C][/ROW]
[ROW][C]30[/C][C]7.12297742613039[/C][/ROW]
[ROW][C]31[/C][C]7.56891971418106[/C][/ROW]
[ROW][C]32[/C][C]7.95201949437366[/C][/ROW]
[ROW][C]33[/C][C]7.99631006768038[/C][/ROW]
[ROW][C]34[/C][C]8.02184517427256[/C][/ROW]
[ROW][C]35[/C][C]8.12065295182214[/C][/ROW]
[ROW][C]36[/C][C]8.1872419873922[/C][/ROW]
[ROW][C]37[/C][C]8.21561582749469[/C][/ROW]
[ROW][C]38[/C][C]8.32886546895794[/C][/ROW]
[ROW][C]39[/C][C]8.57554662980734[/C][/ROW]
[ROW][C]40[/C][C]9.0321674102571[/C][/ROW]
[ROW][C]41[/C][C]9.07524104363074[/C][/ROW]
[ROW][C]42[/C][C]9.42333855105635[/C][/ROW]
[ROW][C]43[/C][C]9.48135684894045[/C][/ROW]
[ROW][C]44[/C][C]9.64624279188536[/C][/ROW]
[ROW][C]45[/C][C]10.4527508341106[/C][/ROW]
[ROW][C]46[/C][C]10.9016093571052[/C][/ROW]
[ROW][C]47[/C][C]11.5697643437436[/C][/ROW]
[ROW][C]48[/C][C]11.7393922532449[/C][/ROW]
[ROW][C]49[/C][C]11.8997043162546[/C][/ROW]
[ROW][C]50[/C][C]12.3623326350073[/C][/ROW]
[ROW][C]51[/C][C]12.3878973195615[/C][/ROW]
[ROW][C]52[/C][C]13.4201785324492[/C][/ROW]
[ROW][C]53[/C][C]14.2240552376252[/C][/ROW]
[ROW][C]54[/C][C]14.5176298178522[/C][/ROW]
[ROW][C]55[/C][C]14.8035519417472[/C][/ROW]
[ROW][C]56[/C][C]16.9181929480329[/C][/ROW]
[ROW][C]57[/C][C]17.7726438480242[/C][/ROW]
[ROW][C]58[/C][C]17.8845879366242[/C][/ROW]
[ROW][C]59[/C][C]17.9796423013800[/C][/ROW]
[ROW][C]60[/C][C]19.1654105920298[/C][/ROW]
[ROW][C]61[/C][C]20.8181545887518[/C][/ROW]
[ROW][C]62[/C][C]23.0932035390893[/C][/ROW]
[ROW][C]63[/C][C]24.4867985725525[/C][/ROW]
[ROW][C]64[/C][C]24.9013041131454[/C][/ROW]
[ROW][C]65[/C][C]25.9603182125375[/C][/ROW]
[ROW][C]66[/C][C]31.5420308494674[/C][/ROW]
[ROW][C]67[/C][C]36.5159944913662[/C][/ROW]
[ROW][C]68[/C][C]37.3895657235242[/C][/ROW]
[ROW][C]69[/C][C]47.7613293810131[/C][/ROW]
[ROW][C]70[/C][C]47.7771377975562[/C][/ROW]
[ROW][C]71[/C][C]54.7250029057309[/C][/ROW]
[ROW][C]72[/C][C]57.7723710737579[/C][/ROW]
[ROW][C]73[/C][C]70.1473886356615[/C][/ROW]
[ROW][C]74[/C][C]71.9044527827645[/C][/ROW]
[ROW][C]75[/C][C]71.9538798655109[/C][/ROW]
[ROW][C]76[/C][C]138.808091055222[/C][/ROW]
[ROW][C]77[/C][C]152.031189639636[/C][/ROW]
[ROW][C]78[/C][C]403.878745038168[/C][/ROW]
[ROW][C]79[/C][C]507.816613145297[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=5003&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=5003&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.51986841535706
21.97484176581314
32.01246117974981
42.82488937836510
52.90516780926679
62.9698484809835
73.03315017762062
83.05450486986026
93.14006369362151
103.16385840391127
113.53553390593274
123.54541958024717
133.57351367704112
143.9255572852781
153.99624824053762
164.01497197997696
174.03360880601975
184.20119030752
194.24146201208969
204.47995535692043
215.32259335286849
225.37028863283903
235.49636243346452
245.55517776493245
255.56116431211975
265.57584026246159
276.07376492736444
286.56201188660917
296.70987042010081
307.12297742613039
317.56891971418106
327.95201949437366
337.99631006768038
348.02184517427256
358.12065295182214
368.1872419873922
378.21561582749469
388.32886546895794
398.57554662980734
409.0321674102571
419.07524104363074
429.42333855105635
439.48135684894045
449.64624279188536
4510.4527508341106
4610.9016093571052
4711.5697643437436
4811.7393922532449
4911.8997043162546
5012.3623326350073
5112.3878973195615
5213.4201785324492
5314.2240552376252
5414.5176298178522
5514.8035519417472
5616.9181929480329
5717.7726438480242
5817.8845879366242
5917.9796423013800
6019.1654105920298
6120.8181545887518
6223.0932035390893
6324.4867985725525
6424.9013041131454
6525.9603182125375
6631.5420308494674
6736.5159944913662
6837.3895657235242
6947.7613293810131
7047.7771377975562
7154.7250029057309
7257.7723710737579
7370.1473886356615
7471.9044527827645
7571.9538798655109
76138.808091055222
77152.031189639636
78403.878745038168
79507.816613145297


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