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 computationSun, 04 Nov 2007 02:38:22 -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/04/eovkbeoz0eqfb6q1194169316.htm/, Retrieved Sun, 05 May 2024 10:31:04 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=309, Retrieved Sun, 05 May 2024 10:31:04 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsQ2 Ward Method
Estimated Impact194

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Various EDA topics] [2007-11-04 09:38:22] [3cbd35878d9bd3c68c81c01c5c6ec146] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
106,7	97,3	93,5	104,8	124,9
110,2	101	94,7	105,6	132
125,9	113,2	112,9	118,3	151,4
100,1	101	99,2	89,9	108,9
106,4	105,7	105,6	90,2	121,3
114,8	113,9	113	107	123,4
81,3	86,4	83,1	64,5	90,3
87	96,5	81,1	92,6	79,3
104,2	103,3	96,9	95,8	117,2
108	114,9	104,3	94,3	116,9
105	105,8	97,7	91,2	120,8
94,5	94,2	102,6	86,3	96,1
92	98,4	89,9	77,6	100,8
95,9	99,4	96	82,5	105,3
108,8	108,8	112,7	97,7	116,1
103,4	112,6	107,1	83,3	112,8
102,1	104,4	106,2	84,2	114,5
110,1	112,2	121	92,8	117,2
83,2	81,1	101,2	77,4	77,1
82,7	97,1	83,2	72,5	80,1
106,8	112,6	105,1	88,8	120,3
113,7	113,8	113,3	93,4	133,4
102,5	107,8	99,1	92,6	109,4
96,6	103,2	100,3	90,7	93,2
92,1	103,3	93,5	81,6	91,2
95,6	101,2	98,8	84,1	99,2
102,3	107,7	106,2	88,1	108,2
98,6	110,4	98,3	85,3	101,5
98,2	101,9	102,1	82,9	106,9
104,5	115,9	117,1	84,8	104,4
84	89,9	101,5	71,2	77,9
73,8	88,6	80,5	68,9	60
103,9	117,2	105,9	94,3	99,5
106	123,9	109,5	97,6	95
97,2	100	97,2	85,6	105,6
102,6	103,6	114,5	91,9	102,5
89	94,1	93,5	75,8	93,3
93,8	98,7	100,9	79,8	97,3
116,7	119,5	121,1	99	127
106,8	112,7	116,5	88,5	111,7
98,5	104,4	109,3	86,7	96,4
118,7	124,7	118,1	97,9	133
90	89,1	108,3	94,3	72,2
91,9	97	105,4	72,9	95,8
113,3	121,6	116,2	91,8	124,1
113,1	118,8	111,2	93,2	127,6
104,1	114	105,8	86,5	110,7
108,7	111,5	122,7	98,9	104,6
96,7	97,2	99,5	77,2	112,7
101	102,5	107,9	79,4	115,3
116,9	113,4	124,6	90,4	139,4
105,8	109,8	115	81,4	119
99	104,9	110,3	85,8	97,4
129,4	126,1	132,7	103,6	154
83	80	99,7	73,6	81,5
88,9	96,8	96,5	75,7	88,8
115,9	117,2	118,7	99,2	127,7
104,2	112,3	112,9	88,7	105,1
113,4	117,3	130,5	94,6	114,9
112,2	111,1	137,9	98,7	106,4
100,8	102,2	115	84,2	104,5
107,3	104,3	116,8	87,7	121,6
126,6	122,9	140,9	103,3	141,4
102,9	107,6	120,7	88,2	99
117,9	121,3	134,2	93,4	126,7
128,8	131,5	147,3	106,3	134,1
87,5	89	112,4	73,1	81,3
93,8	104,4	107,1	78,6	88,6
122,7	128,9	128,4	101,6	132,7
126,2	135,9	137,7	101,4	132,9
124,6	133,3	135	98,5	134,4
116,7	121,3	151	99	103,7
115,2	120,5	137,4	89,5	119,7
111,1	120,4	132,4	83,5	115
129,9	137,9	161,3	97,4	132,9
113,3	126,1	139,8	87,8	108,5
118,5	133,2	146	90,4	113,9
133,5	146,6	154,6	97,1	142,9
102,1	103,4	142,1	79,4	95,2
102,4	117,2	120,5	85	93

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309&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]2 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=309&T=0

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






