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 computationThu, 01 Nov 2007 02:44:16 -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/01/i664u0h8otbyvm21193910293.htm/, Retrieved Tue, 07 May 2024 16:02:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=61, Retrieved Tue, 07 May 2024 16:02:47 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Cluster -25 en +2...] [2007-11-01 09:44:16] [2cdb7403ed3391afb545b8c0d20da37e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
140	373
132	371
117	354
114	357
113	363
110	364
107	363
103	358
98	357
98	357
137	380
148	378
147	376
139	380
130	379
128	384
127	392
123	394
118	392
114	396
108	392
111	396
151	419
159	421
158	420
148	418
138	410
137	418
136	426
133	428
126	430
120	424
114	423
116	427
153	441
162	449
161	452
149	462
139	455
135	461
130	461
127	463
122	462
117	456
112	455
113	456
149	472
157	472
157	471
147	465
137	459
132	465
125	468
123	467
117	463
114	460
111	462
112	461
144	476
150	476
149	471
134	453
123	443
116	442
117	444
111	438
105	427
102	424
95	416
93	406
124	431
130	434

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=61&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
21
31
41.41421356237310
51.41421356237310
61.41421356237310
72
82.23606797749979
92.23606797749979
102.23606797749979
112.23606797749979
122.82842712474619
133
143.16227766016838
153.16227766016838
163.16227766016838
173.42300831451815
183.60555127546399
193.60555127546399
203.60555127546399
214.24264068711928
224.24264068711928
234.47213595499958
244.47213595499958
255.05409255338946
265.09901951359278
275.36968341626806
285.3851648071345
295.3851648071345
305.59460848827082
315.81475009280696
325.89779636853229
336.79869268479038
347.14073503395199
357.4980161288279
368.0238642356092
378.03340850144742
388.06225774829855
398.09939788642314
408.24621125123532
419.1200541274224
4210.1980390271856
4310.5586098189921
4411.3792197525585
4512.2633987911162
4613.0690070292362
4716.0412841716290
4816.1702905593681
4916.8412261588121
5017.7173083825026
5117.7942896378464
5217.941562044205
5319.8235995678678
5421.6344504442762
5525.0874723880819
5625.5085754521729
5728.5058937428263
5835.3826179076600
5935.5868328347652
6043.470780118183
6147.1452730394948
6256.5385182089246
6381.5957721635439
6482.7135034244422
6596.1127996962216
66124.703376621690
67189.099566549510
68234.250609789229
69245.504244523435
70505.537626205761
711402.53639154265

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0 \tabularnewline
2 & 1 \tabularnewline
3 & 1 \tabularnewline
4 & 1.41421356237310 \tabularnewline
5 & 1.41421356237310 \tabularnewline
6 & 1.41421356237310 \tabularnewline
7 & 2 \tabularnewline
8 & 2.23606797749979 \tabularnewline
9 & 2.23606797749979 \tabularnewline
10 & 2.23606797749979 \tabularnewline
11 & 2.23606797749979 \tabularnewline
12 & 2.82842712474619 \tabularnewline
13 & 3 \tabularnewline
14 & 3.16227766016838 \tabularnewline
15 & 3.16227766016838 \tabularnewline
16 & 3.16227766016838 \tabularnewline
17 & 3.42300831451815 \tabularnewline
18 & 3.60555127546399 \tabularnewline
19 & 3.60555127546399 \tabularnewline
20 & 3.60555127546399 \tabularnewline
21 & 4.24264068711928 \tabularnewline
22 & 4.24264068711928 \tabularnewline
23 & 4.47213595499958 \tabularnewline
24 & 4.47213595499958 \tabularnewline
25 & 5.05409255338946 \tabularnewline
26 & 5.09901951359278 \tabularnewline
27 & 5.36968341626806 \tabularnewline
28 & 5.3851648071345 \tabularnewline
29 & 5.3851648071345 \tabularnewline
30 & 5.59460848827082 \tabularnewline
31 & 5.81475009280696 \tabularnewline
32 & 5.89779636853229 \tabularnewline
33 & 6.79869268479038 \tabularnewline
34 & 7.14073503395199 \tabularnewline
35 & 7.4980161288279 \tabularnewline
36 & 8.0238642356092 \tabularnewline
37 & 8.03340850144742 \tabularnewline
38 & 8.06225774829855 \tabularnewline
39 & 8.09939788642314 \tabularnewline
40 & 8.24621125123532 \tabularnewline
41 & 9.1200541274224 \tabularnewline
42 & 10.1980390271856 \tabularnewline
43 & 10.5586098189921 \tabularnewline
44 & 11.3792197525585 \tabularnewline
45 & 12.2633987911162 \tabularnewline
46 & 13.0690070292362 \tabularnewline
47 & 16.0412841716290 \tabularnewline
48 & 16.1702905593681 \tabularnewline
49 & 16.8412261588121 \tabularnewline
50 & 17.7173083825026 \tabularnewline
51 & 17.7942896378464 \tabularnewline
52 & 17.941562044205 \tabularnewline
53 & 19.8235995678678 \tabularnewline
54 & 21.6344504442762 \tabularnewline
55 & 25.0874723880819 \tabularnewline
56 & 25.5085754521729 \tabularnewline
57 & 28.5058937428263 \tabularnewline
58 & 35.3826179076600 \tabularnewline
59 & 35.5868328347652 \tabularnewline
60 & 43.470780118183 \tabularnewline
61 & 47.1452730394948 \tabularnewline
62 & 56.5385182089246 \tabularnewline
63 & 81.5957721635439 \tabularnewline
64 & 82.7135034244422 \tabularnewline
65 & 96.1127996962216 \tabularnewline
66 & 124.703376621690 \tabularnewline
67 & 189.099566549510 \tabularnewline
68 & 234.250609789229 \tabularnewline
69 & 245.504244523435 \tabularnewline
70 & 505.537626205761 \tabularnewline
71 & 1402.53639154265 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=61&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]1[/C][/ROW]
[ROW][C]3[/C][C]1[/C][/ROW]
[ROW][C]4[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]5[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]6[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]7[/C][C]2[/C][/ROW]
[ROW][C]8[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]9[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]10[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]11[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]12[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]13[/C][C]3[/C][/ROW]
[ROW][C]14[/C][C]3.16227766016838[/C][/ROW]
[ROW][C]15[/C][C]3.16227766016838[/C][/ROW]
[ROW][C]16[/C][C]3.16227766016838[/C][/ROW]
[ROW][C]17[/C][C]3.42300831451815[/C][/ROW]
[ROW][C]18[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]19[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]20[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]21[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]22[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]23[/C][C]4.47213595499958[/C][/ROW]
[ROW][C]24[/C][C]4.47213595499958[/C][/ROW]
[ROW][C]25[/C][C]5.05409255338946[/C][/ROW]
[ROW][C]26[/C][C]5.09901951359278[/C][/ROW]
[ROW][C]27[/C][C]5.36968341626806[/C][/ROW]
[ROW][C]28[/C][C]5.3851648071345[/C][/ROW]
[ROW][C]29[/C][C]5.3851648071345[/C][/ROW]
[ROW][C]30[/C][C]5.59460848827082[/C][/ROW]
[ROW][C]31[/C][C]5.81475009280696[/C][/ROW]
[ROW][C]32[/C][C]5.89779636853229[/C][/ROW]
[ROW][C]33[/C][C]6.79869268479038[/C][/ROW]
[ROW][C]34[/C][C]7.14073503395199[/C][/ROW]
[ROW][C]35[/C][C]7.4980161288279[/C][/ROW]
[ROW][C]36[/C][C]8.0238642356092[/C][/ROW]
[ROW][C]37[/C][C]8.03340850144742[/C][/ROW]
[ROW][C]38[/C][C]8.06225774829855[/C][/ROW]
[ROW][C]39[/C][C]8.09939788642314[/C][/ROW]
[ROW][C]40[/C][C]8.24621125123532[/C][/ROW]
[ROW][C]41[/C][C]9.1200541274224[/C][/ROW]
[ROW][C]42[/C][C]10.1980390271856[/C][/ROW]
[ROW][C]43[/C][C]10.5586098189921[/C][/ROW]
[ROW][C]44[/C][C]11.3792197525585[/C][/ROW]
[ROW][C]45[/C][C]12.2633987911162[/C][/ROW]
[ROW][C]46[/C][C]13.0690070292362[/C][/ROW]
[ROW][C]47[/C][C]16.0412841716290[/C][/ROW]
[ROW][C]48[/C][C]16.1702905593681[/C][/ROW]
[ROW][C]49[/C][C]16.8412261588121[/C][/ROW]
[ROW][C]50[/C][C]17.7173083825026[/C][/ROW]
[ROW][C]51[/C][C]17.7942896378464[/C][/ROW]
[ROW][C]52[/C][C]17.941562044205[/C][/ROW]
[ROW][C]53[/C][C]19.8235995678678[/C][/ROW]
[ROW][C]54[/C][C]21.6344504442762[/C][/ROW]
[ROW][C]55[/C][C]25.0874723880819[/C][/ROW]
[ROW][C]56[/C][C]25.5085754521729[/C][/ROW]
[ROW][C]57[/C][C]28.5058937428263[/C][/ROW]
[ROW][C]58[/C][C]35.3826179076600[/C][/ROW]
[ROW][C]59[/C][C]35.5868328347652[/C][/ROW]
[ROW][C]60[/C][C]43.470780118183[/C][/ROW]
[ROW][C]61[/C][C]47.1452730394948[/C][/ROW]
[ROW][C]62[/C][C]56.5385182089246[/C][/ROW]
[ROW][C]63[/C][C]81.5957721635439[/C][/ROW]
[ROW][C]64[/C][C]82.7135034244422[/C][/ROW]
[ROW][C]65[/C][C]96.1127996962216[/C][/ROW]
[ROW][C]66[/C][C]124.703376621690[/C][/ROW]
[ROW][C]67[/C][C]189.099566549510[/C][/ROW]
[ROW][C]68[/C][C]234.250609789229[/C][/ROW]
[ROW][C]69[/C][C]245.504244523435[/C][/ROW]
[ROW][C]70[/C][C]505.537626205761[/C][/ROW]
[ROW][C]71[/C][C]1402.53639154265[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=61&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=61&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
21
31
41.41421356237310
51.41421356237310
61.41421356237310
72
82.23606797749979
92.23606797749979
102.23606797749979
112.23606797749979
122.82842712474619
133
143.16227766016838
153.16227766016838
163.16227766016838
173.42300831451815
183.60555127546399
193.60555127546399
203.60555127546399
214.24264068711928
224.24264068711928
234.47213595499958
244.47213595499958
255.05409255338946
265.09901951359278
275.36968341626806
285.3851648071345
295.3851648071345
305.59460848827082
315.81475009280696
325.89779636853229
336.79869268479038
347.14073503395199
357.4980161288279
368.0238642356092
378.03340850144742
388.06225774829855
398.09939788642314
408.24621125123532
419.1200541274224
4210.1980390271856
4310.5586098189921
4411.3792197525585
4512.2633987911162
4613.0690070292362
4716.0412841716290
4816.1702905593681
4916.8412261588121
5017.7173083825026
5117.7942896378464
5217.941562044205
5319.8235995678678
5421.6344504442762
5525.0874723880819
5625.5085754521729
5728.5058937428263
5835.3826179076600
5935.5868328347652
6043.470780118183
6147.1452730394948
6256.5385182089246
6381.5957721635439
6482.7135034244422
6596.1127996962216
66124.703376621690
67189.099566549510
68234.250609789229
69245.504244523435
70505.537626205761
711402.53639154265


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