FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationFri, 02 Nov 2007 04:29:58 -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/2007/Nov/02/donepanb77d9zyg1194002991.htm/, Retrieved Fri, 03 May 2024 22:12:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=142, Retrieved Fri, 03 May 2024 22:12:03 +0000
QR Codes:

Original text written by user:voorbeeld voor het college
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact352

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [clustering huweli...] [2007-11-02 11:29:58] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1178	476049
2141	474605
2238	470439
2685	461251
4341	454724
5376	455626
4478	516847
6404	525192
4617	522975
3024	518585
1897	509239
2075	512238
1351	519164
2211	517009
2453	509933
3042	509127
4765	500857
4992	506971
4601	569323
6266	579714
4812	577992
3159	565464
1916	547344
2237	554788
1595	562325
2453	560854
2226	555332
3597	543599
4706	536662
4974	542722
5756	593530
5493	610763
5004	612613
3225	611324
2006	594167
2291	595454
1588	590865
2105	589379
2191	584428
3591	573100
4668	567456
4885	569028
5822	620735
5599	628884
5340	628232
3082	612117
2010	595404
2301	597141
1514	593408
1979	590072
2480	579799
3499	574205
4676	572775
5585	572942
5610	619567
5796	625809
6199	619916
3030	587625
1930	565742
2552	557274

Tables (Output of Computation)





Summary of compuational 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 compuational 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=142&T=0

