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 03:51:28 -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/t12263143496j03un7587l49bu.htm/, Retrieved Sat, 18 May 2024 18:53:37 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=22927, Retrieved Sat, 18 May 2024 18:53:37 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Hierarchical Clustering] [Hierarchical clus...] [2008-11-10 10:51:28] [6aa66640011d9b98524a5838bcf7301d] [Current]
Feedback Forum
2008-11-19 15:12:24 [Mehmet Yilmaz] [reply] 

De student maakt de nodige berekening en geeft juiste conclusie.
Deze boomstructuurdiagram toont aan waar en hoe de clusters zich bevinden of geplaatst zijn. Dit wordt puur exploratief gebruikt.
Meestal wordt dit gebruikt voor niet tijdreeksen vb marketing welke producten behoren samen?
2008-11-19 21:22:27 [Nathalie Koulouris] [reply] 
De student heeft de berekening correct uitgevoerd en trekt de juiste conclusie.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
4,43	88,3
4,61	88,6
4,54	91
4,2	91,5
4,08	95,4
3,95	98,7
4,19	99,9
4,23	98,6
3,89	100,3
3,92	100,2
4,14	100,4
4,24	101,4
4,08	103
4,37	109,1
4,43	111,4
4,3	114,1
4,27	121,8
4,06	127,6
3,96	129,9
4,21	128
4,31	123,5
4,35	124
4,25	127,4
4,06	127,6
4	128,4
3,87	131,4
3,71	135,1
3,63	134
3,48	144,5
3,6	147,3
3,66	150,9
3,45	148,7
3,3	141,4
3,14	138,9
3,21	139,8
3,12	145,6
3,14	147,9
3,4	148,5
3,42	151,1
3,29	157,5
3,49	167,5
3,52	172,3
3,81	173,5
4,03	187,5
3,98	205,5
4,1	195,1
3,96	204,5
3,83	204,5
3,72	201,7
3,82	207
3,76	206,6
3,98	210,6
4,14	211,1
4	215
4,13	223,9
4,28	238,2
4,46	238,9
4,63	229,6
4,49	232,2
4,41	222,1
4,5	221,6
4,39	227,3
4,33	221
4,45	213,6
4,17	243,4
4,13	253,8
4,33	265,3
4,47	268,2
4,63	268,5
4,9	266,9

Tables (Output of Computation)





Summary of computational 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 computational 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=22927&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]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=22927&T=0

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






