Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationSun, 04 Nov 2007 02:51:09 -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/dwqo30as4dm0spa1194169776.htm/, Retrieved Thu, 31 Oct 2024 23:09:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=306, Retrieved Thu, 31 Oct 2024 23:09:37 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsQ2 Single linkage
Estimated Impact245
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:51:09] [3cbd35878d9bd3c68c81c01c5c6ec146] [Current]
Feedback Forum

Post a new message
Dataseries X:
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




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306&T=0

As an alternative you can also use a 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.13188388670235
116.45368112010501
126.54140657657052
136.81102048154313
146.8622153857191
157.01284535691469
167.0547856097829
177.14002801114953
187.20416546173115
197.71686464828818
207.96555082841106
217.96743371481684
228.10123447383174
238.11356888181766
248.2048765987064
258.29095893126965
268.49411561023278
278.75271386485357
288.78919791562347
298.85607136375944
308.88988188897918
318.92356431029665
328.95153618101385
338.97050723203544
349.06587006304414
359.07634287585039
369.25148636706556
379.31718841711383
389.66436754267965
399.86052736926377
409.88331928048467
419.88989383158384
429.95288902781498
439.99549898704412
449.99699954986495
4510.0044989879554
4610.0309520983803
4710.1024749442896
4810.3614670775909
4910.4947605975553
5010.7405772656780
5110.8282039138539
5211.1319360400606
5311.6481758228488
5411.6541837981044
5511.7766718558343
5611.9887447216129
5712.0660681251185
5812.1260051129793
5912.3211200789539
6012.3624431242372
6112.3899152539475
6213.0479883506999
6313.4925905592662
6413.5310753452931
6513.5535973084639
6613.9319776054945
6714.0960987510729
6815.2849599279815
6915.3518728499164
7015.6259399717265
7116.867127793433
7217.3594354746921
7317.4149361181717
7417.8555313558572
7520.6859855941166
7621.6857095802743
7723.835267986746
7823.9941659575823
7928.1700195243099