[TABLE]
[ROW][C]Summary of compuational 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=142&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=142&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 compuational 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
1285.413734778129
2409.48870558295
3544.111201869618
4684.632748267274
5701.558978276239
6704.361412912434
7805.79029530021
8889.253619615911
9904.513681488567
10924.213178871628
111108.82325011699
121136.07659638545
131164.24771577591
141260.04960219826
151372.89074583522
161403.56111010667
171632.56179056108
181702.94010464256
191735.65693614839
201770.35872071171
211913.53625520919
222138.95168112687
232166.90946398439
242203.68649551127
252253.75242651006
262695.24447767016
272801.99607036995
282847.53542559175
293237.99609844625
303282.03807698377
313305.25793244642
323464.03992961816
333740.16183363429
343792.61214999077
353903.29660749628
365502.87475745033
375849.52841813338
385887.15577343343
396005.71002703392
406778.54603369754
417276.6486911833
428188.60439805542
4310185.7484342071
4412774.2526490891
4512941.6330671929
4614151.7906470071
4719734.3064986594
4820733.2325964444
4923207.0278178272
5023792.2646534425
5141381.4600513075
5245234.0582242404
5348324.0153237591
5466939.7350699346
55127096.621079617
56221486.020039884
57317520.906201162
58553224.596349531
591483673.71340306

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 285.413734778129 \tabularnewline
2 & 409.48870558295 \tabularnewline
3 & 544.111201869618 \tabularnewline
4 & 684.632748267274 \tabularnewline
5 & 701.558978276239 \tabularnewline
6 & 704.361412912434 \tabularnewline
7 & 805.79029530021 \tabularnewline
8 & 889.253619615911 \tabularnewline
9 & 904.513681488567 \tabularnewline
10 & 924.213178871628 \tabularnewline
11 & 1108.82325011699 \tabularnewline
12 & 1136.07659638545 \tabularnewline
13 & 1164.24771577591 \tabularnewline
14 & 1260.04960219826 \tabularnewline
15 & 1372.89074583522 \tabularnewline
16 & 1403.56111010667 \tabularnewline
17 & 1632.56179056108 \tabularnewline
18 & 1702.94010464256 \tabularnewline
19 & 1735.65693614839 \tabularnewline
20 & 1770.35872071171 \tabularnewline
21 & 1913.53625520919 \tabularnewline
22 & 2138.95168112687 \tabularnewline
23 & 2166.90946398439 \tabularnewline
24 & 2203.68649551127 \tabularnewline
25 & 2253.75242651006 \tabularnewline
26 & 2695.24447767016 \tabularnewline
27 & 2801.99607036995 \tabularnewline
28 & 2847.53542559175 \tabularnewline
29 & 3237.99609844625 \tabularnewline
30 & 3282.03807698377 \tabularnewline
31 & 3305.25793244642 \tabularnewline
32 & 3464.03992961816 \tabularnewline
33 & 3740.16183363429 \tabularnewline
34 & 3792.61214999077 \tabularnewline
35 & 3903.29660749628 \tabularnewline
36 & 5502.87475745033 \tabularnewline
37 & 5849.52841813338 \tabularnewline
38 & 5887.15577343343 \tabularnewline
39 & 6005.71002703392 \tabularnewline
40 & 6778.54603369754 \tabularnewline
41 & 7276.6486911833 \tabularnewline
42 & 8188.60439805542 \tabularnewline
43 & 10185.7484342071 \tabularnewline
44 & 12774.2526490891 \tabularnewline
45 & 12941.6330671929 \tabularnewline
46 & 14151.7906470071 \tabularnewline
47 & 19734.3064986594 \tabularnewline
48 & 20733.2325964444 \tabularnewline
49 & 23207.0278178272 \tabularnewline
50 & 23792.2646534425 \tabularnewline
51 & 41381.4600513075 \tabularnewline
52 & 45234.0582242404 \tabularnewline
53 & 48324.0153237591 \tabularnewline
54 & 66939.7350699346 \tabularnewline
55 & 127096.621079617 \tabularnewline
56 & 221486.020039884 \tabularnewline
57 & 317520.906201162 \tabularnewline
58 & 553224.596349531 \tabularnewline
59 & 1483673.71340306 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=142&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]285.413734778129[/C][/ROW]
[ROW][C]2[/C][C]409.48870558295[/C][/ROW]
[ROW][C]3[/C][C]544.111201869618[/C][/ROW]
[ROW][C]4[/C][C]684.632748267274[/C][/ROW]
[ROW][C]5[/C][C]701.558978276239[/C][/ROW]
[ROW][C]6[/C][C]704.361412912434[/C][/ROW]
[ROW][C]7[/C][C]805.79029530021[/C][/ROW]
[ROW][C]8[/C][C]889.253619615911[/C][/ROW]
[ROW][C]9[/C][C]904.513681488567[/C][/ROW]
[ROW][C]10[/C][C]924.213178871628[/C][/ROW]
[ROW][C]11[/C][C]1108.82325011699[/C][/ROW]
[ROW][C]12[/C][C]1136.07659638545[/C][/ROW]
[ROW][C]13[/C][C]1164.24771577591[/C][/ROW]
[ROW][C]14[/C][C]1260.04960219826[/C][/ROW]
[ROW][C]15[/C][C]1372.89074583522[/C][/ROW]
[ROW][C]16[/C][C]1403.56111010667[/C][/ROW]
[ROW][C]17[/C][C]1632.56179056108[/C][/ROW]
[ROW][C]18[/C][C]1702.94010464256[/C][/ROW]
[ROW][C]19[/C][C]1735.65693614839[/C][/ROW]
[ROW][C]20[/C][C]1770.35872071171[/C][/ROW]
[ROW][C]21[/C][C]1913.53625520919[/C][/ROW]
[ROW][C]22[/C][C]2138.95168112687[/C][/ROW]
[ROW][C]23[/C][C]2166.90946398439[/C][/ROW]
[ROW][C]24[/C][C]2203.68649551127[/C][/ROW]
[ROW][C]25[/C][C]2253.75242651006[/C][/ROW]
[ROW][C]26[/C][C]2695.24447767016[/C][/ROW]
[ROW][C]27[/C][C]2801.99607036995[/C][/ROW]
[ROW][C]28[/C][C]2847.53542559175[/C][/ROW]
[ROW][C]29[/C][C]3237.99609844625[/C][/ROW]
[ROW][C]30[/C][C]3282.03807698377[/C][/ROW]
[ROW][C]31[/C][C]3305.25793244642[/C][/ROW]
[ROW][C]32[/C][C]3464.03992961816[/C][/ROW]
[ROW][C]33[/C][C]3740.16183363429[/C][/ROW]
[ROW][C]34[/C][C]3792.61214999077[/C][/ROW]
[ROW][C]35[/C][C]3903.29660749628[/C][/ROW]
[ROW][C]36[/C][C]5502.87475745033[/C][/ROW]
[ROW][C]37[/C][C]5849.52841813338[/C][/ROW]
[ROW][C]38[/C][C]5887.15577343343[/C][/ROW]
[ROW][C]39[/C][C]6005.71002703392[/C][/ROW]
[ROW][C]40[/C][C]6778.54603369754[/C][/ROW]
[ROW][C]41[/C][C]7276.6486911833[/C][/ROW]
[ROW][C]42[/C][C]8188.60439805542[/C][/ROW]
[ROW][C]43[/C][C]10185.7484342071[/C][/ROW]
[ROW][C]44[/C][C]12774.2526490891[/C][/ROW]
[ROW][C]45[/C][C]12941.6330671929[/C][/ROW]
[ROW][C]46[/C][C]14151.7906470071[/C][/ROW]
[ROW][C]47[/C][C]19734.3064986594[/C][/ROW]
[ROW][C]48[/C][C]20733.2325964444[/C][/ROW]
[ROW][C]49[/C][C]23207.0278178272[/C][/ROW]
[ROW][C]50[/C][C]23792.2646534425[/C][/ROW]
[ROW][C]51[/C][C]41381.4600513075[/C][/ROW]
[ROW][C]52[/C][C]45234.0582242404[/C][/ROW]
[ROW][C]53[/C][C]48324.0153237591[/C][/ROW]
[ROW][C]54[/C][C]66939.7350699346[/C][/ROW]
[ROW][C]55[/C][C]127096.621079617[/C][/ROW]
[ROW][C]56[/C][C]221486.020039884[/C][/ROW]
[ROW][C]57[/C][C]317520.906201162[/C][/ROW]
[ROW][C]58[/C][C]553224.596349531[/C][/ROW]
[ROW][C]59[/C][C]1483673.71340306[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=142&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=142&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
1285.413734778129
2409.48870558295
3544.111201869618
4684.632748267274
5701.558978276239
6704.361412912434
7805.79029530021
8889.253619615911
9904.513681488567
10924.213178871628
111108.82325011699
121136.07659638545
131164.24771577591
141260.04960219826
151372.89074583522
161403.56111010667
171632.56179056108
181702.94010464256
191735.65693614839
201770.35872071171
211913.53625520919
222138.95168112687
232166.90946398439
242203.68649551127
252253.75242651006
262695.24447767016
272801.99607036995
282847.53542559175
293237.99609844625
303282.03807698377
313305.25793244642
323464.03992961816
333740.16183363429
343792.61214999077
353903.29660749628
365502.87475745033
375849.52841813338
385887.15577343343
396005.71002703392
406778.54603369754
417276.6486911833
428188.60439805542
4310185.7484342071
4412774.2526490891
4512941.6330671929
4614151.7906470071
4719734.3064986594
4820733.2325964444
4923207.0278178272
5023792.2646534425
5141381.4600513075
5245234.0582242404
5348324.0153237591
5466939.7350699346
55127096.621079617
56221486.020039884
57317520.906201162
58553224.596349531
591483673.71340306


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