Summary of Dendrogram
LabelHeight
10
20.1044030650891
30.13
40.206155281280872
50.297321374946373
60.312409987036259
70.34000000000001
80.342918721839033
90.349857113690716
100.367816379310222
110.404474968323139
120.451774279923066
130.501597448159378
140.508035431835221
150.524976189936267
160.59122080450209
170.604648658313239
180.722772439983723
190.756042326857427
200.902718117686806
210.981670674337408
221.10290525431697
231.15741090369842
241.21820981059473
251.23454445039455
261.29759160054122
271.47054411698528
281.50269757436418
291.58712084703855
301.60798009937934
311.69849933765071
322.30078247559391
332.31248783780584
342.43408390931402
352.43752330659312
363.15662684972837
373.53540047824407
383.62295788799493
393.924238009204
404.23236192374821
414.36881770407533
425.13832199667298
435.14292449699659
445.58142180313298
455.93138866297624
466.23274124925701
476.51164336427747
486.55128267730654
496.79423253179157
507.43637705227406
517.6003223615844
528.57031883938793
5311.2138966029096
5415.0221891164245
5518.1185167951723
5618.7133475648716
5720.1693662932021
5827.2706086376061
5940.721749166757
6043.1832114125376
6150.2170352711611
6255.369809249064
6364.8708625508368
64139.135869789165
65151.849447819497
66170.072398849113
67375.184498272536
68538.994605484967
692414.73615853108

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0 \tabularnewline
2 & 0.1044030650891 \tabularnewline
3 & 0.13 \tabularnewline
4 & 0.206155281280872 \tabularnewline
5 & 0.297321374946373 \tabularnewline
6 & 0.312409987036259 \tabularnewline
7 & 0.34000000000001 \tabularnewline
8 & 0.342918721839033 \tabularnewline
9 & 0.349857113690716 \tabularnewline
10 & 0.367816379310222 \tabularnewline
11 & 0.404474968323139 \tabularnewline
12 & 0.451774279923066 \tabularnewline
13 & 0.501597448159378 \tabularnewline
14 & 0.508035431835221 \tabularnewline
15 & 0.524976189936267 \tabularnewline
16 & 0.59122080450209 \tabularnewline
17 & 0.604648658313239 \tabularnewline
18 & 0.722772439983723 \tabularnewline
19 & 0.756042326857427 \tabularnewline
20 & 0.902718117686806 \tabularnewline
21 & 0.981670674337408 \tabularnewline
22 & 1.10290525431697 \tabularnewline
23 & 1.15741090369842 \tabularnewline
24 & 1.21820981059473 \tabularnewline
25 & 1.23454445039455 \tabularnewline
26 & 1.29759160054122 \tabularnewline
27 & 1.47054411698528 \tabularnewline
28 & 1.50269757436418 \tabularnewline
29 & 1.58712084703855 \tabularnewline
30 & 1.60798009937934 \tabularnewline
31 & 1.69849933765071 \tabularnewline
32 & 2.30078247559391 \tabularnewline
33 & 2.31248783780584 \tabularnewline
34 & 2.43408390931402 \tabularnewline
35 & 2.43752330659312 \tabularnewline
36 & 3.15662684972837 \tabularnewline
37 & 3.53540047824407 \tabularnewline
38 & 3.62295788799493 \tabularnewline
39 & 3.924238009204 \tabularnewline
40 & 4.23236192374821 \tabularnewline
41 & 4.36881770407533 \tabularnewline
42 & 5.13832199667298 \tabularnewline
43 & 5.14292449699659 \tabularnewline
44 & 5.58142180313298 \tabularnewline
45 & 5.93138866297624 \tabularnewline
46 & 6.23274124925701 \tabularnewline
47 & 6.51164336427747 \tabularnewline
48 & 6.55128267730654 \tabularnewline
49 & 6.79423253179157 \tabularnewline
50 & 7.43637705227406 \tabularnewline
51 & 7.6003223615844 \tabularnewline
52 & 8.57031883938793 \tabularnewline
53 & 11.2138966029096 \tabularnewline
54 & 15.0221891164245 \tabularnewline
55 & 18.1185167951723 \tabularnewline
56 & 18.7133475648716 \tabularnewline
57 & 20.1693662932021 \tabularnewline
58 & 27.2706086376061 \tabularnewline
59 & 40.721749166757 \tabularnewline
60 & 43.1832114125376 \tabularnewline
61 & 50.2170352711611 \tabularnewline
62 & 55.369809249064 \tabularnewline
63 & 64.8708625508368 \tabularnewline
64 & 139.135869789165 \tabularnewline
65 & 151.849447819497 \tabularnewline
66 & 170.072398849113 \tabularnewline
67 & 375.184498272536 \tabularnewline
68 & 538.994605484967 \tabularnewline
69 & 2414.73615853108 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22927&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0[/C][/ROW]
[ROW][C]2[/C][C]0.1044030650891[/C][/ROW]
[ROW][C]3[/C][C]0.13[/C][/ROW]
[ROW][C]4[/C][C]0.206155281280872[/C][/ROW]
[ROW][C]5[/C][C]0.297321374946373[/C][/ROW]
[ROW][C]6[/C][C]0.312409987036259[/C][/ROW]
[ROW][C]7[/C][C]0.34000000000001[/C][/ROW]
[ROW][C]8[/C][C]0.342918721839033[/C][/ROW]
[ROW][C]9[/C][C]0.349857113690716[/C][/ROW]
[ROW][C]10[/C][C]0.367816379310222[/C][/ROW]
[ROW][C]11[/C][C]0.404474968323139[/C][/ROW]
[ROW][C]12[/C][C]0.451774279923066[/C][/ROW]
[ROW][C]13[/C][C]0.501597448159378[/C][/ROW]
[ROW][C]14[/C][C]0.508035431835221[/C][/ROW]
[ROW][C]15[/C][C]0.524976189936267[/C][/ROW]
[ROW][C]16[/C][C]0.59122080450209[/C][/ROW]
[ROW][C]17[/C][C]0.604648658313239[/C][/ROW]
[ROW][C]18[/C][C]0.722772439983723[/C][/ROW]
[ROW][C]19[/C][C]0.756042326857427[/C][/ROW]
[ROW][C]20[/C][C]0.902718117686806[/C][/ROW]
[ROW][C]21[/C][C]0.981670674337408[/C][/ROW]
[ROW][C]22[/C][C]1.10290525431697[/C][/ROW]
[ROW][C]23[/C][C]1.15741090369842[/C][/ROW]
[ROW][C]24[/C][C]1.21820981059473[/C][/ROW]
[ROW][C]25[/C][C]1.23454445039455[/C][/ROW]
[ROW][C]26[/C][C]1.29759160054122[/C][/ROW]
[ROW][C]27[/C][C]1.47054411698528[/C][/ROW]
[ROW][C]28[/C][C]1.50269757436418[/C][/ROW]
[ROW][C]29[/C][C]1.58712084703855[/C][/ROW]
[ROW][C]30[/C][C]1.60798009937934[/C][/ROW]
[ROW][C]31[/C][C]1.69849933765071[/C][/ROW]
[ROW][C]32[/C][C]2.30078247559391[/C][/ROW]
[ROW][C]33[/C][C]2.31248783780584[/C][/ROW]
[ROW][C]34[/C][C]2.43408390931402[/C][/ROW]
[ROW][C]35[/C][C]2.43752330659312[/C][/ROW]
[ROW][C]36[/C][C]3.15662684972837[/C][/ROW]
[ROW][C]37[/C][C]3.53540047824407[/C][/ROW]
[ROW][C]38[/C][C]3.62295788799493[/C][/ROW]
[ROW][C]39[/C][C]3.924238009204[/C][/ROW]
[ROW][C]40[/C][C]4.23236192374821[/C][/ROW]
[ROW][C]41[/C][C]4.36881770407533[/C][/ROW]
[ROW][C]42[/C][C]5.13832199667298[/C][/ROW]
[ROW][C]43[/C][C]5.14292449699659[/C][/ROW]
[ROW][C]44[/C][C]5.58142180313298[/C][/ROW]
[ROW][C]45[/C][C]5.93138866297624[/C][/ROW]
[ROW][C]46[/C][C]6.23274124925701[/C][/ROW]
[ROW][C]47[/C][C]6.51164336427747[/C][/ROW]
[ROW][C]48[/C][C]6.55128267730654[/C][/ROW]
[ROW][C]49[/C][C]6.79423253179157[/C][/ROW]
[ROW][C]50[/C][C]7.43637705227406[/C][/ROW]
[ROW][C]51[/C][C]7.6003223615844[/C][/ROW]
[ROW][C]52[/C][C]8.57031883938793[/C][/ROW]
[ROW][C]53[/C][C]11.2138966029096[/C][/ROW]
[ROW][C]54[/C][C]15.0221891164245[/C][/ROW]
[ROW][C]55[/C][C]18.1185167951723[/C][/ROW]
[ROW][C]56[/C][C]18.7133475648716[/C][/ROW]
[ROW][C]57[/C][C]20.1693662932021[/C][/ROW]
[ROW][C]58[/C][C]27.2706086376061[/C][/ROW]
[ROW][C]59[/C][C]40.721749166757[/C][/ROW]
[ROW][C]60[/C][C]43.1832114125376[/C][/ROW]
[ROW][C]61[/C][C]50.2170352711611[/C][/ROW]
[ROW][C]62[/C][C]55.369809249064[/C][/ROW]
[ROW][C]63[/C][C]64.8708625508368[/C][/ROW]
[ROW][C]64[/C][C]139.135869789165[/C][/ROW]
[ROW][C]65[/C][C]151.849447819497[/C][/ROW]
[ROW][C]66[/C][C]170.072398849113[/C][/ROW]
[ROW][C]67[/C][C]375.184498272536[/C][/ROW]
[ROW][C]68[/C][C]538.994605484967[/C][/ROW]
[ROW][C]69[/C][C]2414.73615853108[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22927&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22927&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
10
20.1044030650891
30.13
40.206155281280872
50.297321374946373
60.312409987036259
70.34000000000001
80.342918721839033
90.349857113690716
100.367816379310222
110.404474968323139
120.451774279923066
130.501597448159378
140.508035431835221
150.524976189936267
160.59122080450209
170.604648658313239
180.722772439983723
190.756042326857427
200.902718117686806
210.981670674337408
221.10290525431697
231.15741090369842
241.21820981059473
251.23454445039455
261.29759160054122
271.47054411698528
281.50269757436418
291.58712084703855
301.60798009937934
311.69849933765071
322.30078247559391
332.31248783780584
342.43408390931402
352.43752330659312
363.15662684972837
373.53540047824407
383.62295788799493
393.924238009204
404.23236192374821
414.36881770407533
425.13832199667298
435.14292449699659
445.58142180313298
455.93138866297624
466.23274124925701
476.51164336427747
486.55128267730654
496.79423253179157
507.43637705227406
517.6003223615844
528.57031883938793
5311.2138966029096
5415.0221891164245
5518.1185167951723
5618.7133475648716
5720.1693662932021
5827.2706086376061
5940.721749166757
6043.1832114125376
6150.2170352711611
6255.369809249064
6364.8708625508368
64139.135869789165
65151.849447819497
66170.072398849113
67375.184498272536
68538.994605484967
692414.73615853108


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