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 09:30:28 -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/t1226421101mvzxf2bqf3167b4.htm/, Retrieved Sun, 19 May 2024 08:52:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23688, Retrieved Sun, 19 May 2024 08:52:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsHierarchical Clustering
Estimated Impact148

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Univariate Data Series] [Aantal niet werke...] [2008-10-13 17:14:43] [b635de6fc42b001d22cbe6e730fec936]
- RMP   [Central Tendency] [Aantal niet werke...] [2008-10-20 17:40:10] [b635de6fc42b001d22cbe6e730fec936]
- RMPD    [Partial Correlation] [Partial correlati...] [2008-11-11 13:34:38] [b635de6fc42b001d22cbe6e730fec936]
- RMPD        [Hierarchical Clustering] [Hierarchical Clus...] [2008-11-11 16:30:28] [f4b2017b314c03698059f43b95818e67] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
8,4	9,5	308.347	577.992
8,4	9,1	298.427	565.464
8,4	9	289.231	547.344
8,6	9,3	291.975	554.788
8,9	9,9	294.912	562.325
8,8	9,8	293.488	560.854
8,3	9,4	290.555	555.332
7,5	8,3	284.736	543.599
7,2	8	281.818	536.662
7,5	8,5	287.854	542.722
8,8	10,4	316.263	593.530
9,3	11,1	325.412	610.763
9,3	10,9	326.011	612.613
8,7	9,9	328.282	611.324
8,2	9,2	317.480	594.167
8,3	9,2	317.539	595.454
8,5	9,5	313.737	590.865
8,6	9,6	312.276	589.379
8,6	9,5	309.391	584.428
8,2	9,1	302.950	573.100
8,1	8,9	300.316	567.456
8	9	304.035	569.028
8,6	10,1	333.476	620.735
8,7	10,3	337.698	628.884
8,8	10,2	335.932	628.232
8,5	9,6	323.931	612.117
8,4	9,2	313.927	595.404
8,5	9,3	314.485	597.141
8,7	9,4	313.218	593.408
8,7	9,4	309.664	590.072
8,6	9,2	302.963	579.799
8,5	9	298.989	574.205
8,3	9	298.423	572.775
8,1	9	301.631	572.942
8,2	9,8	329.765	619.567
8,1	10	335.083	625.809
8,1	9,9	327.616	619.916
7,9	9,3	309.119	587.625
7,9	9	295.916	565.742
7,9	9	291.413	557.274
8	9,1	291.542	560.576
8	9,1	284.678	548.854
7,9	9,1	276.475	531.673
8	9,2	272.566	525.919
7,7	8,8	264.981	511.038
7,2	8,3	263.290	498.662
7,5	8,4	296.806	555.362
7,3	8,1	303.598	564.591
7	7,8	286.994	541.657
7	7,9	276.427	527.070
7	7,9	266.424	509.846
7,2	8	267.153	514.258
7,3	7,9	268.381	516.922
7,1	7,5	262.522	507.561
6,8	7,2	255.542	492.622
6,6	6,9	253.158	490.243
6,2	6,6	243.803	469.357
6,2	6,7	250.741	477.580
6,8	7,3	280.445	528.379
6,9	7,5	285.257	533.590

Tables (Output of Computation)





