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 05:44:40 -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/t1226407563931tsmdaykfw32s.htm/, Retrieved Mon, 27 May 2024 11:37:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23407, Retrieved Mon, 27 May 2024 11:37:01 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Various EDA topic...] [2008-11-11 12:44:40] [821c4b3d195be8e737cf8c9dc649d3cf] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
106,7	97,3	93,5	104,8	124,9
110,2	101	94,7	105,6	132
125,9	113,2	112,9	118,3	151,4
100,1	101	99,2	89,9	108,9
106,4	105,7	105,6	90,2	121,3
114,8	113,9	113	107	123,4
81,3	86,4	83,1	64,5	90,3
87	96,5	81,1	92,6	79,3
104,2	103,3	96,9	95,8	117,2
108	114,9	104,3	94,3	116,9
105	105,8	97,7	91,2	120,8
94,5	94,2	102,6	86,3	96,1
92	98,4	89,9	77,6	100,8
95,9	99,4	96	82,5	105,3
108,8	108,8	112,7	97,7	116,1
103,4	112,6	107,1	83,3	112,8
102,1	104,4	106,2	84,2	114,5
110,1	112,2	121	92,8	117,2
83,2	81,1	101,2	77,4	77,1
82,7	97,1	83,2	72,5	80,1
106,8	112,6	105,1	88,8	120,3
113,7	113,8	113,3	93,4	133,4
102,5	107,8	99,1	92,6	109,4
96,6	103,2	100,3	90,7	93,2
92,1	103,3	93,5	81,6	91,2
95,6	101,2	98,8	84,1	99,2
102,3	107,7	106,2	88,1	108,2
98,6	110,4	98,3	85,3	101,5
98,2	101,9	102,1	82,9	106,9
104,5	115,9	117,1	84,8	104,4
84	89,9	101,5	71,2	77,9
73,8	88,6	80,5	68,9	60
103,9	117,2	105,9	94,3	99,5
106	123,9	109,5	97,6	95
97,2	100	97,2	85,6	105,6
102,6	103,6	114,5	91,9	102,5
89	94,1	93,5	75,8	93,3
93,8	98,7	100,9	79,8	97,3
116,7	119,5	121,1	99	127
106,8	112,7	116,5	88,5	111,7
98,5	104,4	109,3	86,7	96,4
118,7	124,7	118,1	97,9	133
90	89,1	108,3	94,3	72,2
91,9	97	105,4	72,9	95,8
113,3	121,6	116,2	91,8	124,1
113,1	118,8	111,2	93,2	127,6
104,1	114	105,8	86,5	110,7
108,7	111,5	122,7	98,9	104,6
96,7	97,2	99,5	77,2	112,7
101	102,5	107,9	79,4	115,3
116,9	113,4	124,6	90,4	139,4
105,8	109,8	115	81,4	119
99	104,9	110,3	85,8	97,4
129,4	126,1	132,7	103,6	154
83	80	99,7	73,6	81,5
88,9	96,8	96,5	75,7	88,8
115,9	117,2	118,7	99,2	127,7
104,2	112,3	112,9	88,7	105,1
113,4	117,3	130,5	94,6	114,9
112,2	111,1	137,9	98,7	106,4

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 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=23407&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]3 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=23407&T=0

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






