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 computationThu, 13 Nov 2008 01:13:31 -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/13/t1226564055vn9p4p7g77h6mh5.htm/, Retrieved Sun, 19 May 2024 11:13:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24475, Retrieved Sun, 19 May 2024 11:13:48 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Dendogram] [2008-11-13 08:13:31] [490fee4f334e2e025c95681783e3fd0b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1,3322	133,52	7,4545
1,4369	153,2	7,4583
1,4975	163,63	7,4595
1,577	168,45	7,4599
1,5553	166,26	7,4586
1,5557	162,31	7,4609
1,575	161,56	7,4603
1,5527	156,59	7,4561
1,4748	157,97	7,454
1,4718	158,68	7,4505
1,457	163,55	7,4599
1,4684	162,89	7,4543
1,4227	164,95	7,4534
1,3896	159,82	7,4506
1,3622	159,05	7,4429
1,3716	166,76	7,441
1,3419	164,55	7,4452
1,3511	163,22	7,4519
1,3516	160,68	7,453
1,3242	155,24	7,4494
1,3074	157,6	7,4541
1,2999	156,56	7,4539
1,3213	154,82	7,4549
1,2881	151,11	7,4564
1,2611	149,65	7,4555
1,2727	148,99	7,4601
1,2811	148,53	7,4609
1,2684	146,7	7,4602
1,265	145,11	7,4566
1,277	142,7	7,4565
1,2271	143,59	7,4618
1,202	140,96	7,4612
1,1938	140,77	7,4641
1,2103	139,81	7,4613
1,1856	140,58	7,4541
1,1786	139,59	7,4596
1,2015	138,05	7,462
1,2256	136,06	7,4584
1,2292	135,98	7,4596
1,2037	134,75	7,4584
1,2165	132,22	7,4448
1,2694	135,37	7,4443
1,2938	138,84	7,4499
1,3201	138,83	7,4466
1,3014	136,55	7,4427
1,3119	135,63	7,4405
1,3408	139,14	7,4338
1,2991	136,09	7,4313
1,249	135,97	7,4379
1,2218	134,51	7,4381
1,2176	134,54	7,4365
1,2266	134,08	7,4355
1,2138	132,86	7,4342
1,2007	134,48	7,4405
1,1985	129,08	7,4436
1,2262	133,13	7,4493
1,2646	134,78	7,4511
1,2613	134,13	7,4481
1,2286	132,43	7,4419
1,1702	127,84	7,437
1,1692	128,12	7,4301
1,1222	128,94	7,4273
1,1139	132,38	7,4322
1,1372	134,99	7,4332
1,1663	138,05	7,425
1,1582	135,83	7,4246
1,0848	130,12	7,4255
1,0807	128,16	7,4274
1,0773	128,6	7,4317
1,0622	126,12	7,4324
1,0183	124,2	7,4264
1,0014	121,65	7,428
0,9811	121,57	7,4297
0,9808	118,38	7,4271

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'George Udny Yule' @ 72.249.76.132

\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 & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24475&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]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24475&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24475&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'George Udny Yule' @ 72.249.76.132






