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 computationThu, 13 Dec 2007 08:44:03 -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/Dec/13/t1197559783oyv19k35jlfrz9s.htm/, Retrieved Sun, 05 May 2024 18:54:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14364, Retrieved Sun, 05 May 2024 18:54:39 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [PAPER, TIM, GIEL,...] [2007-12-13 15:44:03] [2b6b4d7292485ff0d3245229d7e512d1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
513	96	87
503	86	75
471	82	74
471	92	91
476	99	101
475	101	103
470	102	106
461	100	102
455	101	105
456	100	105
517	99	100
525	97	95
523	97	96
519	97	98
509	96	99
512	92	92
519	91	84
517	87	81
510	82	72
509	89	89
501	91	96
507	90	91
569	87	88
580	89	90
578	95	98
565	85	87
547	94	100
555	94	100
562	97	104
561	99	107
555	97	105
544	96	102
537	94	98
543	100	106
594	96	97
611	98	101
613	98	100
611	94	93
594	93	94
595	94	96
591	94	96
589	97	98
584	98	102
573	95	95
567	89	85
569	89	84
621	89	82
629	90	87
628	86	77
612	92	90
595	91	90
597	95	94
593	99	97
590	98	96
580	95	93
574	96	93
573	94	93
573	98	97
620	98	100
626	98	95
620	98	97
588	102	103
566	101	102
557	92	93
561	99	99
549	101	100
532	99	97
526	102	104
511	102	102
499	101	103
555	99	100
565	98	90
542	98	90

Tables (Output of Computation)





Summary of compuational 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 compuational 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=14364&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]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=14364&T=0

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