Summary of computational 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 computational 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=23688&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]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=23688&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23688&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 time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Summary of Dendrogram
LabelHeight
11.29222676028621
21.33593600146117
31.55088877744349
41.55316966233571
51.61673281651601
61.82989972402858
71.88781884724142
81.95481482498986
92.05222245382901
102.08871180395956
112.18174288127635
122.19160055667085
132.5772863636003
142.61568339243502
152.63340729853928
162.72044100029725
172.85319675768697
182.93681460088985
193.38719603802321
203.45479385131652
213.46124120648219
223.66521719846921
233.87778167789672
244.04006744993204
254.05531167938672
264.2729152811634
274.64800010757317
284.72199915764921
294.8145517963773
305.08384650399694
315.29178813184784
325.51886035045593
335.69058037461906
345.84867063255192
355.97626845483139
367.04281336963637
377.48312842426753
387.53979886076419
397.55313507758917
409.4313920357062
419.91879335635114
4210.7593481679886
4312.0043454160770
4413.4173434017129
4514.3073993344678
4615.2541527779190
4718.9258946342214
4822.5521823534554
4927.8395741863787
5028.6914816467646
5141.4771040401003
5249.5203132157515
5361.7851059414658
5487.958556496179
55100.181866062849
56256.515768468808
57303.209194116262
58665.369439378979
591247.20771985409

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.29222676028621 \tabularnewline
2 & 1.33593600146117 \tabularnewline
3 & 1.55088877744349 \tabularnewline
4 & 1.55316966233571 \tabularnewline
5 & 1.61673281651601 \tabularnewline
6 & 1.82989972402858 \tabularnewline
7 & 1.88781884724142 \tabularnewline
8 & 1.95481482498986 \tabularnewline
9 & 2.05222245382901 \tabularnewline
10 & 2.08871180395956 \tabularnewline
11 & 2.18174288127635 \tabularnewline
12 & 2.19160055667085 \tabularnewline
13 & 2.5772863636003 \tabularnewline
14 & 2.61568339243502 \tabularnewline
15 & 2.63340729853928 \tabularnewline
16 & 2.72044100029725 \tabularnewline
17 & 2.85319675768697 \tabularnewline
18 & 2.93681460088985 \tabularnewline
19 & 3.38719603802321 \tabularnewline
20 & 3.45479385131652 \tabularnewline
21 & 3.46124120648219 \tabularnewline
22 & 3.66521719846921 \tabularnewline
23 & 3.87778167789672 \tabularnewline
24 & 4.04006744993204 \tabularnewline
25 & 4.05531167938672 \tabularnewline
26 & 4.2729152811634 \tabularnewline
27 & 4.64800010757317 \tabularnewline
28 & 4.72199915764921 \tabularnewline
29 & 4.8145517963773 \tabularnewline
30 & 5.08384650399694 \tabularnewline
31 & 5.29178813184784 \tabularnewline
32 & 5.51886035045593 \tabularnewline
33 & 5.69058037461906 \tabularnewline
34 & 5.84867063255192 \tabularnewline
35 & 5.97626845483139 \tabularnewline
36 & 7.04281336963637 \tabularnewline
37 & 7.48312842426753 \tabularnewline
38 & 7.53979886076419 \tabularnewline
39 & 7.55313507758917 \tabularnewline
40 & 9.4313920357062 \tabularnewline
41 & 9.91879335635114 \tabularnewline
42 & 10.7593481679886 \tabularnewline
43 & 12.0043454160770 \tabularnewline
44 & 13.4173434017129 \tabularnewline
45 & 14.3073993344678 \tabularnewline
46 & 15.2541527779190 \tabularnewline
47 & 18.9258946342214 \tabularnewline
48 & 22.5521823534554 \tabularnewline
49 & 27.8395741863787 \tabularnewline
50 & 28.6914816467646 \tabularnewline
51 & 41.4771040401003 \tabularnewline
52 & 49.5203132157515 \tabularnewline
53 & 61.7851059414658 \tabularnewline
54 & 87.958556496179 \tabularnewline
55 & 100.181866062849 \tabularnewline
56 & 256.515768468808 \tabularnewline
57 & 303.209194116262 \tabularnewline
58 & 665.369439378979 \tabularnewline
59 & 1247.20771985409 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23688&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.29222676028621[/C][/ROW]
[ROW][C]2[/C][C]1.33593600146117[/C][/ROW]
[ROW][C]3[/C][C]1.55088877744349[/C][/ROW]
[ROW][C]4[/C][C]1.55316966233571[/C][/ROW]
[ROW][C]5[/C][C]1.61673281651601[/C][/ROW]
[ROW][C]6[/C][C]1.82989972402858[/C][/ROW]
[ROW][C]7[/C][C]1.88781884724142[/C][/ROW]
[ROW][C]8[/C][C]1.95481482498986[/C][/ROW]
[ROW][C]9[/C][C]2.05222245382901[/C][/ROW]
[ROW][C]10[/C][C]2.08871180395956[/C][/ROW]
[ROW][C]11[/C][C]2.18174288127635[/C][/ROW]
[ROW][C]12[/C][C]2.19160055667085[/C][/ROW]
[ROW][C]13[/C][C]2.5772863636003[/C][/ROW]
[ROW][C]14[/C][C]2.61568339243502[/C][/ROW]
[ROW][C]15[/C][C]2.63340729853928[/C][/ROW]
[ROW][C]16[/C][C]2.72044100029725[/C][/ROW]
[ROW][C]17[/C][C]2.85319675768697[/C][/ROW]
[ROW][C]18[/C][C]2.93681460088985[/C][/ROW]
[ROW][C]19[/C][C]3.38719603802321[/C][/ROW]
[ROW][C]20[/C][C]3.45479385131652[/C][/ROW]
[ROW][C]21[/C][C]3.46124120648219[/C][/ROW]
[ROW][C]22[/C][C]3.66521719846921[/C][/ROW]
[ROW][C]23[/C][C]3.87778167789672[/C][/ROW]
[ROW][C]24[/C][C]4.04006744993204[/C][/ROW]
[ROW][C]25[/C][C]4.05531167938672[/C][/ROW]
[ROW][C]26[/C][C]4.2729152811634[/C][/ROW]
[ROW][C]27[/C][C]4.64800010757317[/C][/ROW]
[ROW][C]28[/C][C]4.72199915764921[/C][/ROW]
[ROW][C]29[/C][C]4.8145517963773[/C][/ROW]
[ROW][C]30[/C][C]5.08384650399694[/C][/ROW]
[ROW][C]31[/C][C]5.29178813184784[/C][/ROW]
[ROW][C]32[/C][C]5.51886035045593[/C][/ROW]
[ROW][C]33[/C][C]5.69058037461906[/C][/ROW]
[ROW][C]34[/C][C]5.84867063255192[/C][/ROW]
[ROW][C]35[/C][C]5.97626845483139[/C][/ROW]
[ROW][C]36[/C][C]7.04281336963637[/C][/ROW]
[ROW][C]37[/C][C]7.48312842426753[/C][/ROW]
[ROW][C]38[/C][C]7.53979886076419[/C][/ROW]
[ROW][C]39[/C][C]7.55313507758917[/C][/ROW]
[ROW][C]40[/C][C]9.4313920357062[/C][/ROW]
[ROW][C]41[/C][C]9.91879335635114[/C][/ROW]
[ROW][C]42[/C][C]10.7593481679886[/C][/ROW]
[ROW][C]43[/C][C]12.0043454160770[/C][/ROW]
[ROW][C]44[/C][C]13.4173434017129[/C][/ROW]
[ROW][C]45[/C][C]14.3073993344678[/C][/ROW]
[ROW][C]46[/C][C]15.2541527779190[/C][/ROW]
[ROW][C]47[/C][C]18.9258946342214[/C][/ROW]
[ROW][C]48[/C][C]22.5521823534554[/C][/ROW]
[ROW][C]49[/C][C]27.8395741863787[/C][/ROW]
[ROW][C]50[/C][C]28.6914816467646[/C][/ROW]
[ROW][C]51[/C][C]41.4771040401003[/C][/ROW]
[ROW][C]52[/C][C]49.5203132157515[/C][/ROW]
[ROW][C]53[/C][C]61.7851059414658[/C][/ROW]
[ROW][C]54[/C][C]87.958556496179[/C][/ROW]
[ROW][C]55[/C][C]100.181866062849[/C][/ROW]
[ROW][C]56[/C][C]256.515768468808[/C][/ROW]
[ROW][C]57[/C][C]303.209194116262[/C][/ROW]
[ROW][C]58[/C][C]665.369439378979[/C][/ROW]
[ROW][C]59[/C][C]1247.20771985409[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23688&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23688&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.29222676028621
21.33593600146117
31.55088877744349
41.55316966233571
51.61673281651601
61.82989972402858
71.88781884724142
81.95481482498986
92.05222245382901
102.08871180395956
112.18174288127635
122.19160055667085
132.5772863636003
142.61568339243502
152.63340729853928
162.72044100029725
172.85319675768697
182.93681460088985
193.38719603802321
203.45479385131652
213.46124120648219
223.66521719846921
233.87778167789672
244.04006744993204
254.05531167938672
264.2729152811634
274.64800010757317
284.72199915764921
294.8145517963773
305.08384650399694
315.29178813184784
325.51886035045593
335.69058037461906
345.84867063255192
355.97626845483139
367.04281336963637
377.48312842426753
387.53979886076419
397.55313507758917
409.4313920357062
419.91879335635114
4210.7593481679886
4312.0043454160770
4413.4173434017129
4514.3073993344678
4615.2541527779190
4718.9258946342214
4822.5521823534554
4927.8395741863787
5028.6914816467646
5141.4771040401003
5249.5203132157515
5361.7851059414658
5487.958556496179
55100.181866062849
56256.515768468808
57303.209194116262
58665.369439378979
591247.20771985409


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