Summary of Dendrogram
LabelHeight
11.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.60267793113257
66
76.04648658313239
86.107372593841
96.45368112010501
106.81102048154313
116.8622153857191
127.0128453569147
137.66016096709536
147.71686464828818
158.85607136375944
168.94475193585276
178.95153618101385
189.39912978430005
199.66436754267965
209.8777521198984
2111.1657039324978
2211.4150218295894
2311.7454217764764
2412.0474063598768
2512.5154359306909
2612.5654287630785
2712.8607325580086
2812.9172238594827
2913.5535973084639
3013.8837443883003
3114.2651315319852
3214.9127135427730
3316.3065652784745
3416.5576265235264
3516.867127793433
3617.6846354763138
3718.9863736311343
3819.9488838810722
3920.6935858573298
4023.1032243727837
4125.0706386629349
4225.9268101095106
4328.1700195243099
4428.8624848158755
4529.2728543193178
4630.3756282028669
4731.5113788522284
4836.2963404628255
4939.4410816308950
5041.3721940180458
5146.7225424578941
5246.8575925073069
5364.9471168468091
5469.8488139252402
5578.084432427651
5688.7162480207892
57157.470952823292
58222.477645426062
59569.54685486186

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.81934053986603 \tabularnewline
2 & 3.4957116585897 \tabularnewline
3 & 3.63180395946697 \tabularnewline
4 & 4.33474336033865 \tabularnewline
5 & 5.60267793113257 \tabularnewline
6 & 6 \tabularnewline
7 & 6.04648658313239 \tabularnewline
8 & 6.107372593841 \tabularnewline
9 & 6.45368112010501 \tabularnewline
10 & 6.81102048154313 \tabularnewline
11 & 6.8622153857191 \tabularnewline
12 & 7.0128453569147 \tabularnewline
13 & 7.66016096709536 \tabularnewline
14 & 7.71686464828818 \tabularnewline
15 & 8.85607136375944 \tabularnewline
16 & 8.94475193585276 \tabularnewline
17 & 8.95153618101385 \tabularnewline
18 & 9.39912978430005 \tabularnewline
19 & 9.66436754267965 \tabularnewline
20 & 9.8777521198984 \tabularnewline
21 & 11.1657039324978 \tabularnewline
22 & 11.4150218295894 \tabularnewline
23 & 11.7454217764764 \tabularnewline
24 & 12.0474063598768 \tabularnewline
25 & 12.5154359306909 \tabularnewline
26 & 12.5654287630785 \tabularnewline
27 & 12.8607325580086 \tabularnewline
28 & 12.9172238594827 \tabularnewline
29 & 13.5535973084639 \tabularnewline
30 & 13.8837443883003 \tabularnewline
31 & 14.2651315319852 \tabularnewline
32 & 14.9127135427730 \tabularnewline
33 & 16.3065652784745 \tabularnewline
34 & 16.5576265235264 \tabularnewline
35 & 16.867127793433 \tabularnewline
36 & 17.6846354763138 \tabularnewline
37 & 18.9863736311343 \tabularnewline
38 & 19.9488838810722 \tabularnewline
39 & 20.6935858573298 \tabularnewline
40 & 23.1032243727837 \tabularnewline
41 & 25.0706386629349 \tabularnewline
42 & 25.9268101095106 \tabularnewline
43 & 28.1700195243099 \tabularnewline
44 & 28.8624848158755 \tabularnewline
45 & 29.2728543193178 \tabularnewline
46 & 30.3756282028669 \tabularnewline
47 & 31.5113788522284 \tabularnewline
48 & 36.2963404628255 \tabularnewline
49 & 39.4410816308950 \tabularnewline
50 & 41.3721940180458 \tabularnewline
51 & 46.7225424578941 \tabularnewline
52 & 46.8575925073069 \tabularnewline
53 & 64.9471168468091 \tabularnewline
54 & 69.8488139252402 \tabularnewline
55 & 78.084432427651 \tabularnewline
56 & 88.7162480207892 \tabularnewline
57 & 157.470952823292 \tabularnewline
58 & 222.477645426062 \tabularnewline
59 & 569.54685486186 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23407&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.81934053986603[/C][/ROW]
[ROW][C]2[/C][C]3.4957116585897[/C][/ROW]
[ROW][C]3[/C][C]3.63180395946697[/C][/ROW]
[ROW][C]4[/C][C]4.33474336033865[/C][/ROW]
[ROW][C]5[/C][C]5.60267793113257[/C][/ROW]
[ROW][C]6[/C][C]6[/C][/ROW]
[ROW][C]7[/C][C]6.04648658313239[/C][/ROW]
[ROW][C]8[/C][C]6.107372593841[/C][/ROW]
[ROW][C]9[/C][C]6.45368112010501[/C][/ROW]
[ROW][C]10[/C][C]6.81102048154313[/C][/ROW]
[ROW][C]11[/C][C]6.8622153857191[/C][/ROW]
[ROW][C]12[/C][C]7.0128453569147[/C][/ROW]
[ROW][C]13[/C][C]7.66016096709536[/C][/ROW]
[ROW][C]14[/C][C]7.71686464828818[/C][/ROW]
[ROW][C]15[/C][C]8.85607136375944[/C][/ROW]
[ROW][C]16[/C][C]8.94475193585276[/C][/ROW]
[ROW][C]17[/C][C]8.95153618101385[/C][/ROW]
[ROW][C]18[/C][C]9.39912978430005[/C][/ROW]
[ROW][C]19[/C][C]9.66436754267965[/C][/ROW]
[ROW][C]20[/C][C]9.8777521198984[/C][/ROW]
[ROW][C]21[/C][C]11.1657039324978[/C][/ROW]
[ROW][C]22[/C][C]11.4150218295894[/C][/ROW]
[ROW][C]23[/C][C]11.7454217764764[/C][/ROW]
[ROW][C]24[/C][C]12.0474063598768[/C][/ROW]
[ROW][C]25[/C][C]12.5154359306909[/C][/ROW]
[ROW][C]26[/C][C]12.5654287630785[/C][/ROW]
[ROW][C]27[/C][C]12.8607325580086[/C][/ROW]
[ROW][C]28[/C][C]12.9172238594827[/C][/ROW]
[ROW][C]29[/C][C]13.5535973084639[/C][/ROW]
[ROW][C]30[/C][C]13.8837443883003[/C][/ROW]
[ROW][C]31[/C][C]14.2651315319852[/C][/ROW]
[ROW][C]32[/C][C]14.9127135427730[/C][/ROW]
[ROW][C]33[/C][C]16.3065652784745[/C][/ROW]
[ROW][C]34[/C][C]16.5576265235264[/C][/ROW]
[ROW][C]35[/C][C]16.867127793433[/C][/ROW]
[ROW][C]36[/C][C]17.6846354763138[/C][/ROW]
[ROW][C]37[/C][C]18.9863736311343[/C][/ROW]
[ROW][C]38[/C][C]19.9488838810722[/C][/ROW]
[ROW][C]39[/C][C]20.6935858573298[/C][/ROW]
[ROW][C]40[/C][C]23.1032243727837[/C][/ROW]
[ROW][C]41[/C][C]25.0706386629349[/C][/ROW]
[ROW][C]42[/C][C]25.9268101095106[/C][/ROW]
[ROW][C]43[/C][C]28.1700195243099[/C][/ROW]
[ROW][C]44[/C][C]28.8624848158755[/C][/ROW]
[ROW][C]45[/C][C]29.2728543193178[/C][/ROW]
[ROW][C]46[/C][C]30.3756282028669[/C][/ROW]
[ROW][C]47[/C][C]31.5113788522284[/C][/ROW]
[ROW][C]48[/C][C]36.2963404628255[/C][/ROW]
[ROW][C]49[/C][C]39.4410816308950[/C][/ROW]
[ROW][C]50[/C][C]41.3721940180458[/C][/ROW]
[ROW][C]51[/C][C]46.7225424578941[/C][/ROW]
[ROW][C]52[/C][C]46.8575925073069[/C][/ROW]
[ROW][C]53[/C][C]64.9471168468091[/C][/ROW]
[ROW][C]54[/C][C]69.8488139252402[/C][/ROW]
[ROW][C]55[/C][C]78.084432427651[/C][/ROW]
[ROW][C]56[/C][C]88.7162480207892[/C][/ROW]
[ROW][C]57[/C][C]157.470952823292[/C][/ROW]
[ROW][C]58[/C][C]222.477645426062[/C][/ROW]
[ROW][C]59[/C][C]569.54685486186[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23407&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23407&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.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.60267793113257
66
76.04648658313239
86.107372593841
96.45368112010501
106.81102048154313
116.8622153857191
127.0128453569147
137.66016096709536
147.71686464828818
158.85607136375944
168.94475193585276
178.95153618101385
189.39912978430005
199.66436754267965
209.8777521198984
2111.1657039324978
2211.4150218295894
2311.7454217764764
2412.0474063598768
2512.5154359306909
2612.5654287630785
2712.8607325580086
2812.9172238594827
2913.5535973084639
3013.8837443883003
3114.2651315319852
3214.9127135427730
3316.3065652784745
3416.5576265235264
3516.867127793433
3617.6846354763138
3718.9863736311343
3819.9488838810722
3920.6935858573298
4023.1032243727837
4125.0706386629349
4225.9268101095106
4328.1700195243099
4428.8624848158755
4529.2728543193178
4630.3756282028669
4731.5113788522284
4836.2963404628255
4939.4410816308950
5041.3721940180458
5146.7225424578941
5246.8575925073069
5364.9471168468091
5469.8488139252402
5578.084432427651
5688.7162480207892
57157.470952823292
58222.477645426062
59569.54685486186


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