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 computationThu, 13 Nov 2008 10:06: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/2008/Nov/13/t1226596046tl1rxgfmot2juis.htm/, Retrieved Mon, 20 May 2024 09:17:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24710, Retrieved Mon, 20 May 2024 09:17:54 +0000
QR Codes:

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

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] [Q2] [2008-11-13 17:06:04] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum
2008-11-16 14:35:57 [Bert Moons] [reply] 
geen besluit gegeven - Vermits er niet vermeld is welke tijdsperiodes elk gegeven beslaat is het moeilijk een besluit te trekken.
2008-11-21 13:25:46 [Thomas Plasschaert] [reply] 
Graag wat meer uitleg over de grafiek, wat doet deze figuur? namelijk dat deze alle waarnemingen die grote gelijkenissen bij elkaar zet, en dit steeds verder uitsplitst tot er slecht 1 waarneming per tak is.
2008-11-21 23:14:30 [Vincent Vanden Poel] [reply] 
Ondertussen heb ik een correcte definitie voor deze grafiek gevonden. Dendogrammen geven visueel de relatie weer tussen verschillende variabelen. Ze geven weer in hoeverre een variabele gerelateerd is tot een andere variabele. Hoe langer de eindbenen, hoe meer de variabelen gemeenschappelijk hebben.

De data bevat maandelijkse perioden van 31-01-2003 tot 31-08-2008.
2008-11-24 20:00:35 [5faab2fc6fb120339944528a32d48a04] [reply] 
Door een dendogram te maken kunnen we clustergroepen opsplitsen. Eerst worden de gegevens opgesplitst in 2 groepen. Daarna worden deze 2 telkens opnieuw verder onderverdeeld. Je kan aan de getallen onderaan de dendogram afleiden welke data bij elkaar horen en die dus waarschijnlijk in dezelfde omstandigheden voorvallen. Het is echter zeer moeilijk om hier een patroon in te vinden vermits de gegevens niet zeer duidelijk zijn.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
97,4	91,2	97,3	119,46
97	99,2	97,4	122,52
105,4	108,2	97,5	124,1
102,7	101,5	95,5	118,39
98,1	106,9	95,3	113,1
104,5	104,4	95,4	113,94
87,4	77,9	95,4	114,58
89,9	60	95,4	118,79
109,8	99,5	95,5	120,44
111,7	95	94,6	118,37
98,6	105,6	95,2	118,44
96,9	102,5	95,2	117,93
95,1	93,3	94,7	117,76
97	97,3	94,7	118,29
112,7	127	94,7	121,11
102,9	111,7	95,3	124,86
97,4	96,4	94,7	131,17
111,4	133	94,8	130,16
87,4	72,2	94,9	131,76
96,8	95,8	95,4	134,7
114,1	124,1	96	135,32
110,3	127,6	95,9	140,23
103,9	110,7	95,8	136,31
101,6	104,6	95,8	131,62
94,6	112,7	95,1	128,9
95,9	115,3	95,2	133,89
104,7	139,4	95,2	138,21
102,8	119	95,3	146,12
98,1	97,4	95,4	144,69
113,9	154	95,3	149,18
80,9	81,5	95,3	156,6
95,7	88,8	95	158,87
113,2	127,7	94,9	164,85
105,9	105,1	95,7	162,89
108,8	114,9	95,7	153,31
102,3	106,4	96,3	150,91
99	104,5	91,7	119,55
100,7	121,6	92,2	119,44
115,5	141,4	92,2	120,25
100,7	99	92,6	124,92
109,9	126,7	93	126,34
114,6	134,1	93	125,88
85,4	81,3	93	127,34
100,5	88,6	93,7	127,48
114,8	132,7	93,1	119,41
116,5	132,9	93,1	114,82
112,9	134,4	93,2	115,28
102	103,7	93,2	116,37
106	119,7	93	111,99
105,3	115	93,7	113,57
118,8	132,9	94	117,69
106,1	108,5	93,1	120,74
109,3	113,9	94,2	122,37
117,2	142	94,2	123,57
92,5	97,7	93,5	124,86
104,2	92,2	95	122,08
112,5	128,8	93,7	123,56
122,4	134,9	93,9	126,92
113,3	128,2	94,6	134,88
100	114,8	93,8	130,64
110,7	117,9	91,2	131,65
112,8	119,1	91,4	130,97
109,8	120,7	91,3	136,77
117,3	129,1	91,5	138,17
109,1	117,6	91,5	146,4
115,9	129,2	91,5	152,07
96	100	91,3	153,05
97,6	87,3	92,8	142,89

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 3 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24710&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24710&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24710&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 time3 seconds
R Server'George Udny Yule' @ 72.249.76.132






