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 computationMon, 10 Nov 2008 06:48:19 -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/10/t1226324956m8wye5rx585w3ap.htm/, Retrieved Sat, 18 May 2024 21:27:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23057, Retrieved Sat, 18 May 2024 21:27:45 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Kernel Density Estimation] [Q1 bivariate dens...] [2008-11-10 13:19:59] [c5a66f1c8528a963efc2b82a8519f117]
- RMPD  [Partial Correlation] [Q1
- RMPD      [Hierarchical Clustering] [Q2] [2008-11-10 13:48:19] [b4fc5040f26b33db57f84cfb8d1d2b82] [Current]
F             [Hierarchical Clustering] [Q2 hierarchical c...] [2008-11-10 14:21:56] [c5a66f1c8528a963efc2b82a8519f117]
-               [Hierarchical Clustering] [Q2 - clusterbommen] [2008-11-11 19:13:30] [a0d819c22534897f04a2f0b92f1eb36a]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1515	2718	524944	292792
1510	2646	568106	318530
1225	2551	484506	276807
1577	2712	512235	284524
1417	2606	523179	290486
1224	2365	462411	259355
1693	3533	685872	383556
1633	3509	635902	350488
1639	2912	573599	318029
1914	3599	668826	377740
1586	2719	520868	293546
1552	2869	555680	317460
2081	4085	727941	401629
1500	2686	516959	282854
1437	2545	489975	275316
1470	3071	559687	304680
1849	3388	630947	349947
1387	2652	473994	266543
1592	3190	583802	329195
1589	2884	553061	314626
1798	3295	604700	338463
1935	3818	708101	399338
1887	3226	617053	339542
2027	3953	819858	454688
2080	3810	736520	396766
1556	2877	567696	309465
1682	3515	666627	365707
1785	3708	701749	383677
1869	3450	647394	352609
1781	3360	610231	340011
2082	4110	777555	425915
2570	4384	901319	498938
1862	3729	707164	391142
1936	4263	782859	418962
1504	3505	652556	342378
1765	3674	676064	369674
1607	3911	707665	391250
1577	2951	561515	310589
1493	3317	645794	335910
1615	3417	623482	344448
1700	3498	673401	361944
1335	2768	544890	290274
1523	2899	605125	327902
1623	3179	608393	330268
1540	3011	579718	324957
1637	3481	647499	350780
1524	3015	575016	320017
1419	2606	510096	278970
1821	3530	697835	383097
1593	2827	561177	301300
1357	3120	584949	318259
1263	2557	516723	266891
1750	3645	695323	384327
1405	2865	548018	294991
1393	2587	497706	267257
1639	2887	559796	310886
1679	3429	669449	359118
1551	2956	583301	314124
1744	3098	626790	340377
1429	2934	580268	309894
1784	3269	649016	353873

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23057&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
1600.67795031947
21746.74268282423
31846.90308354283
42446.19439129436
52800.23391880036
62907.74981729859
73064.82169738663
83703.93911937008
93859.05571351335
104045.51356443159
114354.59513300839
124458.54920349658
134858.98981270799
144990.59144791477
155011.15565513585
165256.8343135389
175661.16436786638
185672.56749629301
195743.93410477523
205888.50108261856
216013.32111439068
227557.17797371032
237585.6306264397
248325.30931924998
258376.62560379681
268747.64825538842
278957.78985673305
289359.22715826472
299865.27424859542
3010160.0747536477
3110704.5107715178
3210838.6727047180
3313636.0614181662
3413960.1990451692
3516416.5458386947
3616426.0487209974
3716463.8152627976
3819500.2490871330
3920829.9397527913
4022918.5235068409
4123942.7596702560
4225359.3171851236
4325484.6025722711
4425742.7470519017
4540011.7609953341
4641122.3026138017
4744113.2672476902
4853198.3973062545
4965480.3318203691
5067641.8597269865
5181359.8012461545
52112298.768897315
53131591.394277793
54154656.701015525
55171112.622635658
56270035.297392239
57485466.850395887
58713658.71272514
591055510.78804587
602946280.78579547

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 600.67795031947 \tabularnewline
2 & 1746.74268282423 \tabularnewline
3 & 1846.90308354283 \tabularnewline
4 & 2446.19439129436 \tabularnewline
5 & 2800.23391880036 \tabularnewline
6 & 2907.74981729859 \tabularnewline
7 & 3064.82169738663 \tabularnewline
8 & 3703.93911937008 \tabularnewline
9 & 3859.05571351335 \tabularnewline
10 & 4045.51356443159 \tabularnewline
11 & 4354.59513300839 \tabularnewline
12 & 4458.54920349658 \tabularnewline
13 & 4858.98981270799 \tabularnewline
14 & 4990.59144791477 \tabularnewline
15 & 5011.15565513585 \tabularnewline
16 & 5256.8343135389 \tabularnewline
17 & 5661.16436786638 \tabularnewline
18 & 5672.56749629301 \tabularnewline
19 & 5743.93410477523 \tabularnewline
20 & 5888.50108261856 \tabularnewline
21 & 6013.32111439068 \tabularnewline
22 & 7557.17797371032 \tabularnewline
23 & 7585.6306264397 \tabularnewline
24 & 8325.30931924998 \tabularnewline
25 & 8376.62560379681 \tabularnewline
26 & 8747.64825538842 \tabularnewline
27 & 8957.78985673305 \tabularnewline
28 & 9359.22715826472 \tabularnewline
29 & 9865.27424859542 \tabularnewline
30 & 10160.0747536477 \tabularnewline
31 & 10704.5107715178 \tabularnewline
32 & 10838.6727047180 \tabularnewline
33 & 13636.0614181662 \tabularnewline
34 & 13960.1990451692 \tabularnewline
35 & 16416.5458386947 \tabularnewline
36 & 16426.0487209974 \tabularnewline
37 & 16463.8152627976 \tabularnewline
38 & 19500.2490871330 \tabularnewline
39 & 20829.9397527913 \tabularnewline
40 & 22918.5235068409 \tabularnewline
41 & 23942.7596702560 \tabularnewline
42 & 25359.3171851236 \tabularnewline
43 & 25484.6025722711 \tabularnewline
44 & 25742.7470519017 \tabularnewline
45 & 40011.7609953341 \tabularnewline
46 & 41122.3026138017 \tabularnewline
47 & 44113.2672476902 \tabularnewline
48 & 53198.3973062545 \tabularnewline
49 & 65480.3318203691 \tabularnewline
50 & 67641.8597269865 \tabularnewline
51 & 81359.8012461545 \tabularnewline
52 & 112298.768897315 \tabularnewline
53 & 131591.394277793 \tabularnewline
54 & 154656.701015525 \tabularnewline
55 & 171112.622635658 \tabularnewline
56 & 270035.297392239 \tabularnewline
57 & 485466.850395887 \tabularnewline
58 & 713658.71272514 \tabularnewline
59 & 1055510.78804587 \tabularnewline
60 & 2946280.78579547 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23057&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]600.67795031947[/C][/ROW]
[ROW][C]2[/C][C]1746.74268282423[/C][/ROW]
[ROW][C]3[/C][C]1846.90308354283[/C][/ROW]
[ROW][C]4[/C][C]2446.19439129436[/C][/ROW]
[ROW][C]5[/C][C]2800.23391880036[/C][/ROW]
[ROW][C]6[/C][C]2907.74981729859[/C][/ROW]
[ROW][C]7[/C][C]3064.82169738663[/C][/ROW]
[ROW][C]8[/C][C]3703.93911937008[/C][/ROW]
[ROW][C]9[/C][C]3859.05571351335[/C][/ROW]
[ROW][C]10[/C][C]4045.51356443159[/C][/ROW]
[ROW][C]11[/C][C]4354.59513300839[/C][/ROW]
[ROW][C]12[/C][C]4458.54920349658[/C][/ROW]
[ROW][C]13[/C][C]4858.98981270799[/C][/ROW]
[ROW][C]14[/C][C]4990.59144791477[/C][/ROW]
[ROW][C]15[/C][C]5011.15565513585[/C][/ROW]
[ROW][C]16[/C][C]5256.8343135389[/C][/ROW]
[ROW][C]17[/C][C]5661.16436786638[/C][/ROW]
[ROW][C]18[/C][C]5672.56749629301[/C][/ROW]
[ROW][C]19[/C][C]5743.93410477523[/C][/ROW]
[ROW][C]20[/C][C]5888.50108261856[/C][/ROW]
[ROW][C]21[/C][C]6013.32111439068[/C][/ROW]
[ROW][C]22[/C][C]7557.17797371032[/C][/ROW]
[ROW][C]23[/C][C]7585.6306264397[/C][/ROW]
[ROW][C]24[/C][C]8325.30931924998[/C][/ROW]
[ROW][C]25[/C][C]8376.62560379681[/C][/ROW]
[ROW][C]26[/C][C]8747.64825538842[/C][/ROW]
[ROW][C]27[/C][C]8957.78985673305[/C][/ROW]
[ROW][C]28[/C][C]9359.22715826472[/C][/ROW]
[ROW][C]29[/C][C]9865.27424859542[/C][/ROW]
[ROW][C]30[/C][C]10160.0747536477[/C][/ROW]
[ROW][C]31[/C][C]10704.5107715178[/C][/ROW]
[ROW][C]32[/C][C]10838.6727047180[/C][/ROW]
[ROW][C]33[/C][C]13636.0614181662[/C][/ROW]
[ROW][C]34[/C][C]13960.1990451692[/C][/ROW]
[ROW][C]35[/C][C]16416.5458386947[/C][/ROW]
[ROW][C]36[/C][C]16426.0487209974[/C][/ROW]
[ROW][C]37[/C][C]16463.8152627976[/C][/ROW]
[ROW][C]38[/C][C]19500.2490871330[/C][/ROW]
[ROW][C]39[/C][C]20829.9397527913[/C][/ROW]
[ROW][C]40[/C][C]22918.5235068409[/C][/ROW]
[ROW][C]41[/C][C]23942.7596702560[/C][/ROW]
[ROW][C]42[/C][C]25359.3171851236[/C][/ROW]
[ROW][C]43[/C][C]25484.6025722711[/C][/ROW]
[ROW][C]44[/C][C]25742.7470519017[/C][/ROW]
[ROW][C]45[/C][C]40011.7609953341[/C][/ROW]
[ROW][C]46[/C][C]41122.3026138017[/C][/ROW]
[ROW][C]47[/C][C]44113.2672476902[/C][/ROW]
[ROW][C]48[/C][C]53198.3973062545[/C][/ROW]
[ROW][C]49[/C][C]65480.3318203691[/C][/ROW]
[ROW][C]50[/C][C]67641.8597269865[/C][/ROW]
[ROW][C]51[/C][C]81359.8012461545[/C][/ROW]
[ROW][C]52[/C][C]112298.768897315[/C][/ROW]
[ROW][C]53[/C][C]131591.394277793[/C][/ROW]
[ROW][C]54[/C][C]154656.701015525[/C][/ROW]
[ROW][C]55[/C][C]171112.622635658[/C][/ROW]
[ROW][C]56[/C][C]270035.297392239[/C][/ROW]
[ROW][C]57[/C][C]485466.850395887[/C][/ROW]
[ROW][C]58[/C][C]713658.71272514[/C][/ROW]
[ROW][C]59[/C][C]1055510.78804587[/C][/ROW]
[ROW][C]60[/C][C]2946280.78579547[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23057&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23057&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
1600.67795031947
21746.74268282423
31846.90308354283
42446.19439129436
52800.23391880036
62907.74981729859
73064.82169738663
83703.93911937008
93859.05571351335
104045.51356443159
114354.59513300839
124458.54920349658
134858.98981270799
144990.59144791477
155011.15565513585
165256.8343135389
175661.16436786638
185672.56749629301
195743.93410477523
205888.50108261856
216013.32111439068
227557.17797371032
237585.6306264397
248325.30931924998
258376.62560379681
268747.64825538842
278957.78985673305
289359.22715826472
299865.27424859542
3010160.0747536477
3110704.5107715178
3210838.6727047180
3313636.0614181662
3413960.1990451692
3516416.5458386947
3616426.0487209974
3716463.8152627976
3819500.2490871330
3920829.9397527913
4022918.5235068409
4123942.7596702560
4225359.3171851236
4325484.6025722711
4425742.7470519017
4540011.7609953341
4641122.3026138017
4744113.2672476902
4853198.3973062545
4965480.3318203691
5067641.8597269865
5181359.8012461545
52112298.768897315
53131591.394277793
54154656.701015525
55171112.622635658
56270035.297392239
57485466.850395887
58713658.71272514
591055510.78804587
602946280.78579547


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