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 computationMon, 05 Nov 2007 02:02:27 -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/05/7qicwzq1bedj40t1194253306.htm/, Retrieved Sun, 28 Apr 2024 19:31:05 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=428, Retrieved Sun, 28 Apr 2024 19:31:05 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordshierarchical clustering, Q2
Estimated Impact243

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Hierarchical Clus...] [2007-11-05 09:02:27] [578856645eee7b4b8f74dcf589866e9b] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
90,49	91,25
90,65	91,5
90,95	91,68
91,19	91,81
91,07	91,84
91,15	91,93
91,81	92,08
91,95	92,11
91,62	92,26
91,27	92,28
91,4	92,39
91,76	92,46
91,99	92,82
92,34	93,16
92,3	93,33
92,85	93,51
92,94	93,56
93,26	93,67
94,21	93,76
94,08	93,88
93,98	94,01
94,23	94,21
94,93	94,31
95,09	94,4
95,37	94,9
96,23	95,31
96,2	95,52
95,43	95,68
95,63	95,91
95,96	95,97
96,51	96,15
96,65	96,34
96,21	96,42
95,54	96,54
95,96	96,72
96,41	96,81
96,32	97,19
96,94	97,5
96,97	97,71
97,63	97,86
97,33	98,04
97,66	98,2
98,18	98,25
98,22	98,41
97,91	98,56
97,93	98,62
98,4	98,75
98,78	98,71
98,73	99,05
99,4	99,52
99,04	99,71
99,68	99,8
99,62	100,01
99,8	99,99
100,65	100,12
100,59	100,15
100,46	100,27
100,57	100,42
100,75	100,43
100,7	100,5
101,44	100,95
101,77	101,26
101,79	101,42
101,52	101,68
101,83	101,75
102,23	101,89
103,04	102,07
102,81	102,22
102,48	102,45
102,81	102,62
103,21	102,67
103,21	102,86
102,92	104,78
103,48	104,87
103,18	105,06
103,39	105,14
103,5	105,32
103,73	105,54
104,42	105,68
104,53	105,77
104,09	106,07
104,23	106,03
104,23	106,13
104,54	106,28
104,65	106,61
105,48	106,74
105,61	107,01
105,74	107,1
105,86	107,28
105,81	107,4
106,49	107,59
106,43	107,69
105,73	107,78

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=428&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=428&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=428&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
10.063245553203373
20.0670820393249962
30.086023252670419
40.0999999999999943
50.102956301409872
60.116619037896895
70.120415945787934
80.126650868187536
90.130000000000003
100.142126704035512
110.143178210632764
120.158113883008409
130.161245154965969
140.164012194668571
150.164924225024701
160.165278439935261
170.170293863659271
180.174642491965733
190.181107702762742
200.183575597506857
210.186010752377387
220.189999999999998
230.210950231097283
240.212132034355958
250.212132034355958
260.235047663892992
270.236008474424117
280.244131112314665
290.274590604354926
300.289745145216333
310.296816441593122
320.304795013082548
330.317804971641415
340.334784843081509
350.341320963317524
360.343656805548795
370.34785054261852
380.354371665037033
390.362256119977821
400.363959365633199
410.371214223865411
420.390512483795329
430.390512483795331
440.40374694231074
450.407062648740951
460.437502082090671
470.443121070663148
480.453106573159609
490.484675971534773
500.509214307897991
510.524776659175604
520.543378596817514
530.559968940601683
540.605316175363119
550.628234391642539
560.664972401614968
570.665951185891483
580.714675097030582
590.721536298848718
600.811517913272425
610.818358155793065
620.866399444368576
630.888568669218987
640.926908385321833
650.979888426356614
661.03552088157909
671.05310076238921
681.10701492515719
691.17018878536878
701.17243257087961
711.31294766347337
721.35241541205089
731.37462788554990
741.43265384249911
751.66350103596556
762.03059970779384
772.12096292350091
783.07053375170148
793.40164602727794
803.65411589680255
814.73121690188116
825.15282899369973
836.5104486475265
846.53426589141328
859.6073475532513
8618.560808345762
8723.5282053499375
8823.7043176091529
8925.0826515420247
9091.358695540833
91185.063141850528
92288.080055578002

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.063245553203373 \tabularnewline
2 & 0.0670820393249962 \tabularnewline
3 & 0.086023252670419 \tabularnewline
4 & 0.0999999999999943 \tabularnewline
5 & 0.102956301409872 \tabularnewline
6 & 0.116619037896895 \tabularnewline
7 & 0.120415945787934 \tabularnewline
8 & 0.126650868187536 \tabularnewline
9 & 0.130000000000003 \tabularnewline
10 & 0.142126704035512 \tabularnewline
11 & 0.143178210632764 \tabularnewline
12 & 0.158113883008409 \tabularnewline
13 & 0.161245154965969 \tabularnewline
14 & 0.164012194668571 \tabularnewline
15 & 0.164924225024701 \tabularnewline
16 & 0.165278439935261 \tabularnewline
17 & 0.170293863659271 \tabularnewline
18 & 0.174642491965733 \tabularnewline
19 & 0.181107702762742 \tabularnewline
20 & 0.183575597506857 \tabularnewline
21 & 0.186010752377387 \tabularnewline
22 & 0.189999999999998 \tabularnewline
23 & 0.210950231097283 \tabularnewline
24 & 0.212132034355958 \tabularnewline
25 & 0.212132034355958 \tabularnewline
26 & 0.235047663892992 \tabularnewline
27 & 0.236008474424117 \tabularnewline
28 & 0.244131112314665 \tabularnewline
29 & 0.274590604354926 \tabularnewline
30 & 0.289745145216333 \tabularnewline
31 & 0.296816441593122 \tabularnewline
32 & 0.304795013082548 \tabularnewline
33 & 0.317804971641415 \tabularnewline
34 & 0.334784843081509 \tabularnewline
35 & 0.341320963317524 \tabularnewline
36 & 0.343656805548795 \tabularnewline
37 & 0.34785054261852 \tabularnewline
38 & 0.354371665037033 \tabularnewline
39 & 0.362256119977821 \tabularnewline
40 & 0.363959365633199 \tabularnewline
41 & 0.371214223865411 \tabularnewline
42 & 0.390512483795329 \tabularnewline
43 & 0.390512483795331 \tabularnewline
44 & 0.40374694231074 \tabularnewline
45 & 0.407062648740951 \tabularnewline
46 & 0.437502082090671 \tabularnewline
47 & 0.443121070663148 \tabularnewline
48 & 0.453106573159609 \tabularnewline
49 & 0.484675971534773 \tabularnewline
50 & 0.509214307897991 \tabularnewline
51 & 0.524776659175604 \tabularnewline
52 & 0.543378596817514 \tabularnewline
53 & 0.559968940601683 \tabularnewline
54 & 0.605316175363119 \tabularnewline
55 & 0.628234391642539 \tabularnewline
56 & 0.664972401614968 \tabularnewline
57 & 0.665951185891483 \tabularnewline
58 & 0.714675097030582 \tabularnewline
59 & 0.721536298848718 \tabularnewline
60 & 0.811517913272425 \tabularnewline
61 & 0.818358155793065 \tabularnewline
62 & 0.866399444368576 \tabularnewline
63 & 0.888568669218987 \tabularnewline
64 & 0.926908385321833 \tabularnewline
65 & 0.979888426356614 \tabularnewline
66 & 1.03552088157909 \tabularnewline
67 & 1.05310076238921 \tabularnewline
68 & 1.10701492515719 \tabularnewline
69 & 1.17018878536878 \tabularnewline
70 & 1.17243257087961 \tabularnewline
71 & 1.31294766347337 \tabularnewline
72 & 1.35241541205089 \tabularnewline
73 & 1.37462788554990 \tabularnewline
74 & 1.43265384249911 \tabularnewline
75 & 1.66350103596556 \tabularnewline
76 & 2.03059970779384 \tabularnewline
77 & 2.12096292350091 \tabularnewline
78 & 3.07053375170148 \tabularnewline
79 & 3.40164602727794 \tabularnewline
80 & 3.65411589680255 \tabularnewline
81 & 4.73121690188116 \tabularnewline
82 & 5.15282899369973 \tabularnewline
83 & 6.5104486475265 \tabularnewline
84 & 6.53426589141328 \tabularnewline
85 & 9.6073475532513 \tabularnewline
86 & 18.560808345762 \tabularnewline
87 & 23.5282053499375 \tabularnewline
88 & 23.7043176091529 \tabularnewline
89 & 25.0826515420247 \tabularnewline
90 & 91.358695540833 \tabularnewline
91 & 185.063141850528 \tabularnewline
92 & 288.080055578002 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=428&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.063245553203373[/C][/ROW]
[ROW][C]2[/C][C]0.0670820393249962[/C][/ROW]
[ROW][C]3[/C][C]0.086023252670419[/C][/ROW]
[ROW][C]4[/C][C]0.0999999999999943[/C][/ROW]
[ROW][C]5[/C][C]0.102956301409872[/C][/ROW]
[ROW][C]6[/C][C]0.116619037896895[/C][/ROW]
[ROW][C]7[/C][C]0.120415945787934[/C][/ROW]
[ROW][C]8[/C][C]0.126650868187536[/C][/ROW]
[ROW][C]9[/C][C]0.130000000000003[/C][/ROW]
[ROW][C]10[/C][C]0.142126704035512[/C][/ROW]
[ROW][C]11[/C][C]0.143178210632764[/C][/ROW]
[ROW][C]12[/C][C]0.158113883008409[/C][/ROW]
[ROW][C]13[/C][C]0.161245154965969[/C][/ROW]
[ROW][C]14[/C][C]0.164012194668571[/C][/ROW]
[ROW][C]15[/C][C]0.164924225024701[/C][/ROW]
[ROW][C]16[/C][C]0.165278439935261[/C][/ROW]
[ROW][C]17[/C][C]0.170293863659271[/C][/ROW]
[ROW][C]18[/C][C]0.174642491965733[/C][/ROW]
[ROW][C]19[/C][C]0.181107702762742[/C][/ROW]
[ROW][C]20[/C][C]0.183575597506857[/C][/ROW]
[ROW][C]21[/C][C]0.186010752377387[/C][/ROW]
[ROW][C]22[/C][C]0.189999999999998[/C][/ROW]
[ROW][C]23[/C][C]0.210950231097283[/C][/ROW]
[ROW][C]24[/C][C]0.212132034355958[/C][/ROW]
[ROW][C]25[/C][C]0.212132034355958[/C][/ROW]
[ROW][C]26[/C][C]0.235047663892992[/C][/ROW]
[ROW][C]27[/C][C]0.236008474424117[/C][/ROW]
[ROW][C]28[/C][C]0.244131112314665[/C][/ROW]
[ROW][C]29[/C][C]0.274590604354926[/C][/ROW]
[ROW][C]30[/C][C]0.289745145216333[/C][/ROW]
[ROW][C]31[/C][C]0.296816441593122[/C][/ROW]
[ROW][C]32[/C][C]0.304795013082548[/C][/ROW]
[ROW][C]33[/C][C]0.317804971641415[/C][/ROW]
[ROW][C]34[/C][C]0.334784843081509[/C][/ROW]
[ROW][C]35[/C][C]0.341320963317524[/C][/ROW]
[ROW][C]36[/C][C]0.343656805548795[/C][/ROW]
[ROW][C]37[/C][C]0.34785054261852[/C][/ROW]
[ROW][C]38[/C][C]0.354371665037033[/C][/ROW]
[ROW][C]39[/C][C]0.362256119977821[/C][/ROW]
[ROW][C]40[/C][C]0.363959365633199[/C][/ROW]
[ROW][C]41[/C][C]0.371214223865411[/C][/ROW]
[ROW][C]42[/C][C]0.390512483795329[/C][/ROW]
[ROW][C]43[/C][C]0.390512483795331[/C][/ROW]
[ROW][C]44[/C][C]0.40374694231074[/C][/ROW]
[ROW][C]45[/C][C]0.407062648740951[/C][/ROW]
[ROW][C]46[/C][C]0.437502082090671[/C][/ROW]
[ROW][C]47[/C][C]0.443121070663148[/C][/ROW]
[ROW][C]48[/C][C]0.453106573159609[/C][/ROW]
[ROW][C]49[/C][C]0.484675971534773[/C][/ROW]
[ROW][C]50[/C][C]0.509214307897991[/C][/ROW]
[ROW][C]51[/C][C]0.524776659175604[/C][/ROW]
[ROW][C]52[/C][C]0.543378596817514[/C][/ROW]
[ROW][C]53[/C][C]0.559968940601683[/C][/ROW]
[ROW][C]54[/C][C]0.605316175363119[/C][/ROW]
[ROW][C]55[/C][C]0.628234391642539[/C][/ROW]
[ROW][C]56[/C][C]0.664972401614968[/C][/ROW]
[ROW][C]57[/C][C]0.665951185891483[/C][/ROW]
[ROW][C]58[/C][C]0.714675097030582[/C][/ROW]
[ROW][C]59[/C][C]0.721536298848718[/C][/ROW]
[ROW][C]60[/C][C]0.811517913272425[/C][/ROW]
[ROW][C]61[/C][C]0.818358155793065[/C][/ROW]
[ROW][C]62[/C][C]0.866399444368576[/C][/ROW]
[ROW][C]63[/C][C]0.888568669218987[/C][/ROW]
[ROW][C]64[/C][C]0.926908385321833[/C][/ROW]
[ROW][C]65[/C][C]0.979888426356614[/C][/ROW]
[ROW][C]66[/C][C]1.03552088157909[/C][/ROW]
[ROW][C]67[/C][C]1.05310076238921[/C][/ROW]
[ROW][C]68[/C][C]1.10701492515719[/C][/ROW]
[ROW][C]69[/C][C]1.17018878536878[/C][/ROW]
[ROW][C]70[/C][C]1.17243257087961[/C][/ROW]
[ROW][C]71[/C][C]1.31294766347337[/C][/ROW]
[ROW][C]72[/C][C]1.35241541205089[/C][/ROW]
[ROW][C]73[/C][C]1.37462788554990[/C][/ROW]
[ROW][C]74[/C][C]1.43265384249911[/C][/ROW]
[ROW][C]75[/C][C]1.66350103596556[/C][/ROW]
[ROW][C]76[/C][C]2.03059970779384[/C][/ROW]
[ROW][C]77[/C][C]2.12096292350091[/C][/ROW]
[ROW][C]78[/C][C]3.07053375170148[/C][/ROW]
[ROW][C]79[/C][C]3.40164602727794[/C][/ROW]
[ROW][C]80[/C][C]3.65411589680255[/C][/ROW]
[ROW][C]81[/C][C]4.73121690188116[/C][/ROW]
[ROW][C]82[/C][C]5.15282899369973[/C][/ROW]
[ROW][C]83[/C][C]6.5104486475265[/C][/ROW]
[ROW][C]84[/C][C]6.53426589141328[/C][/ROW]
[ROW][C]85[/C][C]9.6073475532513[/C][/ROW]
[ROW][C]86[/C][C]18.560808345762[/C][/ROW]
[ROW][C]87[/C][C]23.5282053499375[/C][/ROW]
[ROW][C]88[/C][C]23.7043176091529[/C][/ROW]
[ROW][C]89[/C][C]25.0826515420247[/C][/ROW]
[ROW][C]90[/C][C]91.358695540833[/C][/ROW]
[ROW][C]91[/C][C]185.063141850528[/C][/ROW]
[ROW][C]92[/C][C]288.080055578002[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=428&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=428&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.063245553203373
20.0670820393249962
30.086023252670419
40.0999999999999943
50.102956301409872
60.116619037896895
70.120415945787934
80.126650868187536
90.130000000000003
100.142126704035512
110.143178210632764
120.158113883008409
130.161245154965969
140.164012194668571
150.164924225024701
160.165278439935261
170.170293863659271
180.174642491965733
190.181107702762742
200.183575597506857
210.186010752377387
220.189999999999998
230.210950231097283
240.212132034355958
250.212132034355958
260.235047663892992
270.236008474424117
280.244131112314665
290.274590604354926
300.289745145216333
310.296816441593122
320.304795013082548
330.317804971641415
340.334784843081509
350.341320963317524
360.343656805548795
370.34785054261852
380.354371665037033
390.362256119977821
400.363959365633199
410.371214223865411
420.390512483795329
430.390512483795331
440.40374694231074
450.407062648740951
460.437502082090671
470.443121070663148
480.453106573159609
490.484675971534773
500.509214307897991
510.524776659175604
520.543378596817514
530.559968940601683
540.605316175363119
550.628234391642539
560.664972401614968
570.665951185891483
580.714675097030582
590.721536298848718
600.811517913272425
610.818358155793065
620.866399444368576
630.888568669218987
640.926908385321833
650.979888426356614
661.03552088157909
671.05310076238921
681.10701492515719
691.17018878536878
701.17243257087961
711.31294766347337
721.35241541205089
731.37462788554990
741.43265384249911
751.66350103596556
762.03059970779384
772.12096292350091
783.07053375170148
793.40164602727794
803.65411589680255
814.73121690188116
825.15282899369973
836.5104486475265
846.53426589141328
859.6073475532513
8618.560808345762
8723.5282053499375
8823.7043176091529
8925.0826515420247
9091.358695540833
91185.063141850528
92288.080055578002


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