Summary of Dendrogram
LabelHeight
11.41421356237310
22.23606797749979
32.23606797749979
42.23606797749979
52.23606797749979
62.37834915435538
72.44948974278318
82.44948974278318
93
103
113
123.46410161513775
133.60555127546399
143.74165738677394
153.74165738677394
163.99799417759798
174.12310562561766
184.44963707594643
194.58257569495584
205
215.13693670846109
225.3851648071345
235.3851648071345
245.74456264653803
255.76888632699231
265.81074446798654
276.11558533183886
286.16441400296898
296.5393508155804
307
317.14142842854285
327.93745006452268
338.36980642695081
348.37801753654748
358.42320333082894
368.45981170682914
378.52178669896025
388.60232526704263
398.70941816520992
409.1104335791443
419.47577370407846
429.80520170752668
4310.4403065089106
4410.4988466782166
4511.3035679147011
4612.3693168768530
4712.6157901770694
4813.0101700953678
4914.7947440081781
5015.1181111474822
5115.2593928311363
5217.2734065130170
5317.7738377046698
5419.723082923316
5521.731327948564
5622.5276661977805
5724.5359216827102
5824.8175859939419
5925.537562529629
6036.5028889710196
6139.4145995864668
6248.323348523303
6351.8970759488582
6453.4572015541466
6555.7247118616402
6675.1065954108895
6779.6727124239736
68169.515336084662
69323.841086541599
70357.233404318646
71513.666710879263
721693.07389679627

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.41421356237310 \tabularnewline
2 & 2.23606797749979 \tabularnewline
3 & 2.23606797749979 \tabularnewline
4 & 2.23606797749979 \tabularnewline
5 & 2.23606797749979 \tabularnewline
6 & 2.37834915435538 \tabularnewline
7 & 2.44948974278318 \tabularnewline
8 & 2.44948974278318 \tabularnewline
9 & 3 \tabularnewline
10 & 3 \tabularnewline
11 & 3 \tabularnewline
12 & 3.46410161513775 \tabularnewline
13 & 3.60555127546399 \tabularnewline
14 & 3.74165738677394 \tabularnewline
15 & 3.74165738677394 \tabularnewline
16 & 3.99799417759798 \tabularnewline
17 & 4.12310562561766 \tabularnewline
18 & 4.44963707594643 \tabularnewline
19 & 4.58257569495584 \tabularnewline
20 & 5 \tabularnewline
21 & 5.13693670846109 \tabularnewline
22 & 5.3851648071345 \tabularnewline
23 & 5.3851648071345 \tabularnewline
24 & 5.74456264653803 \tabularnewline
25 & 5.76888632699231 \tabularnewline
26 & 5.81074446798654 \tabularnewline
27 & 6.11558533183886 \tabularnewline
28 & 6.16441400296898 \tabularnewline
29 & 6.5393508155804 \tabularnewline
30 & 7 \tabularnewline
31 & 7.14142842854285 \tabularnewline
32 & 7.93745006452268 \tabularnewline
33 & 8.36980642695081 \tabularnewline
34 & 8.37801753654748 \tabularnewline
35 & 8.42320333082894 \tabularnewline
36 & 8.45981170682914 \tabularnewline
37 & 8.52178669896025 \tabularnewline
38 & 8.60232526704263 \tabularnewline
39 & 8.70941816520992 \tabularnewline
40 & 9.1104335791443 \tabularnewline
41 & 9.47577370407846 \tabularnewline
42 & 9.80520170752668 \tabularnewline
43 & 10.4403065089106 \tabularnewline
44 & 10.4988466782166 \tabularnewline
45 & 11.3035679147011 \tabularnewline
46 & 12.3693168768530 \tabularnewline
47 & 12.6157901770694 \tabularnewline
48 & 13.0101700953678 \tabularnewline
49 & 14.7947440081781 \tabularnewline
50 & 15.1181111474822 \tabularnewline
51 & 15.2593928311363 \tabularnewline
52 & 17.2734065130170 \tabularnewline
53 & 17.7738377046698 \tabularnewline
54 & 19.723082923316 \tabularnewline
55 & 21.731327948564 \tabularnewline
56 & 22.5276661977805 \tabularnewline
57 & 24.5359216827102 \tabularnewline
58 & 24.8175859939419 \tabularnewline
59 & 25.537562529629 \tabularnewline
60 & 36.5028889710196 \tabularnewline
61 & 39.4145995864668 \tabularnewline
62 & 48.323348523303 \tabularnewline
63 & 51.8970759488582 \tabularnewline
64 & 53.4572015541466 \tabularnewline
65 & 55.7247118616402 \tabularnewline
66 & 75.1065954108895 \tabularnewline
67 & 79.6727124239736 \tabularnewline
68 & 169.515336084662 \tabularnewline
69 & 323.841086541599 \tabularnewline
70 & 357.233404318646 \tabularnewline
71 & 513.666710879263 \tabularnewline
72 & 1693.07389679627 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14364&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]2[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]3[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]4[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]5[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]6[/C][C]2.37834915435538[/C][/ROW]
[ROW][C]7[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]8[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]9[/C][C]3[/C][/ROW]
[ROW][C]10[/C][C]3[/C][/ROW]
[ROW][C]11[/C][C]3[/C][/ROW]
[ROW][C]12[/C][C]3.46410161513775[/C][/ROW]
[ROW][C]13[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]14[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]15[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]16[/C][C]3.99799417759798[/C][/ROW]
[ROW][C]17[/C][C]4.12310562561766[/C][/ROW]
[ROW][C]18[/C][C]4.44963707594643[/C][/ROW]
[ROW][C]19[/C][C]4.58257569495584[/C][/ROW]
[ROW][C]20[/C][C]5[/C][/ROW]
[ROW][C]21[/C][C]5.13693670846109[/C][/ROW]
[ROW][C]22[/C][C]5.3851648071345[/C][/ROW]
[ROW][C]23[/C][C]5.3851648071345[/C][/ROW]
[ROW][C]24[/C][C]5.74456264653803[/C][/ROW]
[ROW][C]25[/C][C]5.76888632699231[/C][/ROW]
[ROW][C]26[/C][C]5.81074446798654[/C][/ROW]
[ROW][C]27[/C][C]6.11558533183886[/C][/ROW]
[ROW][C]28[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]29[/C][C]6.5393508155804[/C][/ROW]
[ROW][C]30[/C][C]7[/C][/ROW]
[ROW][C]31[/C][C]7.14142842854285[/C][/ROW]
[ROW][C]32[/C][C]7.93745006452268[/C][/ROW]
[ROW][C]33[/C][C]8.36980642695081[/C][/ROW]
[ROW][C]34[/C][C]8.37801753654748[/C][/ROW]
[ROW][C]35[/C][C]8.42320333082894[/C][/ROW]
[ROW][C]36[/C][C]8.45981170682914[/C][/ROW]
[ROW][C]37[/C][C]8.52178669896025[/C][/ROW]
[ROW][C]38[/C][C]8.60232526704263[/C][/ROW]
[ROW][C]39[/C][C]8.70941816520992[/C][/ROW]
[ROW][C]40[/C][C]9.1104335791443[/C][/ROW]
[ROW][C]41[/C][C]9.47577370407846[/C][/ROW]
[ROW][C]42[/C][C]9.80520170752668[/C][/ROW]
[ROW][C]43[/C][C]10.4403065089106[/C][/ROW]
[ROW][C]44[/C][C]10.4988466782166[/C][/ROW]
[ROW][C]45[/C][C]11.3035679147011[/C][/ROW]
[ROW][C]46[/C][C]12.3693168768530[/C][/ROW]
[ROW][C]47[/C][C]12.6157901770694[/C][/ROW]
[ROW][C]48[/C][C]13.0101700953678[/C][/ROW]
[ROW][C]49[/C][C]14.7947440081781[/C][/ROW]
[ROW][C]50[/C][C]15.1181111474822[/C][/ROW]
[ROW][C]51[/C][C]15.2593928311363[/C][/ROW]
[ROW][C]52[/C][C]17.2734065130170[/C][/ROW]
[ROW][C]53[/C][C]17.7738377046698[/C][/ROW]
[ROW][C]54[/C][C]19.723082923316[/C][/ROW]
[ROW][C]55[/C][C]21.731327948564[/C][/ROW]
[ROW][C]56[/C][C]22.5276661977805[/C][/ROW]
[ROW][C]57[/C][C]24.5359216827102[/C][/ROW]
[ROW][C]58[/C][C]24.8175859939419[/C][/ROW]
[ROW][C]59[/C][C]25.537562529629[/C][/ROW]
[ROW][C]60[/C][C]36.5028889710196[/C][/ROW]
[ROW][C]61[/C][C]39.4145995864668[/C][/ROW]
[ROW][C]62[/C][C]48.323348523303[/C][/ROW]
[ROW][C]63[/C][C]51.8970759488582[/C][/ROW]
[ROW][C]64[/C][C]53.4572015541466[/C][/ROW]
[ROW][C]65[/C][C]55.7247118616402[/C][/ROW]
[ROW][C]66[/C][C]75.1065954108895[/C][/ROW]
[ROW][C]67[/C][C]79.6727124239736[/C][/ROW]
[ROW][C]68[/C][C]169.515336084662[/C][/ROW]
[ROW][C]69[/C][C]323.841086541599[/C][/ROW]
[ROW][C]70[/C][C]357.233404318646[/C][/ROW]
[ROW][C]71[/C][C]513.666710879263[/C][/ROW]
[ROW][C]72[/C][C]1693.07389679627[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14364&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14364&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.41421356237310
22.23606797749979
32.23606797749979
42.23606797749979
52.23606797749979
62.37834915435538
72.44948974278318
82.44948974278318
93
103
113
123.46410161513775
133.60555127546399
143.74165738677394
153.74165738677394
163.99799417759798
174.12310562561766
184.44963707594643
194.58257569495584
205
215.13693670846109
225.3851648071345
235.3851648071345
245.74456264653803
255.76888632699231
265.81074446798654
276.11558533183886
286.16441400296898
296.5393508155804
307
317.14142842854285
327.93745006452268
338.36980642695081
348.37801753654748
358.42320333082894
368.45981170682914
378.52178669896025
388.60232526704263
398.70941816520992
409.1104335791443
419.47577370407846
429.80520170752668
4310.4403065089106
4410.4988466782166
4511.3035679147011
4612.3693168768530
4712.6157901770694
4813.0101700953678
4914.7947440081781
5015.1181111474822
5115.2593928311363
5217.2734065130170
5317.7738377046698
5419.723082923316
5521.731327948564
5622.5276661977805
5724.5359216827102
5824.8175859939419
5925.537562529629
6036.5028889710196
6139.4145995864668
6248.323348523303
6351.8970759488582
6453.4572015541466
6555.7247118616402
6675.1065954108895
6779.6727124239736
68169.515336084662
69323.841086541599
70357.233404318646
71513.666710879263
721693.07389679627


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
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')
}