Summary of Dendrogram
LabelHeight
12.52039679415761
23.2066337489648
33.57212821718369
43.69741801802285
53.78640990913557
63.83411006623440
74.27462279037577
84.39886348958455
94.42759528412433
104.59544620390592
114.85457516163876
124.89056233985418
135.05632277450718
145.24905615642281
155.36590160178138
165.38097574794758
175.43897968372745
185.61641894928298
195.74529372617275
205.98555422948228
216.1626852785304
226.43098555484393
237.47519559630302
247.49455802566102
257.57939659851098
267.58287544405156
277.93167736442996
287.9491084099433
298.02949333769852
308.03094639503964
318.16861540106916
328.3894704910672
339.89290654964456
3410.0091921050243
3510.4860097272509
3610.8781090219082
3711.1642344242557
3811.2769092592800
3911.5372030634177
4013.0493855699064
4113.5804418190278
4216.0899172746490
4316.3113580060031
4416.9128392266366
4517.2059930954734
4617.6230170550563
4719.3109932800032
4820.4487383473896
4920.6772116791852
5023.0013131879744
5123.0629010131737
5223.8633704055692
5323.9929537681241
5426.7941190598829
5527.6124004646797
5629.4673176269962
5729.5774546396966
5837.3411187850998
5948.1348308714605
6052.5389318553996
6154.4507801097401
6259.2820113475205
63108.777537755306
64131.835367727673
65156.327921441824
66233.881323970893
67552.805323733346

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 2.52039679415761 \tabularnewline
2 & 3.2066337489648 \tabularnewline
3 & 3.57212821718369 \tabularnewline
4 & 3.69741801802285 \tabularnewline
5 & 3.78640990913557 \tabularnewline
6 & 3.83411006623440 \tabularnewline
7 & 4.27462279037577 \tabularnewline
8 & 4.39886348958455 \tabularnewline
9 & 4.42759528412433 \tabularnewline
10 & 4.59544620390592 \tabularnewline
11 & 4.85457516163876 \tabularnewline
12 & 4.89056233985418 \tabularnewline
13 & 5.05632277450718 \tabularnewline
14 & 5.24905615642281 \tabularnewline
15 & 5.36590160178138 \tabularnewline
16 & 5.38097574794758 \tabularnewline
17 & 5.43897968372745 \tabularnewline
18 & 5.61641894928298 \tabularnewline
19 & 5.74529372617275 \tabularnewline
20 & 5.98555422948228 \tabularnewline
21 & 6.1626852785304 \tabularnewline
22 & 6.43098555484393 \tabularnewline
23 & 7.47519559630302 \tabularnewline
24 & 7.49455802566102 \tabularnewline
25 & 7.57939659851098 \tabularnewline
26 & 7.58287544405156 \tabularnewline
27 & 7.93167736442996 \tabularnewline
28 & 7.9491084099433 \tabularnewline
29 & 8.02949333769852 \tabularnewline
30 & 8.03094639503964 \tabularnewline
31 & 8.16861540106916 \tabularnewline
32 & 8.3894704910672 \tabularnewline
33 & 9.89290654964456 \tabularnewline
34 & 10.0091921050243 \tabularnewline
35 & 10.4860097272509 \tabularnewline
36 & 10.8781090219082 \tabularnewline
37 & 11.1642344242557 \tabularnewline
38 & 11.2769092592800 \tabularnewline
39 & 11.5372030634177 \tabularnewline
40 & 13.0493855699064 \tabularnewline
41 & 13.5804418190278 \tabularnewline
42 & 16.0899172746490 \tabularnewline
43 & 16.3113580060031 \tabularnewline
44 & 16.9128392266366 \tabularnewline
45 & 17.2059930954734 \tabularnewline
46 & 17.6230170550563 \tabularnewline
47 & 19.3109932800032 \tabularnewline
48 & 20.4487383473896 \tabularnewline
49 & 20.6772116791852 \tabularnewline
50 & 23.0013131879744 \tabularnewline
51 & 23.0629010131737 \tabularnewline
52 & 23.8633704055692 \tabularnewline
53 & 23.9929537681241 \tabularnewline
54 & 26.7941190598829 \tabularnewline
55 & 27.6124004646797 \tabularnewline
56 & 29.4673176269962 \tabularnewline
57 & 29.5774546396966 \tabularnewline
58 & 37.3411187850998 \tabularnewline
59 & 48.1348308714605 \tabularnewline
60 & 52.5389318553996 \tabularnewline
61 & 54.4507801097401 \tabularnewline
62 & 59.2820113475205 \tabularnewline
63 & 108.777537755306 \tabularnewline
64 & 131.835367727673 \tabularnewline
65 & 156.327921441824 \tabularnewline
66 & 233.881323970893 \tabularnewline
67 & 552.805323733346 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24710&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]2.52039679415761[/C][/ROW]
[ROW][C]2[/C][C]3.2066337489648[/C][/ROW]
[ROW][C]3[/C][C]3.57212821718369[/C][/ROW]
[ROW][C]4[/C][C]3.69741801802285[/C][/ROW]
[ROW][C]5[/C][C]3.78640990913557[/C][/ROW]
[ROW][C]6[/C][C]3.83411006623440[/C][/ROW]
[ROW][C]7[/C][C]4.27462279037577[/C][/ROW]
[ROW][C]8[/C][C]4.39886348958455[/C][/ROW]
[ROW][C]9[/C][C]4.42759528412433[/C][/ROW]
[ROW][C]10[/C][C]4.59544620390592[/C][/ROW]
[ROW][C]11[/C][C]4.85457516163876[/C][/ROW]
[ROW][C]12[/C][C]4.89056233985418[/C][/ROW]
[ROW][C]13[/C][C]5.05632277450718[/C][/ROW]
[ROW][C]14[/C][C]5.24905615642281[/C][/ROW]
[ROW][C]15[/C][C]5.36590160178138[/C][/ROW]
[ROW][C]16[/C][C]5.38097574794758[/C][/ROW]
[ROW][C]17[/C][C]5.43897968372745[/C][/ROW]
[ROW][C]18[/C][C]5.61641894928298[/C][/ROW]
[ROW][C]19[/C][C]5.74529372617275[/C][/ROW]
[ROW][C]20[/C][C]5.98555422948228[/C][/ROW]
[ROW][C]21[/C][C]6.1626852785304[/C][/ROW]
[ROW][C]22[/C][C]6.43098555484393[/C][/ROW]
[ROW][C]23[/C][C]7.47519559630302[/C][/ROW]
[ROW][C]24[/C][C]7.49455802566102[/C][/ROW]
[ROW][C]25[/C][C]7.57939659851098[/C][/ROW]
[ROW][C]26[/C][C]7.58287544405156[/C][/ROW]
[ROW][C]27[/C][C]7.93167736442996[/C][/ROW]
[ROW][C]28[/C][C]7.9491084099433[/C][/ROW]
[ROW][C]29[/C][C]8.02949333769852[/C][/ROW]
[ROW][C]30[/C][C]8.03094639503964[/C][/ROW]
[ROW][C]31[/C][C]8.16861540106916[/C][/ROW]
[ROW][C]32[/C][C]8.3894704910672[/C][/ROW]
[ROW][C]33[/C][C]9.89290654964456[/C][/ROW]
[ROW][C]34[/C][C]10.0091921050243[/C][/ROW]
[ROW][C]35[/C][C]10.4860097272509[/C][/ROW]
[ROW][C]36[/C][C]10.8781090219082[/C][/ROW]
[ROW][C]37[/C][C]11.1642344242557[/C][/ROW]
[ROW][C]38[/C][C]11.2769092592800[/C][/ROW]
[ROW][C]39[/C][C]11.5372030634177[/C][/ROW]
[ROW][C]40[/C][C]13.0493855699064[/C][/ROW]
[ROW][C]41[/C][C]13.5804418190278[/C][/ROW]
[ROW][C]42[/C][C]16.0899172746490[/C][/ROW]
[ROW][C]43[/C][C]16.3113580060031[/C][/ROW]
[ROW][C]44[/C][C]16.9128392266366[/C][/ROW]
[ROW][C]45[/C][C]17.2059930954734[/C][/ROW]
[ROW][C]46[/C][C]17.6230170550563[/C][/ROW]
[ROW][C]47[/C][C]19.3109932800032[/C][/ROW]
[ROW][C]48[/C][C]20.4487383473896[/C][/ROW]
[ROW][C]49[/C][C]20.6772116791852[/C][/ROW]
[ROW][C]50[/C][C]23.0013131879744[/C][/ROW]
[ROW][C]51[/C][C]23.0629010131737[/C][/ROW]
[ROW][C]52[/C][C]23.8633704055692[/C][/ROW]
[ROW][C]53[/C][C]23.9929537681241[/C][/ROW]
[ROW][C]54[/C][C]26.7941190598829[/C][/ROW]
[ROW][C]55[/C][C]27.6124004646797[/C][/ROW]
[ROW][C]56[/C][C]29.4673176269962[/C][/ROW]
[ROW][C]57[/C][C]29.5774546396966[/C][/ROW]
[ROW][C]58[/C][C]37.3411187850998[/C][/ROW]
[ROW][C]59[/C][C]48.1348308714605[/C][/ROW]
[ROW][C]60[/C][C]52.5389318553996[/C][/ROW]
[ROW][C]61[/C][C]54.4507801097401[/C][/ROW]
[ROW][C]62[/C][C]59.2820113475205[/C][/ROW]
[ROW][C]63[/C][C]108.777537755306[/C][/ROW]
[ROW][C]64[/C][C]131.835367727673[/C][/ROW]
[ROW][C]65[/C][C]156.327921441824[/C][/ROW]
[ROW][C]66[/C][C]233.881323970893[/C][/ROW]
[ROW][C]67[/C][C]552.805323733346[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24710&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24710&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.52039679415761
23.2066337489648
33.57212821718369
43.69741801802285
53.78640990913557
63.83411006623440
74.27462279037577
84.39886348958455
94.42759528412433
104.59544620390592
114.85457516163876
124.89056233985418
135.05632277450718
145.24905615642281
155.36590160178138
165.38097574794758
175.43897968372745
185.61641894928298
195.74529372617275
205.98555422948228
216.1626852785304
226.43098555484393
237.47519559630302
247.49455802566102
257.57939659851098
267.58287544405156
277.93167736442996
287.9491084099433
298.02949333769852
308.03094639503964
318.16861540106916
328.3894704910672
339.89290654964456
3410.0091921050243
3510.4860097272509
3610.8781090219082
3711.1642344242557
3811.2769092592800
3911.5372030634177
4013.0493855699064
4113.5804418190278
4216.0899172746490
4316.3113580060031
4416.9128392266366
4517.2059930954734
4617.6230170550563
4719.3109932800032
4820.4487383473896
4920.6772116791852
5023.0013131879744
5123.0629010131737
5223.8633704055692
5323.9929537681241
5426.7941190598829
5527.6124004646797
5629.4673176269962
5729.5774546396966
5837.3411187850998
5948.1348308714605
6052.5389318553996
6154.4507801097401
6259.2820113475205
63108.777537755306
64131.835367727673
65156.327921441824
66233.881323970893
67552.805323733346


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