Summary of Dendrogram
LabelHeight
10.0283298429222581
20.0303347984994143
30.0310311134186291
40.0510689729679382
50.0560340090134202
60.0621518302224344
70.0682795723478118
80.0825528921359028
90.0838848019607846
100.08966833331783
110.0971572951455493
120.125499721115233
130.160272829887053
140.161986248000485
150.190198974760641
160.222278608957316
170.225404013620083
180.2527380066393
190.254583345881069
200.270706058299385
210.308299452455302
220.317173400620578
230.350235706346466
240.375951446854857
250.385966216138153
260.400583227640494
270.406106845546838
280.407179186608937
290.408161585649583
300.42004602128816
310.460077384795218
320.50536786883443
330.532968526275239
340.626448098735186
350.750248525490054
360.771152550029545
370.789983046067615
380.860842471071231
390.871448342655875
400.891413540395268
411.03351389310659
421.17220966207622
431.36214134727137
441.55670855545235
451.59000771067310
461.70707902544073
471.77368894678214
481.87278874866157
491.92051118455478
502.09529116115157
512.41744318662179
522.59251556158733
532.64703709605783
542.75703656195849
552.77000692016011
563.10721710249045
574.27919309177115
584.279687765266
595.58557838996700
605.99677920211249
617.10320946510015
628.20779949218962
638.46156320617745
648.55473127818861
6514.1791660217666
6615.5389523990883
6717.8170875655093
6826.0774336903806
6944.8079854926595
7049.306432832145
71116.019938380796
72118.269659681137
73600.064854375601

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0283298429222581 \tabularnewline
2 & 0.0303347984994143 \tabularnewline
3 & 0.0310311134186291 \tabularnewline
4 & 0.0510689729679382 \tabularnewline
5 & 0.0560340090134202 \tabularnewline
6 & 0.0621518302224344 \tabularnewline
7 & 0.0682795723478118 \tabularnewline
8 & 0.0825528921359028 \tabularnewline
9 & 0.0838848019607846 \tabularnewline
10 & 0.08966833331783 \tabularnewline
11 & 0.0971572951455493 \tabularnewline
12 & 0.125499721115233 \tabularnewline
13 & 0.160272829887053 \tabularnewline
14 & 0.161986248000485 \tabularnewline
15 & 0.190198974760641 \tabularnewline
16 & 0.222278608957316 \tabularnewline
17 & 0.225404013620083 \tabularnewline
18 & 0.2527380066393 \tabularnewline
19 & 0.254583345881069 \tabularnewline
20 & 0.270706058299385 \tabularnewline
21 & 0.308299452455302 \tabularnewline
22 & 0.317173400620578 \tabularnewline
23 & 0.350235706346466 \tabularnewline
24 & 0.375951446854857 \tabularnewline
25 & 0.385966216138153 \tabularnewline
26 & 0.400583227640494 \tabularnewline
27 & 0.406106845546838 \tabularnewline
28 & 0.407179186608937 \tabularnewline
29 & 0.408161585649583 \tabularnewline
30 & 0.42004602128816 \tabularnewline
31 & 0.460077384795218 \tabularnewline
32 & 0.50536786883443 \tabularnewline
33 & 0.532968526275239 \tabularnewline
34 & 0.626448098735186 \tabularnewline
35 & 0.750248525490054 \tabularnewline
36 & 0.771152550029545 \tabularnewline
37 & 0.789983046067615 \tabularnewline
38 & 0.860842471071231 \tabularnewline
39 & 0.871448342655875 \tabularnewline
40 & 0.891413540395268 \tabularnewline
41 & 1.03351389310659 \tabularnewline
42 & 1.17220966207622 \tabularnewline
43 & 1.36214134727137 \tabularnewline
44 & 1.55670855545235 \tabularnewline
45 & 1.59000771067310 \tabularnewline
46 & 1.70707902544073 \tabularnewline
47 & 1.77368894678214 \tabularnewline
48 & 1.87278874866157 \tabularnewline
49 & 1.92051118455478 \tabularnewline
50 & 2.09529116115157 \tabularnewline
51 & 2.41744318662179 \tabularnewline
52 & 2.59251556158733 \tabularnewline
53 & 2.64703709605783 \tabularnewline
54 & 2.75703656195849 \tabularnewline
55 & 2.77000692016011 \tabularnewline
56 & 3.10721710249045 \tabularnewline
57 & 4.27919309177115 \tabularnewline
58 & 4.279687765266 \tabularnewline
59 & 5.58557838996700 \tabularnewline
60 & 5.99677920211249 \tabularnewline
61 & 7.10320946510015 \tabularnewline
62 & 8.20779949218962 \tabularnewline
63 & 8.46156320617745 \tabularnewline
64 & 8.55473127818861 \tabularnewline
65 & 14.1791660217666 \tabularnewline
66 & 15.5389523990883 \tabularnewline
67 & 17.8170875655093 \tabularnewline
68 & 26.0774336903806 \tabularnewline
69 & 44.8079854926595 \tabularnewline
70 & 49.306432832145 \tabularnewline
71 & 116.019938380796 \tabularnewline
72 & 118.269659681137 \tabularnewline
73 & 600.064854375601 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24475&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0283298429222581[/C][/ROW]
[ROW][C]2[/C][C]0.0303347984994143[/C][/ROW]
[ROW][C]3[/C][C]0.0310311134186291[/C][/ROW]
[ROW][C]4[/C][C]0.0510689729679382[/C][/ROW]
[ROW][C]5[/C][C]0.0560340090134202[/C][/ROW]
[ROW][C]6[/C][C]0.0621518302224344[/C][/ROW]
[ROW][C]7[/C][C]0.0682795723478118[/C][/ROW]
[ROW][C]8[/C][C]0.0825528921359028[/C][/ROW]
[ROW][C]9[/C][C]0.0838848019607846[/C][/ROW]
[ROW][C]10[/C][C]0.08966833331783[/C][/ROW]
[ROW][C]11[/C][C]0.0971572951455493[/C][/ROW]
[ROW][C]12[/C][C]0.125499721115233[/C][/ROW]
[ROW][C]13[/C][C]0.160272829887053[/C][/ROW]
[ROW][C]14[/C][C]0.161986248000485[/C][/ROW]
[ROW][C]15[/C][C]0.190198974760641[/C][/ROW]
[ROW][C]16[/C][C]0.222278608957316[/C][/ROW]
[ROW][C]17[/C][C]0.225404013620083[/C][/ROW]
[ROW][C]18[/C][C]0.2527380066393[/C][/ROW]
[ROW][C]19[/C][C]0.254583345881069[/C][/ROW]
[ROW][C]20[/C][C]0.270706058299385[/C][/ROW]
[ROW][C]21[/C][C]0.308299452455302[/C][/ROW]
[ROW][C]22[/C][C]0.317173400620578[/C][/ROW]
[ROW][C]23[/C][C]0.350235706346466[/C][/ROW]
[ROW][C]24[/C][C]0.375951446854857[/C][/ROW]
[ROW][C]25[/C][C]0.385966216138153[/C][/ROW]
[ROW][C]26[/C][C]0.400583227640494[/C][/ROW]
[ROW][C]27[/C][C]0.406106845546838[/C][/ROW]
[ROW][C]28[/C][C]0.407179186608937[/C][/ROW]
[ROW][C]29[/C][C]0.408161585649583[/C][/ROW]
[ROW][C]30[/C][C]0.42004602128816[/C][/ROW]
[ROW][C]31[/C][C]0.460077384795218[/C][/ROW]
[ROW][C]32[/C][C]0.50536786883443[/C][/ROW]
[ROW][C]33[/C][C]0.532968526275239[/C][/ROW]
[ROW][C]34[/C][C]0.626448098735186[/C][/ROW]
[ROW][C]35[/C][C]0.750248525490054[/C][/ROW]
[ROW][C]36[/C][C]0.771152550029545[/C][/ROW]
[ROW][C]37[/C][C]0.789983046067615[/C][/ROW]
[ROW][C]38[/C][C]0.860842471071231[/C][/ROW]
[ROW][C]39[/C][C]0.871448342655875[/C][/ROW]
[ROW][C]40[/C][C]0.891413540395268[/C][/ROW]
[ROW][C]41[/C][C]1.03351389310659[/C][/ROW]
[ROW][C]42[/C][C]1.17220966207622[/C][/ROW]
[ROW][C]43[/C][C]1.36214134727137[/C][/ROW]
[ROW][C]44[/C][C]1.55670855545235[/C][/ROW]
[ROW][C]45[/C][C]1.59000771067310[/C][/ROW]
[ROW][C]46[/C][C]1.70707902544073[/C][/ROW]
[ROW][C]47[/C][C]1.77368894678214[/C][/ROW]
[ROW][C]48[/C][C]1.87278874866157[/C][/ROW]
[ROW][C]49[/C][C]1.92051118455478[/C][/ROW]
[ROW][C]50[/C][C]2.09529116115157[/C][/ROW]
[ROW][C]51[/C][C]2.41744318662179[/C][/ROW]
[ROW][C]52[/C][C]2.59251556158733[/C][/ROW]
[ROW][C]53[/C][C]2.64703709605783[/C][/ROW]
[ROW][C]54[/C][C]2.75703656195849[/C][/ROW]
[ROW][C]55[/C][C]2.77000692016011[/C][/ROW]
[ROW][C]56[/C][C]3.10721710249045[/C][/ROW]
[ROW][C]57[/C][C]4.27919309177115[/C][/ROW]
[ROW][C]58[/C][C]4.279687765266[/C][/ROW]
[ROW][C]59[/C][C]5.58557838996700[/C][/ROW]
[ROW][C]60[/C][C]5.99677920211249[/C][/ROW]
[ROW][C]61[/C][C]7.10320946510015[/C][/ROW]
[ROW][C]62[/C][C]8.20779949218962[/C][/ROW]
[ROW][C]63[/C][C]8.46156320617745[/C][/ROW]
[ROW][C]64[/C][C]8.55473127818861[/C][/ROW]
[ROW][C]65[/C][C]14.1791660217666[/C][/ROW]
[ROW][C]66[/C][C]15.5389523990883[/C][/ROW]
[ROW][C]67[/C][C]17.8170875655093[/C][/ROW]
[ROW][C]68[/C][C]26.0774336903806[/C][/ROW]
[ROW][C]69[/C][C]44.8079854926595[/C][/ROW]
[ROW][C]70[/C][C]49.306432832145[/C][/ROW]
[ROW][C]71[/C][C]116.019938380796[/C][/ROW]
[ROW][C]72[/C][C]118.269659681137[/C][/ROW]
[ROW][C]73[/C][C]600.064854375601[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24475&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24475&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.0283298429222581
20.0303347984994143
30.0310311134186291
40.0510689729679382
50.0560340090134202
60.0621518302224344
70.0682795723478118
80.0825528921359028
90.0838848019607846
100.08966833331783
110.0971572951455493
120.125499721115233
130.160272829887053
140.161986248000485
150.190198974760641
160.222278608957316
170.225404013620083
180.2527380066393
190.254583345881069
200.270706058299385
210.308299452455302
220.317173400620578
230.350235706346466
240.375951446854857
250.385966216138153
260.400583227640494
270.406106845546838
280.407179186608937
290.408161585649583
300.42004602128816
310.460077384795218
320.50536786883443
330.532968526275239
340.626448098735186
350.750248525490054
360.771152550029545
370.789983046067615
380.860842471071231
390.871448342655875
400.891413540395268
411.03351389310659
421.17220966207622
431.36214134727137
441.55670855545235
451.59000771067310
461.70707902544073
471.77368894678214
481.87278874866157
491.92051118455478
502.09529116115157
512.41744318662179
522.59251556158733
532.64703709605783
542.75703656195849
552.77000692016011
563.10721710249045
574.27919309177115
584.279687765266
595.58557838996700
605.99677920211249
617.10320946510015
628.20779949218962
638.46156320617745
648.55473127818861
6514.1791660217666
6615.5389523990883
6717.8170875655093
6826.0774336903806
6944.8079854926595
7049.306432832145
71116.019938380796
72118.269659681137
73600.064854375601


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