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 computationThu, 01 Nov 2007 04:45:04 -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/01/c6w2npfky18jrq51193917500.htm/, Retrieved Tue, 07 May 2024 05:55:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14434, Retrieved Tue, 07 May 2024 05:55:51 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Workshop 4 questi...] [2007-11-01 11:45:04] [0bc9a73ae3e363dc073fa55a2107bbae] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
99	101.5	108.4	106.7	112.7
115.4	126.6	117	100.6	118.4
106.9	93.9	103.8	101.2	108.1
107.1	89.8	100.8	93.1	105.4
99.3	93.4	110.6	84.2	114.6
99.2	101.5	104	85.8	106.9
108.3	110.4	112.6	91.8	115.9
105.6	105.9	107.3	92.4	109.8
99.5	108.4	98.9	80.3	101.8
107.4	113.9	109.8	79.7	114.2
93.1	86.1	104.9	62.5	110.8
88.1	69.4	102.2	57.1	108.4
110.7	101.2	123.9	100.8	127.5
113.1	100.5	124.9	100.7	128.6
99.6	98	112.7	86.2	116.6
93.6	106.6	121.9	83.2	127.4
98.6	90.1	100.6	71.7	105
99.6	96.9	104.3	77.5	108.3
114.3	125.9	120.4	89.8	125
107.8	112	107.5	80.3	111.6
101.2	100	102.9	78.7	106.5
112.5	123.9	125.6	93.8	130.3
100.5	79.8	107.5	57.6	115
93.9	83.4	108.8	60.6	116.1
116.2	113.6	128.4	91	134
112	112.9	121.1	85.3	126.5
106.4	104	119.5	77.4	125.8
95.7	109.9	128.7	77.3	136.4
96	99	108.7	68.3	114.9
95.8	106.3	105.5	69.9	110.9
103	128.9	119.8	81.7	125.5
102.2	111.1	111.3	75.1	116.8
98.4	102.9	110.6	69.9	116.8
111.4	130	120.1	84	125.5
86.6	87	97.5	54.3	104.2
91.3	87.5	107.7	60	115.1
107.9	117.6	127.3	89.9	132.8
101.8	103.4	117.2	77	123.3
104.4	110.8	119.8	85.3	124.8
93.4	112.6	116.2	77.6	122
100.1	102.5	111	69.2	117.4
98.5	112.4	112.4	75.5	117.9
112.9	135.6	130.6	85.7	137.4
101.4	105.1	109.1	72.2	114.6
107.1	127.7	118.8	79.9	124.7
110.8	137	123.9	85.3	129.6
90.3	91	101.6	52.2	109.4
95.5	90.5	112.8	61.2	120.9
111.4	122.4	128	82.4	134.9
113	123.3	129.6	85.4	136.3
107.5	124.3	125.8	78.2	133.2
95.9	120	119.5	70.2	127.2
106.3	118.1	115.7	70.2	122.7
105.2	119	113.6	69.3	120.5
117.2	142.7	129.7	77.5	137.8
106.9	123.6	112	66.1	119.1
108.2	129.6	116.8	69	124.3
110	146.9	126.3	75.3	134.3
96.1	108.7	112.9	58.2	121.7
100.6	99.4	115.9	59.7	125

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14434&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
12.01494416796098
22.91032644217104
33.47562943939656
44.02243707222376
54.1097445176069
64.23792402008343
74.33704968844028
84.80936586256441
95.11272921246568
105.76367938039583
115.80172388174411
126.32596452273507
137.33038838043221
147.69415362466853
158.1700673191841
168.4279338567296
178.73223033589291
188.8289297199604
199.23038460737146
209.65401470891774
219.90605875209713
229.9373034571759
239.96235270609867
2410.0362830165079
2510.5952819688765
2611.1648267830396
2711.3454852310461
2811.3525327570547
2911.3600176056202
3013.1196573819491
3113.8344619181306
3213.8797500466067
3314.7194578827144
3414.7777774853826
3516.9705467748593
3617.1213413430579
3718.2058264652671
3819.0163778401976
3919.0482803284852
4019.3977587922622
4120.8278460040401
4221.9437245504921
4324.5576451045647
4426.33021040626
4526.6672453218299
4630.7874722569039
4731.366758381802
4833.9921417448659
4934.5797337343689
5043.2794755411843
5144.9382934981700
5255.290882772132
5361.6585340373616
5463.1744337945558
5581.9184903667206
5682.5255657715052
57179.212715218528
58251.364912787275
59420.310374894618

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 2.01494416796098 \tabularnewline
2 & 2.91032644217104 \tabularnewline
3 & 3.47562943939656 \tabularnewline
4 & 4.02243707222376 \tabularnewline
5 & 4.1097445176069 \tabularnewline
6 & 4.23792402008343 \tabularnewline
7 & 4.33704968844028 \tabularnewline
8 & 4.80936586256441 \tabularnewline
9 & 5.11272921246568 \tabularnewline
10 & 5.76367938039583 \tabularnewline
11 & 5.80172388174411 \tabularnewline
12 & 6.32596452273507 \tabularnewline
13 & 7.33038838043221 \tabularnewline
14 & 7.69415362466853 \tabularnewline
15 & 8.1700673191841 \tabularnewline
16 & 8.4279338567296 \tabularnewline
17 & 8.73223033589291 \tabularnewline
18 & 8.8289297199604 \tabularnewline
19 & 9.23038460737146 \tabularnewline
20 & 9.65401470891774 \tabularnewline
21 & 9.90605875209713 \tabularnewline
22 & 9.9373034571759 \tabularnewline
23 & 9.96235270609867 \tabularnewline
24 & 10.0362830165079 \tabularnewline
25 & 10.5952819688765 \tabularnewline
26 & 11.1648267830396 \tabularnewline
27 & 11.3454852310461 \tabularnewline
28 & 11.3525327570547 \tabularnewline
29 & 11.3600176056202 \tabularnewline
30 & 13.1196573819491 \tabularnewline
31 & 13.8344619181306 \tabularnewline
32 & 13.8797500466067 \tabularnewline
33 & 14.7194578827144 \tabularnewline
34 & 14.7777774853826 \tabularnewline
35 & 16.9705467748593 \tabularnewline
36 & 17.1213413430579 \tabularnewline
37 & 18.2058264652671 \tabularnewline
38 & 19.0163778401976 \tabularnewline
39 & 19.0482803284852 \tabularnewline
40 & 19.3977587922622 \tabularnewline
41 & 20.8278460040401 \tabularnewline
42 & 21.9437245504921 \tabularnewline
43 & 24.5576451045647 \tabularnewline
44 & 26.33021040626 \tabularnewline
45 & 26.6672453218299 \tabularnewline
46 & 30.7874722569039 \tabularnewline
47 & 31.366758381802 \tabularnewline
48 & 33.9921417448659 \tabularnewline
49 & 34.5797337343689 \tabularnewline
50 & 43.2794755411843 \tabularnewline
51 & 44.9382934981700 \tabularnewline
52 & 55.290882772132 \tabularnewline
53 & 61.6585340373616 \tabularnewline
54 & 63.1744337945558 \tabularnewline
55 & 81.9184903667206 \tabularnewline
56 & 82.5255657715052 \tabularnewline
57 & 179.212715218528 \tabularnewline
58 & 251.364912787275 \tabularnewline
59 & 420.310374894618 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14434&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]2.01494416796098[/C][/ROW]
[ROW][C]2[/C][C]2.91032644217104[/C][/ROW]
[ROW][C]3[/C][C]3.47562943939656[/C][/ROW]
[ROW][C]4[/C][C]4.02243707222376[/C][/ROW]
[ROW][C]5[/C][C]4.1097445176069[/C][/ROW]
[ROW][C]6[/C][C]4.23792402008343[/C][/ROW]
[ROW][C]7[/C][C]4.33704968844028[/C][/ROW]
[ROW][C]8[/C][C]4.80936586256441[/C][/ROW]
[ROW][C]9[/C][C]5.11272921246568[/C][/ROW]
[ROW][C]10[/C][C]5.76367938039583[/C][/ROW]
[ROW][C]11[/C][C]5.80172388174411[/C][/ROW]
[ROW][C]12[/C][C]6.32596452273507[/C][/ROW]
[ROW][C]13[/C][C]7.33038838043221[/C][/ROW]
[ROW][C]14[/C][C]7.69415362466853[/C][/ROW]
[ROW][C]15[/C][C]8.1700673191841[/C][/ROW]
[ROW][C]16[/C][C]8.4279338567296[/C][/ROW]
[ROW][C]17[/C][C]8.73223033589291[/C][/ROW]
[ROW][C]18[/C][C]8.8289297199604[/C][/ROW]
[ROW][C]19[/C][C]9.23038460737146[/C][/ROW]
[ROW][C]20[/C][C]9.65401470891774[/C][/ROW]
[ROW][C]21[/C][C]9.90605875209713[/C][/ROW]
[ROW][C]22[/C][C]9.9373034571759[/C][/ROW]
[ROW][C]23[/C][C]9.96235270609867[/C][/ROW]
[ROW][C]24[/C][C]10.0362830165079[/C][/ROW]
[ROW][C]25[/C][C]10.5952819688765[/C][/ROW]
[ROW][C]26[/C][C]11.1648267830396[/C][/ROW]
[ROW][C]27[/C][C]11.3454852310461[/C][/ROW]
[ROW][C]28[/C][C]11.3525327570547[/C][/ROW]
[ROW][C]29[/C][C]11.3600176056202[/C][/ROW]
[ROW][C]30[/C][C]13.1196573819491[/C][/ROW]
[ROW][C]31[/C][C]13.8344619181306[/C][/ROW]
[ROW][C]32[/C][C]13.8797500466067[/C][/ROW]
[ROW][C]33[/C][C]14.7194578827144[/C][/ROW]
[ROW][C]34[/C][C]14.7777774853826[/C][/ROW]
[ROW][C]35[/C][C]16.9705467748593[/C][/ROW]
[ROW][C]36[/C][C]17.1213413430579[/C][/ROW]
[ROW][C]37[/C][C]18.2058264652671[/C][/ROW]
[ROW][C]38[/C][C]19.0163778401976[/C][/ROW]
[ROW][C]39[/C][C]19.0482803284852[/C][/ROW]
[ROW][C]40[/C][C]19.3977587922622[/C][/ROW]
[ROW][C]41[/C][C]20.8278460040401[/C][/ROW]
[ROW][C]42[/C][C]21.9437245504921[/C][/ROW]
[ROW][C]43[/C][C]24.5576451045647[/C][/ROW]
[ROW][C]44[/C][C]26.33021040626[/C][/ROW]
[ROW][C]45[/C][C]26.6672453218299[/C][/ROW]
[ROW][C]46[/C][C]30.7874722569039[/C][/ROW]
[ROW][C]47[/C][C]31.366758381802[/C][/ROW]
[ROW][C]48[/C][C]33.9921417448659[/C][/ROW]
[ROW][C]49[/C][C]34.5797337343689[/C][/ROW]
[ROW][C]50[/C][C]43.2794755411843[/C][/ROW]
[ROW][C]51[/C][C]44.9382934981700[/C][/ROW]
[ROW][C]52[/C][C]55.290882772132[/C][/ROW]
[ROW][C]53[/C][C]61.6585340373616[/C][/ROW]
[ROW][C]54[/C][C]63.1744337945558[/C][/ROW]
[ROW][C]55[/C][C]81.9184903667206[/C][/ROW]
[ROW][C]56[/C][C]82.5255657715052[/C][/ROW]
[ROW][C]57[/C][C]179.212715218528[/C][/ROW]
[ROW][C]58[/C][C]251.364912787275[/C][/ROW]
[ROW][C]59[/C][C]420.310374894618[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14434&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14434&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
12.01494416796098
22.91032644217104
33.47562943939656
44.02243707222376
54.1097445176069
64.23792402008343
74.33704968844028
84.80936586256441
95.11272921246568
105.76367938039583
115.80172388174411
126.32596452273507
137.33038838043221
147.69415362466853
158.1700673191841
168.4279338567296
178.73223033589291
188.8289297199604
199.23038460737146
209.65401470891774
219.90605875209713
229.9373034571759
239.96235270609867
2410.0362830165079
2510.5952819688765
2611.1648267830396
2711.3454852310461
2811.3525327570547
2911.3600176056202
3013.1196573819491
3113.8344619181306
3213.8797500466067
3314.7194578827144
3414.7777774853826
3516.9705467748593
3617.1213413430579
3718.2058264652671
3819.0163778401976
3919.0482803284852
4019.3977587922622
4120.8278460040401
4221.9437245504921
4324.5576451045647
4426.33021040626
4526.6672453218299
4630.7874722569039
4731.366758381802
4833.9921417448659
4934.5797337343689
5043.2794755411843
5144.9382934981700
5255.290882772132
5361.6585340373616
5463.1744337945558
5581.9184903667206
5682.5255657715052
57179.212715218528
58251.364912787275
59420.310374894618


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