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 07:30:49 -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/t12264139233lzbacvqtmeoz27.htm/, Retrieved Sun, 19 May 2024 08:55:36 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23530, Retrieved Sun, 19 May 2024 08:55:36 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Q2-3] [2008-11-11 14:30:49] [541f63fa3157af9df10fc4d202b2a90b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
81,6
84,1
88,1
85,3
82,9
84,8
71,2
68,9
94,3
97,6
85,6
91,9
75,8
79,8
99
88,5
86,7
97,9
94,3
72,9
91,8
93,2
86,5
98,9
77,2
79,4
90,4
81,4
85,8
103,6
73,6
75,7
99,2
88,7
94,6
98,7
84,2
87,7
103,3
88,2
93,4
106,3
73,1
78,6
101,6
101,4
98,5
99
89,5
83,5
97,4
87,8
90,4
101,6
80
81,7
96,4
110,2
101,1
89,3

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'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23530&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23530&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23530&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'Sir Ronald Aylmer Fisher' @ 193.190.124.24






Summary of Dendrogram
LabelHeight
10
20
30
40
50.0999999999999943
60.0999999999999943
70.100000000000009
80.100000000000009
90.100000000000009
100.100000000000009
110.133333333333326
120.199999999999989
130.199999999999989
140.200000000000003
150.200000000000003
160.200000000000003
170.200000000000003
180.200000000000003
190.200000000000003
200.200000000000003
210.266666666666652
220.299999999999988
230.299999999999997
240.31666666666667
250.399999999999996
260.466666666666664
270.466666666666678
280.583333333333343
290.59999999999999
300.599999999999994
310.699999999999996
320.73333333333333
330.833333333333329
340.850000000000001
351.30000000000000
361.39999999999999
371.68333333333333
381.90000000000001
392.06666666666666
402.09333333333334
412.30000000000000
422.35999999999998
433.24000000000001
443.7
454.43333333333332
465.47
475.68666666666668
487.11999999999999
497.335
507.55
518.35142857142856
529.78333333333334
5311.5750000000000
5423.5866666666667
5530.845
5642.9583333333333
5761.11
58100.082985842986
59297.015585585586

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0 \tabularnewline
2 & 0 \tabularnewline
3 & 0 \tabularnewline
4 & 0 \tabularnewline
5 & 0.0999999999999943 \tabularnewline
6 & 0.0999999999999943 \tabularnewline
7 & 0.100000000000009 \tabularnewline
8 & 0.100000000000009 \tabularnewline
9 & 0.100000000000009 \tabularnewline
10 & 0.100000000000009 \tabularnewline
11 & 0.133333333333326 \tabularnewline
12 & 0.199999999999989 \tabularnewline
13 & 0.199999999999989 \tabularnewline
14 & 0.200000000000003 \tabularnewline
15 & 0.200000000000003 \tabularnewline
16 & 0.200000000000003 \tabularnewline
17 & 0.200000000000003 \tabularnewline
18 & 0.200000000000003 \tabularnewline
19 & 0.200000000000003 \tabularnewline
20 & 0.200000000000003 \tabularnewline
21 & 0.266666666666652 \tabularnewline
22 & 0.299999999999988 \tabularnewline
23 & 0.299999999999997 \tabularnewline
24 & 0.31666666666667 \tabularnewline
25 & 0.399999999999996 \tabularnewline
26 & 0.466666666666664 \tabularnewline
27 & 0.466666666666678 \tabularnewline
28 & 0.583333333333343 \tabularnewline
29 & 0.59999999999999 \tabularnewline
30 & 0.599999999999994 \tabularnewline
31 & 0.699999999999996 \tabularnewline
32 & 0.73333333333333 \tabularnewline
33 & 0.833333333333329 \tabularnewline
34 & 0.850000000000001 \tabularnewline
35 & 1.30000000000000 \tabularnewline
36 & 1.39999999999999 \tabularnewline
37 & 1.68333333333333 \tabularnewline
38 & 1.90000000000001 \tabularnewline
39 & 2.06666666666666 \tabularnewline
40 & 2.09333333333334 \tabularnewline
41 & 2.30000000000000 \tabularnewline
42 & 2.35999999999998 \tabularnewline
43 & 3.24000000000001 \tabularnewline
44 & 3.7 \tabularnewline
45 & 4.43333333333332 \tabularnewline
46 & 5.47 \tabularnewline
47 & 5.68666666666668 \tabularnewline
48 & 7.11999999999999 \tabularnewline
49 & 7.335 \tabularnewline
50 & 7.55 \tabularnewline
51 & 8.35142857142856 \tabularnewline
52 & 9.78333333333334 \tabularnewline
53 & 11.5750000000000 \tabularnewline
54 & 23.5866666666667 \tabularnewline
55 & 30.845 \tabularnewline
56 & 42.9583333333333 \tabularnewline
57 & 61.11 \tabularnewline
58 & 100.082985842986 \tabularnewline
59 & 297.015585585586 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23530&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]0[/C][/ROW]
[ROW][C]3[/C][C]0[/C][/ROW]
[ROW][C]4[/C][C]0[/C][/ROW]
[ROW][C]5[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]6[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]7[/C][C]0.100000000000009[/C][/ROW]
[ROW][C]8[/C][C]0.100000000000009[/C][/ROW]
[ROW][C]9[/C][C]0.100000000000009[/C][/ROW]
[ROW][C]10[/C][C]0.100000000000009[/C][/ROW]
[ROW][C]11[/C][C]0.133333333333326[/C][/ROW]
[ROW][C]12[/C][C]0.199999999999989[/C][/ROW]
[ROW][C]13[/C][C]0.199999999999989[/C][/ROW]
[ROW][C]14[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]15[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]16[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]17[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]18[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]19[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]20[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]21[/C][C]0.266666666666652[/C][/ROW]
[ROW][C]22[/C][C]0.299999999999988[/C][/ROW]
[ROW][C]23[/C][C]0.299999999999997[/C][/ROW]
[ROW][C]24[/C][C]0.31666666666667[/C][/ROW]
[ROW][C]25[/C][C]0.399999999999996[/C][/ROW]
[ROW][C]26[/C][C]0.466666666666664[/C][/ROW]
[ROW][C]27[/C][C]0.466666666666678[/C][/ROW]
[ROW][C]28[/C][C]0.583333333333343[/C][/ROW]
[ROW][C]29[/C][C]0.59999999999999[/C][/ROW]
[ROW][C]30[/C][C]0.599999999999994[/C][/ROW]
[ROW][C]31[/C][C]0.699999999999996[/C][/ROW]
[ROW][C]32[/C][C]0.73333333333333[/C][/ROW]
[ROW][C]33[/C][C]0.833333333333329[/C][/ROW]
[ROW][C]34[/C][C]0.850000000000001[/C][/ROW]
[ROW][C]35[/C][C]1.30000000000000[/C][/ROW]
[ROW][C]36[/C][C]1.39999999999999[/C][/ROW]
[ROW][C]37[/C][C]1.68333333333333[/C][/ROW]
[ROW][C]38[/C][C]1.90000000000001[/C][/ROW]
[ROW][C]39[/C][C]2.06666666666666[/C][/ROW]
[ROW][C]40[/C][C]2.09333333333334[/C][/ROW]
[ROW][C]41[/C][C]2.30000000000000[/C][/ROW]
[ROW][C]42[/C][C]2.35999999999998[/C][/ROW]
[ROW][C]43[/C][C]3.24000000000001[/C][/ROW]
[ROW][C]44[/C][C]3.7[/C][/ROW]
[ROW][C]45[/C][C]4.43333333333332[/C][/ROW]
[ROW][C]46[/C][C]5.47[/C][/ROW]
[ROW][C]47[/C][C]5.68666666666668[/C][/ROW]
[ROW][C]48[/C][C]7.11999999999999[/C][/ROW]
[ROW][C]49[/C][C]7.335[/C][/ROW]
[ROW][C]50[/C][C]7.55[/C][/ROW]
[ROW][C]51[/C][C]8.35142857142856[/C][/ROW]
[ROW][C]52[/C][C]9.78333333333334[/C][/ROW]
[ROW][C]53[/C][C]11.5750000000000[/C][/ROW]
[ROW][C]54[/C][C]23.5866666666667[/C][/ROW]
[ROW][C]55[/C][C]30.845[/C][/ROW]
[ROW][C]56[/C][C]42.9583333333333[/C][/ROW]
[ROW][C]57[/C][C]61.11[/C][/ROW]
[ROW][C]58[/C][C]100.082985842986[/C][/ROW]
[ROW][C]59[/C][C]297.015585585586[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23530&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23530&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
20
30
40
50.0999999999999943
60.0999999999999943
70.100000000000009
80.100000000000009
90.100000000000009
100.100000000000009
110.133333333333326
120.199999999999989
130.199999999999989
140.200000000000003
150.200000000000003
160.200000000000003
170.200000000000003
180.200000000000003
190.200000000000003
200.200000000000003
210.266666666666652
220.299999999999988
230.299999999999997
240.31666666666667
250.399999999999996
260.466666666666664
270.466666666666678
280.583333333333343
290.59999999999999
300.599999999999994
310.699999999999996
320.73333333333333
330.833333333333329
340.850000000000001
351.30000000000000
361.39999999999999
371.68333333333333
381.90000000000001
392.06666666666666
402.09333333333334
412.30000000000000
422.35999999999998
433.24000000000001
443.7
454.43333333333332
465.47
475.68666666666668
487.11999999999999
497.335
507.55
518.35142857142856
529.78333333333334
5311.5750000000000
5423.5866666666667
5530.845
5642.9583333333333
5761.11
58100.082985842986
59297.015585585586


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