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 computationTue, 11 Nov 2008 07:27:30 -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/11/t1226413687oxcru6vd68uxedd.htm/, Retrieved Sun, 19 May 2024 10:46:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23521, Retrieved Sun, 19 May 2024 10:46:19 +0000
QR Codes:

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

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-1] [2008-11-11 14:27:30] [541f63fa3157af9df10fc4d202b2a90b] [Current]
Feedback Forum
2008-11-22 11:14:35 [Kenny Simons] [reply] 
Hier heb je de juiste techniek gebruikt namelijk die van het dendrogram. Een dendogram wordt wel eens een boomstructuur genoemd, het brengt namelijk alle gelijkaardige eigenschappen samen. Dit is een clustertechniek dat ook wel gebruikt wordt voor niet-tijdreeksen. Een goed voorbeeld hiervan is marktsegmentatie.

Zoals je op de grafiek ziet, zijn de waarden nu opgesplitst in clusters, elke cluster vertoont nu een gelijkaardigheid, dit is de meest aangewezen manier op hierarchical clustering te doen.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
103,3
101,2
107,7
110,4
101,9
115,9
89,9
88,6
117,2
123,9
100
103,6
94,1
98,7
119,5
112,7
104,4
124,7
89,1
97
121,6
118,8
114
111,5
97,2
102,5
113,4
109,8
104,9
126,1
80
96,8
117,2
112,3
117,3
111,1
102,2
104,3
122,9
107,6
121,3
131,5
89
104,4
128,9
135,9
133,3
121,3
120,5
120,4
137,9
126,1
133,2
151,1
105
119
140,4
156,6
137,1
122,7

Tables (Output of Computation)





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

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