\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.13188388670235 \tabularnewline
11 & 6.45368112010501 \tabularnewline
12 & 6.54140657657052 \tabularnewline
13 & 6.81102048154313 \tabularnewline
14 & 6.8622153857191 \tabularnewline
15 & 7.01284535691469 \tabularnewline
16 & 7.0547856097829 \tabularnewline
17 & 7.14002801114953 \tabularnewline
18 & 7.20416546173115 \tabularnewline
19 & 7.71686464828818 \tabularnewline
20 & 7.96555082841106 \tabularnewline
21 & 7.96743371481684 \tabularnewline
22 & 8.10123447383174 \tabularnewline
23 & 8.11356888181766 \tabularnewline
24 & 8.2048765987064 \tabularnewline
25 & 8.29095893126965 \tabularnewline
26 & 8.49411561023278 \tabularnewline
27 & 8.75271386485357 \tabularnewline
28 & 8.78919791562347 \tabularnewline
29 & 8.85607136375944 \tabularnewline
30 & 8.88988188897918 \tabularnewline
31 & 8.92356431029665 \tabularnewline
32 & 8.95153618101385 \tabularnewline
33 & 8.97050723203544 \tabularnewline
34 & 9.06587006304414 \tabularnewline
35 & 9.07634287585039 \tabularnewline
36 & 9.25148636706556 \tabularnewline
37 & 9.31718841711383 \tabularnewline
38 & 9.66436754267965 \tabularnewline
39 & 9.86052736926377 \tabularnewline
40 & 9.88331928048467 \tabularnewline
41 & 9.88989383158384 \tabularnewline
42 & 9.95288902781498 \tabularnewline
43 & 9.99549898704412 \tabularnewline
44 & 9.99699954986495 \tabularnewline
45 & 10.0044989879554 \tabularnewline
46 & 10.0309520983803 \tabularnewline
47 & 10.1024749442896 \tabularnewline
48 & 10.3614670775909 \tabularnewline
49 & 10.4947605975553 \tabularnewline
50 & 10.7405772656780 \tabularnewline
51 & 10.8282039138539 \tabularnewline
52 & 11.1319360400606 \tabularnewline
53 & 11.6481758228488 \tabularnewline
54 & 11.6541837981044 \tabularnewline
55 & 11.7766718558343 \tabularnewline
56 & 11.9887447216129 \tabularnewline
57 & 12.0660681251185 \tabularnewline
58 & 12.1260051129793 \tabularnewline
59 & 12.3211200789539 \tabularnewline
60 & 12.3624431242372 \tabularnewline
61 & 12.3899152539475 \tabularnewline
62 & 13.0479883506999 \tabularnewline
63 & 13.4925905592662 \tabularnewline
64 & 13.5310753452931 \tabularnewline
65 & 13.5535973084639 \tabularnewline
66 & 13.9319776054945 \tabularnewline
67 & 14.0960987510729 \tabularnewline
68 & 15.2849599279815 \tabularnewline
69 & 15.3518728499164 \tabularnewline
70 & 15.6259399717265 \tabularnewline
71 & 16.867127793433 \tabularnewline
72 & 17.3594354746921 \tabularnewline
73 & 17.4149361181717 \tabularnewline
74 & 17.8555313558572 \tabularnewline
75 & 20.6859855941166 \tabularnewline
76 & 21.6857095802743 \tabularnewline
77 & 23.835267986746 \tabularnewline
78 & 23.9941659575823 \tabularnewline
79 & 28.1700195243099 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=306&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.13188388670235[/C][/ROW]
[ROW][C]11[/C][C]6.45368112010501[/C][/ROW]
[ROW][C]12[/C][C]6.54140657657052[/C][/ROW]
[ROW][C]13[/C][C]6.81102048154313[/C][/ROW]
[ROW][C]14[/C][C]6.8622153857191[/C][/ROW]
[ROW][C]15[/C][C]7.01284535691469[/C][/ROW]
[ROW][C]16[/C][C]7.0547856097829[/C][/ROW]
[ROW][C]17[/C][C]7.14002801114953[/C][/ROW]
[ROW][C]18[/C][C]7.20416546173115[/C][/ROW]
[ROW][C]19[/C][C]7.71686464828818[/C][/ROW]
[ROW][C]20[/C][C]7.96555082841106[/C][/ROW]
[ROW][C]21[/C][C]7.96743371481684[/C][/ROW]
[ROW][C]22[/C][C]8.10123447383174[/C][/ROW]
[ROW][C]23[/C][C]8.11356888181766[/C][/ROW]
[ROW][C]24[/C][C]8.2048765987064[/C][/ROW]
[ROW][C]25[/C][C]8.29095893126965[/C][/ROW]
[ROW][C]26[/C][C]8.49411561023278[/C][/ROW]
[ROW][C]27[/C][C]8.75271386485357[/C][/ROW]
[ROW][C]28[/C][C]8.78919791562347[/C][/ROW]
[ROW][C]29[/C][C]8.85607136375944[/C][/ROW]
[ROW][C]30[/C][C]8.88988188897918[/C][/ROW]
[ROW][C]31[/C][C]8.92356431029665[/C][/ROW]
[ROW][C]32[/C][C]8.95153618101385[/C][/ROW]
[ROW][C]33[/C][C]8.97050723203544[/C][/ROW]
[ROW][C]34[/C][C]9.06587006304414[/C][/ROW]
[ROW][C]35[/C][C]9.07634287585039[/C][/ROW]
[ROW][C]36[/C][C]9.25148636706556[/C][/ROW]
[ROW][C]37[/C][C]9.31718841711383[/C][/ROW]
[ROW][C]38[/C][C]9.66436754267965[/C][/ROW]
[ROW][C]39[/C][C]9.86052736926377[/C][/ROW]
[ROW][C]40[/C][C]9.88331928048467[/C][/ROW]
[ROW][C]41[/C][C]9.88989383158384[/C][/ROW]
[ROW][C]42[/C][C]9.95288902781498[/C][/ROW]
[ROW][C]43[/C][C]9.99549898704412[/C][/ROW]
[ROW][C]44[/C][C]9.99699954986495[/C][/ROW]
[ROW][C]45[/C][C]10.0044989879554[/C][/ROW]
[ROW][C]46[/C][C]10.0309520983803[/C][/ROW]
[ROW][C]47[/C][C]10.1024749442896[/C][/ROW]
[ROW][C]48[/C][C]10.3614670775909[/C][/ROW]
[ROW][C]49[/C][C]10.4947605975553[/C][/ROW]
[ROW][C]50[/C][C]10.7405772656780[/C][/ROW]
[ROW][C]51[/C][C]10.8282039138539[/C][/ROW]
[ROW][C]52[/C][C]11.1319360400606[/C][/ROW]
[ROW][C]53[/C][C]11.6481758228488[/C][/ROW]
[ROW][C]54[/C][C]11.6541837981044[/C][/ROW]
[ROW][C]55[/C][C]11.7766718558343[/C][/ROW]
[ROW][C]56[/C][C]11.9887447216129[/C][/ROW]
[ROW][C]57[/C][C]12.0660681251185[/C][/ROW]
[ROW][C]58[/C][C]12.1260051129793[/C][/ROW]
[ROW][C]59[/C][C]12.3211200789539[/C][/ROW]
[ROW][C]60[/C][C]12.3624431242372[/C][/ROW]
[ROW][C]61[/C][C]12.3899152539475[/C][/ROW]
[ROW][C]62[/C][C]13.0479883506999[/C][/ROW]
[ROW][C]63[/C][C]13.4925905592662[/C][/ROW]
[ROW][C]64[/C][C]13.5310753452931[/C][/ROW]
[ROW][C]65[/C][C]13.5535973084639[/C][/ROW]
[ROW][C]66[/C][C]13.9319776054945[/C][/ROW]
[ROW][C]67[/C][C]14.0960987510729[/C][/ROW]
[ROW][C]68[/C][C]15.2849599279815[/C][/ROW]
[ROW][C]69[/C][C]15.3518728499164[/C][/ROW]
[ROW][C]70[/C][C]15.6259399717265[/C][/ROW]
[ROW][C]71[/C][C]16.867127793433[/C][/ROW]
[ROW][C]72[/C][C]17.3594354746921[/C][/ROW]
[ROW][C]73[/C][C]17.4149361181717[/C][/ROW]
[ROW][C]74[/C][C]17.8555313558572[/C][/ROW]
[ROW][C]75[/C][C]20.6859855941166[/C][/ROW]
[ROW][C]76[/C][C]21.6857095802743[/C][/ROW]
[ROW][C]77[/C][C]23.835267986746[/C][/ROW]
[ROW][C]78[/C][C]23.9941659575823[/C][/ROW]
[ROW][C]79[/C][C]28.1700195243099[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=306&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=306&T=1

As an alternative you can also use a 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.13188388670235
116.45368112010501
126.54140657657052
136.81102048154313
146.8622153857191
157.01284535691469
167.0547856097829
177.14002801114953
187.20416546173115
197.71686464828818
207.96555082841106
217.96743371481684
228.10123447383174
238.11356888181766
248.2048765987064
258.29095893126965
268.49411561023278
278.75271386485357
288.78919791562347
298.85607136375944
308.88988188897918
318.92356431029665
328.95153618101385
338.97050723203544
349.06587006304414
359.07634287585039
369.25148636706556
379.31718841711383
389.66436754267965
399.86052736926377
409.88331928048467
419.88989383158384
429.95288902781498
439.99549898704412
449.99699954986495
4510.0044989879554
4610.0309520983803
4710.1024749442896
4810.3614670775909
4910.4947605975553
5010.7405772656780
5110.8282039138539
5211.1319360400606
5311.6481758228488
5411.6541837981044
5511.7766718558343
5611.9887447216129
5712.0660681251185
5812.1260051129793
5912.3211200789539
6012.3624431242372
6112.3899152539475
6213.0479883506999
6313.4925905592662
6413.5310753452931
6513.5535973084639
6613.9319776054945
6714.0960987510729
6815.2849599279815
6915.3518728499164
7015.6259399717265
7116.867127793433
7217.3594354746921
7317.4149361181717
7417.8555313558572
7520.6859855941166
7621.6857095802743
7723.835267986746
7823.9941659575823
7928.1700195243099



Parameters (Session):
par1 = single ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ;
Parameters (R input):
par1 = single ; 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')
}