Summary of Dendrogram
LabelHeight
11.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.22206855565876
65.60267793113257
76
86.04648658313239
96.107372593841
106.45368112010501
116.81102048154313
126.8622153857191
137.01284535691469
147.66016096709536
157.71686464828818
168.29095893126965
178.85607136375944
188.94475193585276
198.95153618101385
209.06587006304414
219.07634287585039
229.39912978430005
239.66436754267965
249.8777521198984
2510.2817793422634
2611.1657039324978
2711.4150218295894
2811.7454217764764
2911.9050409491106
3012.0474063598768
3112.0660681251185
3212.1260051129793
3312.2913149777137
3412.3211200789539
3512.5654287630785
3612.9172238594827
3713.4925905592662
3813.8837443883003
3915.1014826756714
4015.2849599279815
4115.7076414524906
4216.2680147602663
4316.5576265235264
4416.6203200001141
4516.867127793433
4617.4489871995578
4717.6846354763138
4817.6884716426138
4917.7946157752727
5017.9805592724417
5119.9488838810722
5220.0366097422212
5322.8638541990587
5423.0728482355722
5523.1032243727837
5625.0706386629349
5725.6955506647825
5828.00457801722
5929.2728543193178
6030.7275486798671
6131.5113788522284
6232.0615732511673
6332.7013742245969
6437.0368002015006
6537.4196528028941
6641.7856700368903
6744.249656928956
6848.1239203011091
6949.6756216885307
7050.3853980081709
7152.7048133360341
7252.9049742776570
7377.7036951161522
74106.168172009213
75161.084586632303
76183.422136471555
77199.396670718375
78382.339082324229
79850.031712563636

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.81934053986603 \tabularnewline
2 & 3.4957116585897 \tabularnewline
3 & 3.63180395946697 \tabularnewline
4 & 4.33474336033865 \tabularnewline
5 & 5.22206855565876 \tabularnewline
6 & 5.60267793113257 \tabularnewline
7 & 6 \tabularnewline
8 & 6.04648658313239 \tabularnewline
9 & 6.107372593841 \tabularnewline
10 & 6.45368112010501 \tabularnewline
11 & 6.81102048154313 \tabularnewline
12 & 6.8622153857191 \tabularnewline
13 & 7.01284535691469 \tabularnewline
14 & 7.66016096709536 \tabularnewline
15 & 7.71686464828818 \tabularnewline
16 & 8.29095893126965 \tabularnewline
17 & 8.85607136375944 \tabularnewline
18 & 8.94475193585276 \tabularnewline
19 & 8.95153618101385 \tabularnewline
20 & 9.06587006304414 \tabularnewline
21 & 9.07634287585039 \tabularnewline
22 & 9.39912978430005 \tabularnewline
23 & 9.66436754267965 \tabularnewline
24 & 9.8777521198984 \tabularnewline
25 & 10.2817793422634 \tabularnewline
26 & 11.1657039324978 \tabularnewline
27 & 11.4150218295894 \tabularnewline
28 & 11.7454217764764 \tabularnewline
29 & 11.9050409491106 \tabularnewline
30 & 12.0474063598768 \tabularnewline
31 & 12.0660681251185 \tabularnewline
32 & 12.1260051129793 \tabularnewline
33 & 12.2913149777137 \tabularnewline
34 & 12.3211200789539 \tabularnewline
35 & 12.5654287630785 \tabularnewline
36 & 12.9172238594827 \tabularnewline
37 & 13.4925905592662 \tabularnewline
38 & 13.8837443883003 \tabularnewline
39 & 15.1014826756714 \tabularnewline
40 & 15.2849599279815 \tabularnewline
41 & 15.7076414524906 \tabularnewline
42 & 16.2680147602663 \tabularnewline
43 & 16.5576265235264 \tabularnewline
44 & 16.6203200001141 \tabularnewline
45 & 16.867127793433 \tabularnewline
46 & 17.4489871995578 \tabularnewline
47 & 17.6846354763138 \tabularnewline
48 & 17.6884716426138 \tabularnewline
49 & 17.7946157752727 \tabularnewline
50 & 17.9805592724417 \tabularnewline
51 & 19.9488838810722 \tabularnewline
52 & 20.0366097422212 \tabularnewline
53 & 22.8638541990587 \tabularnewline
54 & 23.0728482355722 \tabularnewline
55 & 23.1032243727837 \tabularnewline
56 & 25.0706386629349 \tabularnewline
57 & 25.6955506647825 \tabularnewline
58 & 28.00457801722 \tabularnewline
59 & 29.2728543193178 \tabularnewline
60 & 30.7275486798671 \tabularnewline
61 & 31.5113788522284 \tabularnewline
62 & 32.0615732511673 \tabularnewline
63 & 32.7013742245969 \tabularnewline
64 & 37.0368002015006 \tabularnewline
65 & 37.4196528028941 \tabularnewline
66 & 41.7856700368903 \tabularnewline
67 & 44.249656928956 \tabularnewline
68 & 48.1239203011091 \tabularnewline
69 & 49.6756216885307 \tabularnewline
70 & 50.3853980081709 \tabularnewline
71 & 52.7048133360341 \tabularnewline
72 & 52.9049742776570 \tabularnewline
73 & 77.7036951161522 \tabularnewline
74 & 106.168172009213 \tabularnewline
75 & 161.084586632303 \tabularnewline
76 & 183.422136471555 \tabularnewline
77 & 199.396670718375 \tabularnewline
78 & 382.339082324229 \tabularnewline
79 & 850.031712563636 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=309&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.81934053986603[/C][/ROW]
[ROW][C]2[/C][C]3.4957116585897[/C][/ROW]
[ROW][C]3[/C][C]3.63180395946697[/C][/ROW]
[ROW][C]4[/C][C]4.33474336033865[/C][/ROW]
[ROW][C]5[/C][C]5.22206855565876[/C][/ROW]
[ROW][C]6[/C][C]5.60267793113257[/C][/ROW]
[ROW][C]7[/C][C]6[/C][/ROW]
[ROW][C]8[/C][C]6.04648658313239[/C][/ROW]
[ROW][C]9[/C][C]6.107372593841[/C][/ROW]
[ROW][C]10[/C][C]6.45368112010501[/C][/ROW]
[ROW][C]11[/C][C]6.81102048154313[/C][/ROW]
[ROW][C]12[/C][C]6.8622153857191[/C][/ROW]
[ROW][C]13[/C][C]7.01284535691469[/C][/ROW]
[ROW][C]14[/C][C]7.66016096709536[/C][/ROW]
[ROW][C]15[/C][C]7.71686464828818[/C][/ROW]
[ROW][C]16[/C][C]8.29095893126965[/C][/ROW]
[ROW][C]17[/C][C]8.85607136375944[/C][/ROW]
[ROW][C]18[/C][C]8.94475193585276[/C][/ROW]
[ROW][C]19[/C][C]8.95153618101385[/C][/ROW]
[ROW][C]20[/C][C]9.06587006304414[/C][/ROW]
[ROW][C]21[/C][C]9.07634287585039[/C][/ROW]
[ROW][C]22[/C][C]9.39912978430005[/C][/ROW]
[ROW][C]23[/C][C]9.66436754267965[/C][/ROW]
[ROW][C]24[/C][C]9.8777521198984[/C][/ROW]
[ROW][C]25[/C][C]10.2817793422634[/C][/ROW]
[ROW][C]26[/C][C]11.1657039324978[/C][/ROW]
[ROW][C]27[/C][C]11.4150218295894[/C][/ROW]
[ROW][C]28[/C][C]11.7454217764764[/C][/ROW]
[ROW][C]29[/C][C]11.9050409491106[/C][/ROW]
[ROW][C]30[/C][C]12.0474063598768[/C][/ROW]
[ROW][C]31[/C][C]12.0660681251185[/C][/ROW]
[ROW][C]32[/C][C]12.1260051129793[/C][/ROW]
[ROW][C]33[/C][C]12.2913149777137[/C][/ROW]
[ROW][C]34[/C][C]12.3211200789539[/C][/ROW]
[ROW][C]35[/C][C]12.5654287630785[/C][/ROW]
[ROW][C]36[/C][C]12.9172238594827[/C][/ROW]
[ROW][C]37[/C][C]13.4925905592662[/C][/ROW]
[ROW][C]38[/C][C]13.8837443883003[/C][/ROW]
[ROW][C]39[/C][C]15.1014826756714[/C][/ROW]
[ROW][C]40[/C][C]15.2849599279815[/C][/ROW]
[ROW][C]41[/C][C]15.7076414524906[/C][/ROW]
[ROW][C]42[/C][C]16.2680147602663[/C][/ROW]
[ROW][C]43[/C][C]16.5576265235264[/C][/ROW]
[ROW][C]44[/C][C]16.6203200001141[/C][/ROW]
[ROW][C]45[/C][C]16.867127793433[/C][/ROW]
[ROW][C]46[/C][C]17.4489871995578[/C][/ROW]
[ROW][C]47[/C][C]17.6846354763138[/C][/ROW]
[ROW][C]48[/C][C]17.6884716426138[/C][/ROW]
[ROW][C]49[/C][C]17.7946157752727[/C][/ROW]
[ROW][C]50[/C][C]17.9805592724417[/C][/ROW]
[ROW][C]51[/C][C]19.9488838810722[/C][/ROW]
[ROW][C]52[/C][C]20.0366097422212[/C][/ROW]
[ROW][C]53[/C][C]22.8638541990587[/C][/ROW]
[ROW][C]54[/C][C]23.0728482355722[/C][/ROW]
[ROW][C]55[/C][C]23.1032243727837[/C][/ROW]
[ROW][C]56[/C][C]25.0706386629349[/C][/ROW]
[ROW][C]57[/C][C]25.6955506647825[/C][/ROW]
[ROW][C]58[/C][C]28.00457801722[/C][/ROW]
[ROW][C]59[/C][C]29.2728543193178[/C][/ROW]
[ROW][C]60[/C][C]30.7275486798671[/C][/ROW]
[ROW][C]61[/C][C]31.5113788522284[/C][/ROW]
[ROW][C]62[/C][C]32.0615732511673[/C][/ROW]
[ROW][C]63[/C][C]32.7013742245969[/C][/ROW]
[ROW][C]64[/C][C]37.0368002015006[/C][/ROW]
[ROW][C]65[/C][C]37.4196528028941[/C][/ROW]
[ROW][C]66[/C][C]41.7856700368903[/C][/ROW]
[ROW][C]67[/C][C]44.249656928956[/C][/ROW]
[ROW][C]68[/C][C]48.1239203011091[/C][/ROW]
[ROW][C]69[/C][C]49.6756216885307[/C][/ROW]
[ROW][C]70[/C][C]50.3853980081709[/C][/ROW]
[ROW][C]71[/C][C]52.7048133360341[/C][/ROW]
[ROW][C]72[/C][C]52.9049742776570[/C][/ROW]
[ROW][C]73[/C][C]77.7036951161522[/C][/ROW]
[ROW][C]74[/C][C]106.168172009213[/C][/ROW]
[ROW][C]75[/C][C]161.084586632303[/C][/ROW]
[ROW][C]76[/C][C]183.422136471555[/C][/ROW]
[ROW][C]77[/C][C]199.396670718375[/C][/ROW]
[ROW][C]78[/C][C]382.339082324229[/C][/ROW]
[ROW][C]79[/C][C]850.031712563636[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=309&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=309&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.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.22206855565876
65.60267793113257
76
86.04648658313239
96.107372593841
106.45368112010501
116.81102048154313
126.8622153857191
137.01284535691469
147.66016096709536
157.71686464828818
168.29095893126965
178.85607136375944
188.94475193585276
198.95153618101385
209.06587006304414
219.07634287585039
229.39912978430005
239.66436754267965
249.8777521198984
2510.2817793422634
2611.1657039324978
2711.4150218295894
2811.7454217764764
2911.9050409491106
3012.0474063598768
3112.0660681251185
3212.1260051129793
3312.2913149777137
3412.3211200789539
3512.5654287630785
3612.9172238594827
3713.4925905592662
3813.8837443883003
3915.1014826756714
4015.2849599279815
4115.7076414524906
4216.2680147602663
4316.5576265235264
4416.6203200001141
4516.867127793433
4617.4489871995578
4717.6846354763138
4817.6884716426138
4917.7946157752727
5017.9805592724417
5119.9488838810722
5220.0366097422212
5322.8638541990587
5423.0728482355722
5523.1032243727837
5625.0706386629349
5725.6955506647825
5828.00457801722
5929.2728543193178
6030.7275486798671
6131.5113788522284
6232.0615732511673
6332.7013742245969
6437.0368002015006
6537.4196528028941
6641.7856700368903
6744.249656928956
6848.1239203011091
6949.6756216885307
7050.3853980081709
7152.7048133360341
7252.9049742776570
7377.7036951161522
74106.168172009213
75161.084586632303
76183.422136471555
77199.396670718375
78382.339082324229
79850.031712563636


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