Summary of Dendrogram
LabelHeight
10
20
30
40
50.0999999999999943
60.0999999999999943
70.0999999999999943
80.100000000000009
90.100000000000023
100.133333333333326
110.133333333333345
120.200000000000003
130.200000000000003
140.200000000000003
150.299999999999997
160.299999999999997
170.333333333333338
180.399999999999996
190.400000000000006
200.400000000000006
210.499999999999995
220.566666666666672
230.599999999999994
240.600000000000009
250.733333333333334
260.799999999999997
270.800000000000011
281.20000000000000
291.28666666666667
301.33333333333335
311.86666666666666
321.89999999999998
331.90000000000001
341.96666666666666
352.05999999999999
362.13333333333333
372.29999999999999
382.49999999999999
392.5
403.73333333333335
414.21666666666667
424.48333333333334
435.5
445.65666666666667
456.7
466.81666666666667
478.20857142857141
488.30952380952378
4913.25
5013.6833333333333
5114.24
5216.6880952380953
5329.9433333333333
5432.955388471178
5547.3888888888889
5666.0507246376811
57125.161775362319
58148.986675020886
59452.477023809524

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0 \tabularnewline
2 & 0 \tabularnewline
3 & 0 \tabularnewline
4 & 0 \tabularnewline
5 & 0.0999999999999943 \tabularnewline
6 & 0.0999999999999943 \tabularnewline
7 & 0.0999999999999943 \tabularnewline
8 & 0.100000000000009 \tabularnewline
9 & 0.100000000000023 \tabularnewline
10 & 0.133333333333326 \tabularnewline
11 & 0.133333333333345 \tabularnewline
12 & 0.200000000000003 \tabularnewline
13 & 0.200000000000003 \tabularnewline
14 & 0.200000000000003 \tabularnewline
15 & 0.299999999999997 \tabularnewline
16 & 0.299999999999997 \tabularnewline
17 & 0.333333333333338 \tabularnewline
18 & 0.399999999999996 \tabularnewline
19 & 0.400000000000006 \tabularnewline
20 & 0.400000000000006 \tabularnewline
21 & 0.499999999999995 \tabularnewline
22 & 0.566666666666672 \tabularnewline
23 & 0.599999999999994 \tabularnewline
24 & 0.600000000000009 \tabularnewline
25 & 0.733333333333334 \tabularnewline
26 & 0.799999999999997 \tabularnewline
27 & 0.800000000000011 \tabularnewline
28 & 1.20000000000000 \tabularnewline
29 & 1.28666666666667 \tabularnewline
30 & 1.33333333333335 \tabularnewline
31 & 1.86666666666666 \tabularnewline
32 & 1.89999999999998 \tabularnewline
33 & 1.90000000000001 \tabularnewline
34 & 1.96666666666666 \tabularnewline
35 & 2.05999999999999 \tabularnewline
36 & 2.13333333333333 \tabularnewline
37 & 2.29999999999999 \tabularnewline
38 & 2.49999999999999 \tabularnewline
39 & 2.5 \tabularnewline
40 & 3.73333333333335 \tabularnewline
41 & 4.21666666666667 \tabularnewline
42 & 4.48333333333334 \tabularnewline
43 & 5.5 \tabularnewline
44 & 5.65666666666667 \tabularnewline
45 & 6.7 \tabularnewline
46 & 6.81666666666667 \tabularnewline
47 & 8.20857142857141 \tabularnewline
48 & 8.30952380952378 \tabularnewline
49 & 13.25 \tabularnewline
50 & 13.6833333333333 \tabularnewline
51 & 14.24 \tabularnewline
52 & 16.6880952380953 \tabularnewline
53 & 29.9433333333333 \tabularnewline
54 & 32.955388471178 \tabularnewline
55 & 47.3888888888889 \tabularnewline
56 & 66.0507246376811 \tabularnewline
57 & 125.161775362319 \tabularnewline
58 & 148.986675020886 \tabularnewline
59 & 452.477023809524 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23521&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[/C][/ROW]
[ROW][C]3[/C][C]0[/C][/ROW]
[ROW][C]4[/C][C]0[/C][/ROW]
[ROW][C]5[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]6[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]7[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]8[/C][C]0.100000000000009[/C][/ROW]
[ROW][C]9[/C][C]0.100000000000023[/C][/ROW]
[ROW][C]10[/C][C]0.133333333333326[/C][/ROW]
[ROW][C]11[/C][C]0.133333333333345[/C][/ROW]
[ROW][C]12[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]13[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]14[/C][C]0.200000000000003[/C][/ROW]
[ROW][C]15[/C][C]0.299999999999997[/C][/ROW]
[ROW][C]16[/C][C]0.299999999999997[/C][/ROW]
[ROW][C]17[/C][C]0.333333333333338[/C][/ROW]
[ROW][C]18[/C][C]0.399999999999996[/C][/ROW]
[ROW][C]19[/C][C]0.400000000000006[/C][/ROW]
[ROW][C]20[/C][C]0.400000000000006[/C][/ROW]
[ROW][C]21[/C][C]0.499999999999995[/C][/ROW]
[ROW][C]22[/C][C]0.566666666666672[/C][/ROW]
[ROW][C]23[/C][C]0.599999999999994[/C][/ROW]
[ROW][C]24[/C][C]0.600000000000009[/C][/ROW]
[ROW][C]25[/C][C]0.733333333333334[/C][/ROW]
[ROW][C]26[/C][C]0.799999999999997[/C][/ROW]
[ROW][C]27[/C][C]0.800000000000011[/C][/ROW]
[ROW][C]28[/C][C]1.20000000000000[/C][/ROW]
[ROW][C]29[/C][C]1.28666666666667[/C][/ROW]
[ROW][C]30[/C][C]1.33333333333335[/C][/ROW]
[ROW][C]31[/C][C]1.86666666666666[/C][/ROW]
[ROW][C]32[/C][C]1.89999999999998[/C][/ROW]
[ROW][C]33[/C][C]1.90000000000001[/C][/ROW]
[ROW][C]34[/C][C]1.96666666666666[/C][/ROW]
[ROW][C]35[/C][C]2.05999999999999[/C][/ROW]
[ROW][C]36[/C][C]2.13333333333333[/C][/ROW]
[ROW][C]37[/C][C]2.29999999999999[/C][/ROW]
[ROW][C]38[/C][C]2.49999999999999[/C][/ROW]
[ROW][C]39[/C][C]2.5[/C][/ROW]
[ROW][C]40[/C][C]3.73333333333335[/C][/ROW]
[ROW][C]41[/C][C]4.21666666666667[/C][/ROW]
[ROW][C]42[/C][C]4.48333333333334[/C][/ROW]
[ROW][C]43[/C][C]5.5[/C][/ROW]
[ROW][C]44[/C][C]5.65666666666667[/C][/ROW]
[ROW][C]45[/C][C]6.7[/C][/ROW]
[ROW][C]46[/C][C]6.81666666666667[/C][/ROW]
[ROW][C]47[/C][C]8.20857142857141[/C][/ROW]
[ROW][C]48[/C][C]8.30952380952378[/C][/ROW]
[ROW][C]49[/C][C]13.25[/C][/ROW]
[ROW][C]50[/C][C]13.6833333333333[/C][/ROW]
[ROW][C]51[/C][C]14.24[/C][/ROW]
[ROW][C]52[/C][C]16.6880952380953[/C][/ROW]
[ROW][C]53[/C][C]29.9433333333333[/C][/ROW]
[ROW][C]54[/C][C]32.955388471178[/C][/ROW]
[ROW][C]55[/C][C]47.3888888888889[/C][/ROW]
[ROW][C]56[/C][C]66.0507246376811[/C][/ROW]
[ROW][C]57[/C][C]125.161775362319[/C][/ROW]
[ROW][C]58[/C][C]148.986675020886[/C][/ROW]
[ROW][C]59[/C][C]452.477023809524[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23521&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23521&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
30
40
50.0999999999999943
60.0999999999999943
70.0999999999999943
80.100000000000009
90.100000000000023
100.133333333333326
110.133333333333345
120.200000000000003
130.200000000000003
140.200000000000003
150.299999999999997
160.299999999999997
170.333333333333338
180.399999999999996
190.400000000000006
200.400000000000006
210.499999999999995
220.566666666666672
230.599999999999994
240.600000000000009
250.733333333333334
260.799999999999997
270.800000000000011
281.20000000000000
291.28666666666667
301.33333333333335
311.86666666666666
321.89999999999998
331.90000000000001
341.96666666666666
352.05999999999999
362.13333333333333
372.29999999999999
382.49999999999999
392.5
403.73333333333335
414.21666666666667
424.48333333333334
435.5
445.65666666666667
456.7
466.81666666666667
478.20857142857141
488.30952380952378
4913.25
5013.6833333333333
5114.24
5216.6880952380953
5329.9433333333333
5432.955388471178
5547.3888888888889
5666.0507246376811
57125.161775362319
58148.986675020886
59452.477023809524


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