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, 17 Dec 2007 04:02:41 -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/17/t11978883485xdrfv4w6q8eo8g.htm/, Retrieved Sat, 04 May 2024 00:22:01 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=4342, Retrieved Sat, 04 May 2024 00:22:01 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [hc ] [2007-12-17 11:02:41] [e2f7a6e26aa7cf06a3d27eb5298a4843] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1	0.76	0.4	0.9383
1.04	0.77	0.37	0.9217
1.02	0.76	0.36	0.9095
1.07	0.77	0.36	0.892
1.12	0.78	0.36	0.8742
1.08	0.79	0.36	0.8532
1.02	0.78	0.32	0.8607
1.01	0.76	0.31	0.9005
1.04	0.78	0.32	0.9111
0.98	0.76	0.33	0.9059
0.95	0.74	0.33	0.8883
0.94	0.73	0.29	0.8924
0.94	0.72	0.33	0.8833
0.96	0.71	0.32	0.87
0.97	0.73	0.31	0.8758
1.03	0.75	0.33	0.8858
1.01	0.75	0.32	0.917
0.99	0.72	0.32	0.9554
1	0.72	0.3	0.9922
1	0.72	0.3	0.9778
1.02	0.74	0.33	0.9808
1.01	0.78	0.35	0.9811
0.99	0.74	0.35	1.0014
0.98	0.74	0.37	1.0183
1.01	0.75	0.38	1.0622
1.03	0.78	0.39	1.0773
1.03	0.81	0.4	1.0807
1	0.75	0.32	1.0848
0.96	0.7	0.29	1.1582
0.97	0.71	0.29	1.1663
0.98	0.71	0.3	1.1372
1.02	0.73	0.3	1.1139
1.04	0.74	0.32	1.1222
1.01	0.74	0.32	1.1692
1.01	0.75	0.34	1.1702
1	0.74	0.34	1.2286
1.01	0.74	0.34	1.2613
1.02	0.73	0.33	1.2646
1.03	0.76	0.33	1.2262
1.06	0.8	0.33	1.1985
1.12	0.83	0.34	1.2007
1.12	0.81	0.35	1.2138
1.13	0.83	0.34	1.2266
1.13	0.88	0.36	1.2176
1.13	0.89	0.39	1.2218
1.17	0.93	0.43	1.249
1.14	0.91	0.42	1.2991
1.08	0.9	0.39	1.3408
1.07	0.86	0.37	1.3119
1.12	0.88	0.36	1.3014
1.14	0.93	0.39	1.3201
1.21	0.98	0.39	1.2938
1.2	0.97	0.37	1.2694
1.23	1.03	0.36	1.2165
1.29	1.06	0.38	1.2037
1.31	1.06	0.38	1.2292
1.37	1.08	0.44	1.2256
1.35	1.09	0.49	1.2015
1.26	1.04	0.47	1.1786
1.26	1	0.48	1.1856
1.28	1.01	0.51	1.2103
1.28	1.02	0.5	1.1938
1.27	1.04	0.47	1.202
1.35	1.06	0.47	1.2271
1.37	1.06	0.44	1.277
1.37	1.06	0.43	1.265
1.4	1.06	0.45	1.2684
1.4	1.06	0.46	1.2811
1.28	1.02	0.46	1.2727
1.23	0.98	0.45	1.2611
1.23	0.99	0.45	1.2881
1.25	0.99	0.45	1.3213
1.21	0.94	0.44	1.2999
1.22	0.96	0.43	1.3074
1.29	0.98	0.45	1.3242
1.32	1.01	0.45	1.3516
1.36	1.01	0.44	1.3511
1.36	1.02	0.47	1.3419
1.37	1.04	0.46	1.3716
1.32	1.03	0.48	1.3622

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=4342&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=4342&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4342&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
10.0144000000000000
20.0156204993518133
30.0161644672043343
40.0162975458275165
50.0176320730488505
60.0217313138121007
70.0217313138121008
80.0223830292855994
90.0229128784747792
100.0251722068957015
110.0254472002389260
120.0256173769148990
130.0259154394136004
140.0273649410743016
150.0280287352550913
160.0282956006446605
170.0287923600977759
180.031126997927844
190.0318050310485622
200.0319004702159702
210.0324075608461977
220.0329338731399754
230.0345739786544737
240.0374934660974416
250.0375813783674841
260.0376468013177884
270.0403776059848985
280.0412583324917525
290.0413329166645666
300.0415933888977564
310.0417252920900502
320.0431302489412267
330.0441642234516014
340.0447821392968224
350.0450076530244069
360.0458267389195435
370.0463777899445907
380.0500939558719245
390.050135589799016
400.0519250991829043
410.0541775783881118
420.0556201040928801
430.0568964615604369
440.0592655344638424
450.0594341122981788
460.0620895055872947
470.0622067245321938
480.0636045554087139
490.0709702216674465
500.0725156329596912
510.07268519222509
520.0742282752942826
530.0750516914191688
540.0794675489356025
550.0857254251438111
560.094188646674126
570.0957471992434861
580.120780474186338
590.125942241702014
600.126471760316274
610.146269465848395
620.15479335133955
630.157323818416109
640.168667152831649
650.171697164227033
660.172773426655809
670.235536027213647
680.332369072476967
690.343333349632724
700.398665619918125
710.428286201114464
720.432952550652445
730.482820456353776
740.560168446199355
750.806188151980381
760.936724048808193
771.54130104277556
784.54269490306882
7910.2940025314705

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0144000000000000 \tabularnewline
2 & 0.0156204993518133 \tabularnewline
3 & 0.0161644672043343 \tabularnewline
4 & 0.0162975458275165 \tabularnewline
5 & 0.0176320730488505 \tabularnewline
6 & 0.0217313138121007 \tabularnewline
7 & 0.0217313138121008 \tabularnewline
8 & 0.0223830292855994 \tabularnewline
9 & 0.0229128784747792 \tabularnewline
10 & 0.0251722068957015 \tabularnewline
11 & 0.0254472002389260 \tabularnewline
12 & 0.0256173769148990 \tabularnewline
13 & 0.0259154394136004 \tabularnewline
14 & 0.0273649410743016 \tabularnewline
15 & 0.0280287352550913 \tabularnewline
16 & 0.0282956006446605 \tabularnewline
17 & 0.0287923600977759 \tabularnewline
18 & 0.031126997927844 \tabularnewline
19 & 0.0318050310485622 \tabularnewline
20 & 0.0319004702159702 \tabularnewline
21 & 0.0324075608461977 \tabularnewline
22 & 0.0329338731399754 \tabularnewline
23 & 0.0345739786544737 \tabularnewline
24 & 0.0374934660974416 \tabularnewline
25 & 0.0375813783674841 \tabularnewline
26 & 0.0376468013177884 \tabularnewline
27 & 0.0403776059848985 \tabularnewline
28 & 0.0412583324917525 \tabularnewline
29 & 0.0413329166645666 \tabularnewline
30 & 0.0415933888977564 \tabularnewline
31 & 0.0417252920900502 \tabularnewline
32 & 0.0431302489412267 \tabularnewline
33 & 0.0441642234516014 \tabularnewline
34 & 0.0447821392968224 \tabularnewline
35 & 0.0450076530244069 \tabularnewline
36 & 0.0458267389195435 \tabularnewline
37 & 0.0463777899445907 \tabularnewline
38 & 0.0500939558719245 \tabularnewline
39 & 0.050135589799016 \tabularnewline
40 & 0.0519250991829043 \tabularnewline
41 & 0.0541775783881118 \tabularnewline
42 & 0.0556201040928801 \tabularnewline
43 & 0.0568964615604369 \tabularnewline
44 & 0.0592655344638424 \tabularnewline
45 & 0.0594341122981788 \tabularnewline
46 & 0.0620895055872947 \tabularnewline
47 & 0.0622067245321938 \tabularnewline
48 & 0.0636045554087139 \tabularnewline
49 & 0.0709702216674465 \tabularnewline
50 & 0.0725156329596912 \tabularnewline
51 & 0.07268519222509 \tabularnewline
52 & 0.0742282752942826 \tabularnewline
53 & 0.0750516914191688 \tabularnewline
54 & 0.0794675489356025 \tabularnewline
55 & 0.0857254251438111 \tabularnewline
56 & 0.094188646674126 \tabularnewline
57 & 0.0957471992434861 \tabularnewline
58 & 0.120780474186338 \tabularnewline
59 & 0.125942241702014 \tabularnewline
60 & 0.126471760316274 \tabularnewline
61 & 0.146269465848395 \tabularnewline
62 & 0.15479335133955 \tabularnewline
63 & 0.157323818416109 \tabularnewline
64 & 0.168667152831649 \tabularnewline
65 & 0.171697164227033 \tabularnewline
66 & 0.172773426655809 \tabularnewline
67 & 0.235536027213647 \tabularnewline
68 & 0.332369072476967 \tabularnewline
69 & 0.343333349632724 \tabularnewline
70 & 0.398665619918125 \tabularnewline
71 & 0.428286201114464 \tabularnewline
72 & 0.432952550652445 \tabularnewline
73 & 0.482820456353776 \tabularnewline
74 & 0.560168446199355 \tabularnewline
75 & 0.806188151980381 \tabularnewline
76 & 0.936724048808193 \tabularnewline
77 & 1.54130104277556 \tabularnewline
78 & 4.54269490306882 \tabularnewline
79 & 10.2940025314705 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4342&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0144000000000000[/C][/ROW]
[ROW][C]2[/C][C]0.0156204993518133[/C][/ROW]
[ROW][C]3[/C][C]0.0161644672043343[/C][/ROW]
[ROW][C]4[/C][C]0.0162975458275165[/C][/ROW]
[ROW][C]5[/C][C]0.0176320730488505[/C][/ROW]
[ROW][C]6[/C][C]0.0217313138121007[/C][/ROW]
[ROW][C]7[/C][C]0.0217313138121008[/C][/ROW]
[ROW][C]8[/C][C]0.0223830292855994[/C][/ROW]
[ROW][C]9[/C][C]0.0229128784747792[/C][/ROW]
[ROW][C]10[/C][C]0.0251722068957015[/C][/ROW]
[ROW][C]11[/C][C]0.0254472002389260[/C][/ROW]
[ROW][C]12[/C][C]0.0256173769148990[/C][/ROW]
[ROW][C]13[/C][C]0.0259154394136004[/C][/ROW]
[ROW][C]14[/C][C]0.0273649410743016[/C][/ROW]
[ROW][C]15[/C][C]0.0280287352550913[/C][/ROW]
[ROW][C]16[/C][C]0.0282956006446605[/C][/ROW]
[ROW][C]17[/C][C]0.0287923600977759[/C][/ROW]
[ROW][C]18[/C][C]0.031126997927844[/C][/ROW]
[ROW][C]19[/C][C]0.0318050310485622[/C][/ROW]
[ROW][C]20[/C][C]0.0319004702159702[/C][/ROW]
[ROW][C]21[/C][C]0.0324075608461977[/C][/ROW]
[ROW][C]22[/C][C]0.0329338731399754[/C][/ROW]
[ROW][C]23[/C][C]0.0345739786544737[/C][/ROW]
[ROW][C]24[/C][C]0.0374934660974416[/C][/ROW]
[ROW][C]25[/C][C]0.0375813783674841[/C][/ROW]
[ROW][C]26[/C][C]0.0376468013177884[/C][/ROW]
[ROW][C]27[/C][C]0.0403776059848985[/C][/ROW]
[ROW][C]28[/C][C]0.0412583324917525[/C][/ROW]
[ROW][C]29[/C][C]0.0413329166645666[/C][/ROW]
[ROW][C]30[/C][C]0.0415933888977564[/C][/ROW]
[ROW][C]31[/C][C]0.0417252920900502[/C][/ROW]
[ROW][C]32[/C][C]0.0431302489412267[/C][/ROW]
[ROW][C]33[/C][C]0.0441642234516014[/C][/ROW]
[ROW][C]34[/C][C]0.0447821392968224[/C][/ROW]
[ROW][C]35[/C][C]0.0450076530244069[/C][/ROW]
[ROW][C]36[/C][C]0.0458267389195435[/C][/ROW]
[ROW][C]37[/C][C]0.0463777899445907[/C][/ROW]
[ROW][C]38[/C][C]0.0500939558719245[/C][/ROW]
[ROW][C]39[/C][C]0.050135589799016[/C][/ROW]
[ROW][C]40[/C][C]0.0519250991829043[/C][/ROW]
[ROW][C]41[/C][C]0.0541775783881118[/C][/ROW]
[ROW][C]42[/C][C]0.0556201040928801[/C][/ROW]
[ROW][C]43[/C][C]0.0568964615604369[/C][/ROW]
[ROW][C]44[/C][C]0.0592655344638424[/C][/ROW]
[ROW][C]45[/C][C]0.0594341122981788[/C][/ROW]
[ROW][C]46[/C][C]0.0620895055872947[/C][/ROW]
[ROW][C]47[/C][C]0.0622067245321938[/C][/ROW]
[ROW][C]48[/C][C]0.0636045554087139[/C][/ROW]
[ROW][C]49[/C][C]0.0709702216674465[/C][/ROW]
[ROW][C]50[/C][C]0.0725156329596912[/C][/ROW]
[ROW][C]51[/C][C]0.07268519222509[/C][/ROW]
[ROW][C]52[/C][C]0.0742282752942826[/C][/ROW]
[ROW][C]53[/C][C]0.0750516914191688[/C][/ROW]
[ROW][C]54[/C][C]0.0794675489356025[/C][/ROW]
[ROW][C]55[/C][C]0.0857254251438111[/C][/ROW]
[ROW][C]56[/C][C]0.094188646674126[/C][/ROW]
[ROW][C]57[/C][C]0.0957471992434861[/C][/ROW]
[ROW][C]58[/C][C]0.120780474186338[/C][/ROW]
[ROW][C]59[/C][C]0.125942241702014[/C][/ROW]
[ROW][C]60[/C][C]0.126471760316274[/C][/ROW]
[ROW][C]61[/C][C]0.146269465848395[/C][/ROW]
[ROW][C]62[/C][C]0.15479335133955[/C][/ROW]
[ROW][C]63[/C][C]0.157323818416109[/C][/ROW]
[ROW][C]64[/C][C]0.168667152831649[/C][/ROW]
[ROW][C]65[/C][C]0.171697164227033[/C][/ROW]
[ROW][C]66[/C][C]0.172773426655809[/C][/ROW]
[ROW][C]67[/C][C]0.235536027213647[/C][/ROW]
[ROW][C]68[/C][C]0.332369072476967[/C][/ROW]
[ROW][C]69[/C][C]0.343333349632724[/C][/ROW]
[ROW][C]70[/C][C]0.398665619918125[/C][/ROW]
[ROW][C]71[/C][C]0.428286201114464[/C][/ROW]
[ROW][C]72[/C][C]0.432952550652445[/C][/ROW]
[ROW][C]73[/C][C]0.482820456353776[/C][/ROW]
[ROW][C]74[/C][C]0.560168446199355[/C][/ROW]
[ROW][C]75[/C][C]0.806188151980381[/C][/ROW]
[ROW][C]76[/C][C]0.936724048808193[/C][/ROW]
[ROW][C]77[/C][C]1.54130104277556[/C][/ROW]
[ROW][C]78[/C][C]4.54269490306882[/C][/ROW]
[ROW][C]79[/C][C]10.2940025314705[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4342&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4342&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.0144000000000000
20.0156204993518133
30.0161644672043343
40.0162975458275165
50.0176320730488505
60.0217313138121007
70.0217313138121008
80.0223830292855994
90.0229128784747792
100.0251722068957015
110.0254472002389260
120.0256173769148990
130.0259154394136004
140.0273649410743016
150.0280287352550913
160.0282956006446605
170.0287923600977759
180.031126997927844
190.0318050310485622
200.0319004702159702
210.0324075608461977
220.0329338731399754
230.0345739786544737
240.0374934660974416
250.0375813783674841
260.0376468013177884
270.0403776059848985
280.0412583324917525
290.0413329166645666
300.0415933888977564
310.0417252920900502
320.0431302489412267
330.0441642234516014
340.0447821392968224
350.0450076530244069
360.0458267389195435
370.0463777899445907
380.0500939558719245
390.050135589799016
400.0519250991829043
410.0541775783881118
420.0556201040928801
430.0568964615604369
440.0592655344638424
450.0594341122981788
460.0620895055872947
470.0622067245321938
480.0636045554087139
490.0709702216674465
500.0725156329596912
510.07268519222509
520.0742282752942826
530.0750516914191688
540.0794675489356025
550.0857254251438111
560.094188646674126
570.0957471992434861
580.120780474186338
590.125942241702014
600.126471760316274
610.146269465848395
620.15479335133955
630.157323818416109
640.168667152831649
650.171697164227033
660.172773426655809
670.235536027213647
680.332369072476967
690.343333349632724
700.398665619918125
710.428286201114464
720.432952550652445
730.482820456353776
740.560168446199355
750.806188151980381
760.936724048808193
771.54130104277556
784.54269490306882
7910.2940025314705


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