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, 01 Nov 2007 15:18:58 -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/01/mvuz0biud7rguyv1193955540.htm/, Retrieved Wed, 08 May 2024 00:37:41 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=79, Retrieved Wed, 08 May 2024 00:37:41 +0000
QR Codes:

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

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-01 22:18:58] [65108f21b143a71c6470aac06bd65b08] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
-4	-13	23	5	15
-14	-25	43	2	9
-18	-26	60	3	10
-8	-9	36	3	9
-1	1	28	7	14
1	3	23	8	18
2	6	23	7	18
0	2	22	7	12
1	5	22	6	16
0	5	24	6	12
-1	0	32	7	19
-3	-5	27	5	13
-3	-4	27	5	12
-3	-2	27	5	13
-4	-1	29	4	11
-8	-8	38	4	10
-9	-16	40	4	16
-13	-19	45	1	12
-18	-28	50	-1	6
-11	-11	43	3	8
-9	-4	44	4	6
-10	-9	44	3	8
-13	-12	49	2	8
-11	-10	42	1	9
-5	-2	36	4	13
-15	-13	57	3	8
-6	0	42	5	11
-6	0	39	6	8
-3	4	33	6	10
-1	7	32	6	15
-3	5	34	6	12
-4	2	37	6	13
-6	-2	38	5	12
0	6	28	6	15
-4	-3	31	5	13
-2	1	28	6	13
-2	0	30	5	16
-6	-7	39	7	14
-7	-6	38	4	12
-6	-4	39	5	15
-6	-4	38	6	14
-3	-2	37	6	19
-2	2	32	5	16
-5	-5	32	3	16
-11	-15	44	2	11
-11	-16	43	3	13
-11	-18	42	3	12
-10	-13	38	2	11
-14	-23	37	0	6
-8	-10	35	4	9
-9	-10	37	4	6
-5	-6	33	5	15
-1	-3	24	6	17
-2	-4	24	6	13
-5	-7	31	5	12
-4	-7	25	5	13
-6	-7	28	3	10
-2	-3	24	5	14
-2	0	25	5	13
-2	-5	16	5	10
-2	-3	17	3	11
2	3	11	6	12
1	2	12	6	7
-8	-7	39	4	11
-1	-1	19	6	9
1	0	14	5	13
-1	-3	15	4	12
2	4	7	5	5
2	2	12	5	13
1	3	12	4	11
-1	0	14	3	8
-2	-10	9	2	8
-2	-10	8	3	8

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=79&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
21.41421356237310
31.73205080756888
41.73205080756888
51.73205080756888
61.73205080756888
71.73205080756888
82
92.44948974278318
102.44948974278318
112.44948974278318
122.64575131106459
132.64575131106459
142.64575131106459
152.75598306414371
162.82842712474619
172.82842712474619
182.86100174808612
193
203.15842082001893
213.43735119666099
223.52932652392028
233.60555127546399
243.67197500229753
253.74165738677394
264.11058437668058
274.12817118222994
284.24264068711928
294.24264068711928
304.32078883896900
314.35889894354067
324.46216004912683
334.69041575982343
344.69735775401603
354.71404520791032
365.20378727073248
375.36973991845185
385.4422477517359
396.34246488731393
406.557438524302
417.28010988928052
427.99503323577394
438.0934356069449
448.1240005248604
458.36660026534076
468.57291944917215
478.59883397085114
488.7112889015209
499.1594813516547
509.7444478418706
519.83473712562506
529.95199926939705
5310.2025910186703
5411.6619037896906
5512.5701608357731
5612.9974590053013
5713.3811992172593
5813.9680611411551
5918.5584895479340
6020.7134820431251
6121.2742848167559
6222.2306587588773
6323.3385990240928
6431.1517969724412
6531.651398086086
6633.4133427299524
6737.2763710262088
6843.1062306335928
6957.3327692222048
70120.843069244248
71162.959848845757
72418.962432710802

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.41421356237310 \tabularnewline
2 & 1.41421356237310 \tabularnewline
3 & 1.73205080756888 \tabularnewline
4 & 1.73205080756888 \tabularnewline
5 & 1.73205080756888 \tabularnewline
6 & 1.73205080756888 \tabularnewline
7 & 1.73205080756888 \tabularnewline
8 & 2 \tabularnewline
9 & 2.44948974278318 \tabularnewline
10 & 2.44948974278318 \tabularnewline
11 & 2.44948974278318 \tabularnewline
12 & 2.64575131106459 \tabularnewline
13 & 2.64575131106459 \tabularnewline
14 & 2.64575131106459 \tabularnewline
15 & 2.75598306414371 \tabularnewline
16 & 2.82842712474619 \tabularnewline
17 & 2.82842712474619 \tabularnewline
18 & 2.86100174808612 \tabularnewline
19 & 3 \tabularnewline
20 & 3.15842082001893 \tabularnewline
21 & 3.43735119666099 \tabularnewline
22 & 3.52932652392028 \tabularnewline
23 & 3.60555127546399 \tabularnewline
24 & 3.67197500229753 \tabularnewline
25 & 3.74165738677394 \tabularnewline
26 & 4.11058437668058 \tabularnewline
27 & 4.12817118222994 \tabularnewline
28 & 4.24264068711928 \tabularnewline
29 & 4.24264068711928 \tabularnewline
30 & 4.32078883896900 \tabularnewline
31 & 4.35889894354067 \tabularnewline
32 & 4.46216004912683 \tabularnewline
33 & 4.69041575982343 \tabularnewline
34 & 4.69735775401603 \tabularnewline
35 & 4.71404520791032 \tabularnewline
36 & 5.20378727073248 \tabularnewline
37 & 5.36973991845185 \tabularnewline
38 & 5.4422477517359 \tabularnewline
39 & 6.34246488731393 \tabularnewline
40 & 6.557438524302 \tabularnewline
41 & 7.28010988928052 \tabularnewline
42 & 7.99503323577394 \tabularnewline
43 & 8.0934356069449 \tabularnewline
44 & 8.1240005248604 \tabularnewline
45 & 8.36660026534076 \tabularnewline
46 & 8.57291944917215 \tabularnewline
47 & 8.59883397085114 \tabularnewline
48 & 8.7112889015209 \tabularnewline
49 & 9.1594813516547 \tabularnewline
50 & 9.7444478418706 \tabularnewline
51 & 9.83473712562506 \tabularnewline
52 & 9.95199926939705 \tabularnewline
53 & 10.2025910186703 \tabularnewline
54 & 11.6619037896906 \tabularnewline
55 & 12.5701608357731 \tabularnewline
56 & 12.9974590053013 \tabularnewline
57 & 13.3811992172593 \tabularnewline
58 & 13.9680611411551 \tabularnewline
59 & 18.5584895479340 \tabularnewline
60 & 20.7134820431251 \tabularnewline
61 & 21.2742848167559 \tabularnewline
62 & 22.2306587588773 \tabularnewline
63 & 23.3385990240928 \tabularnewline
64 & 31.1517969724412 \tabularnewline
65 & 31.651398086086 \tabularnewline
66 & 33.4133427299524 \tabularnewline
67 & 37.2763710262088 \tabularnewline
68 & 43.1062306335928 \tabularnewline
69 & 57.3327692222048 \tabularnewline
70 & 120.843069244248 \tabularnewline
71 & 162.959848845757 \tabularnewline
72 & 418.962432710802 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79&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]1.41421356237310[/C][/ROW]
[ROW][C]3[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]4[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]5[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]6[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]7[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]8[/C][C]2[/C][/ROW]
[ROW][C]9[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]10[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]11[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]12[/C][C]2.64575131106459[/C][/ROW]
[ROW][C]13[/C][C]2.64575131106459[/C][/ROW]
[ROW][C]14[/C][C]2.64575131106459[/C][/ROW]
[ROW][C]15[/C][C]2.75598306414371[/C][/ROW]
[ROW][C]16[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]17[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]18[/C][C]2.86100174808612[/C][/ROW]
[ROW][C]19[/C][C]3[/C][/ROW]
[ROW][C]20[/C][C]3.15842082001893[/C][/ROW]
[ROW][C]21[/C][C]3.43735119666099[/C][/ROW]
[ROW][C]22[/C][C]3.52932652392028[/C][/ROW]
[ROW][C]23[/C][C]3.60555127546399[/C][/ROW]
[ROW][C]24[/C][C]3.67197500229753[/C][/ROW]
[ROW][C]25[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]26[/C][C]4.11058437668058[/C][/ROW]
[ROW][C]27[/C][C]4.12817118222994[/C][/ROW]
[ROW][C]28[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]29[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]30[/C][C]4.32078883896900[/C][/ROW]
[ROW][C]31[/C][C]4.35889894354067[/C][/ROW]
[ROW][C]32[/C][C]4.46216004912683[/C][/ROW]
[ROW][C]33[/C][C]4.69041575982343[/C][/ROW]
[ROW][C]34[/C][C]4.69735775401603[/C][/ROW]
[ROW][C]35[/C][C]4.71404520791032[/C][/ROW]
[ROW][C]36[/C][C]5.20378727073248[/C][/ROW]
[ROW][C]37[/C][C]5.36973991845185[/C][/ROW]
[ROW][C]38[/C][C]5.4422477517359[/C][/ROW]
[ROW][C]39[/C][C]6.34246488731393[/C][/ROW]
[ROW][C]40[/C][C]6.557438524302[/C][/ROW]
[ROW][C]41[/C][C]7.28010988928052[/C][/ROW]
[ROW][C]42[/C][C]7.99503323577394[/C][/ROW]
[ROW][C]43[/C][C]8.0934356069449[/C][/ROW]
[ROW][C]44[/C][C]8.1240005248604[/C][/ROW]
[ROW][C]45[/C][C]8.36660026534076[/C][/ROW]
[ROW][C]46[/C][C]8.57291944917215[/C][/ROW]
[ROW][C]47[/C][C]8.59883397085114[/C][/ROW]
[ROW][C]48[/C][C]8.7112889015209[/C][/ROW]
[ROW][C]49[/C][C]9.1594813516547[/C][/ROW]
[ROW][C]50[/C][C]9.7444478418706[/C][/ROW]
[ROW][C]51[/C][C]9.83473712562506[/C][/ROW]
[ROW][C]52[/C][C]9.95199926939705[/C][/ROW]
[ROW][C]53[/C][C]10.2025910186703[/C][/ROW]
[ROW][C]54[/C][C]11.6619037896906[/C][/ROW]
[ROW][C]55[/C][C]12.5701608357731[/C][/ROW]
[ROW][C]56[/C][C]12.9974590053013[/C][/ROW]
[ROW][C]57[/C][C]13.3811992172593[/C][/ROW]
[ROW][C]58[/C][C]13.9680611411551[/C][/ROW]
[ROW][C]59[/C][C]18.5584895479340[/C][/ROW]
[ROW][C]60[/C][C]20.7134820431251[/C][/ROW]
[ROW][C]61[/C][C]21.2742848167559[/C][/ROW]
[ROW][C]62[/C][C]22.2306587588773[/C][/ROW]
[ROW][C]63[/C][C]23.3385990240928[/C][/ROW]
[ROW][C]64[/C][C]31.1517969724412[/C][/ROW]
[ROW][C]65[/C][C]31.651398086086[/C][/ROW]
[ROW][C]66[/C][C]33.4133427299524[/C][/ROW]
[ROW][C]67[/C][C]37.2763710262088[/C][/ROW]
[ROW][C]68[/C][C]43.1062306335928[/C][/ROW]
[ROW][C]69[/C][C]57.3327692222048[/C][/ROW]
[ROW][C]70[/C][C]120.843069244248[/C][/ROW]
[ROW][C]71[/C][C]162.959848845757[/C][/ROW]
[ROW][C]72[/C][C]418.962432710802[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=79&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
21.41421356237310
31.73205080756888
41.73205080756888
51.73205080756888
61.73205080756888
71.73205080756888
82
92.44948974278318
102.44948974278318
112.44948974278318
122.64575131106459
132.64575131106459
142.64575131106459
152.75598306414371
162.82842712474619
172.82842712474619
182.86100174808612
193
203.15842082001893
213.43735119666099
223.52932652392028
233.60555127546399
243.67197500229753
253.74165738677394
264.11058437668058
274.12817118222994
284.24264068711928
294.24264068711928
304.32078883896900
314.35889894354067
324.46216004912683
334.69041575982343
344.69735775401603
354.71404520791032
365.20378727073248
375.36973991845185
385.4422477517359
396.34246488731393
406.557438524302
417.28010988928052
427.99503323577394
438.0934356069449
448.1240005248604
458.36660026534076
468.57291944917215
478.59883397085114
488.7112889015209
499.1594813516547
509.7444478418706
519.83473712562506
529.95199926939705
5310.2025910186703
5411.6619037896906
5512.5701608357731
5612.9974590053013
5713.3811992172593
5813.9680611411551
5918.5584895479340
6020.7134820431251
6121.2742848167559
6222.2306587588773
6323.3385990240928
6431.1517969724412
6531.651398086086
6633.4133427299524
6737.2763710262088
6843.1062306335928
6957.3327692222048
70120.843069244248
71162.959848845757
72418.962432710802






Summary of Cut Dendrogram
LabelHeight
14.76823983363999
25.68484828293597
35.79151678463135
46.29704516243752
56.80685928555405
67.14336550730136
79.01322474234479
810.1310852769528
911.1679910234245
1011.6619037896906
1111.8768416952448
1213.5334404471100
1314.2969381082885
1415.2126853988113
1516.8677692043426
1625.3718259608125
1741.6786157471328
1871.023820651262
19118.571611228269

\begin{tabular}{lllllllll}
\hline
Summary of Cut Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 4.76823983363999 \tabularnewline
2 & 5.68484828293597 \tabularnewline
3 & 5.79151678463135 \tabularnewline
4 & 6.29704516243752 \tabularnewline
5 & 6.80685928555405 \tabularnewline
6 & 7.14336550730136 \tabularnewline
7 & 9.01322474234479 \tabularnewline
8 & 10.1310852769528 \tabularnewline
9 & 11.1679910234245 \tabularnewline
10 & 11.6619037896906 \tabularnewline
11 & 11.8768416952448 \tabularnewline
12 & 13.5334404471100 \tabularnewline
13 & 14.2969381082885 \tabularnewline
14 & 15.2126853988113 \tabularnewline
15 & 16.8677692043426 \tabularnewline
16 & 25.3718259608125 \tabularnewline
17 & 41.6786157471328 \tabularnewline
18 & 71.023820651262 \tabularnewline
19 & 118.571611228269 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79&T=2

[TABLE]
[ROW][C]Summary of Cut Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]4.76823983363999[/C][/ROW]
[ROW][C]2[/C][C]5.68484828293597[/C][/ROW]
[ROW][C]3[/C][C]5.79151678463135[/C][/ROW]
[ROW][C]4[/C][C]6.29704516243752[/C][/ROW]
[ROW][C]5[/C][C]6.80685928555405[/C][/ROW]
[ROW][C]6[/C][C]7.14336550730136[/C][/ROW]
[ROW][C]7[/C][C]9.01322474234479[/C][/ROW]
[ROW][C]8[/C][C]10.1310852769528[/C][/ROW]
[ROW][C]9[/C][C]11.1679910234245[/C][/ROW]
[ROW][C]10[/C][C]11.6619037896906[/C][/ROW]
[ROW][C]11[/C][C]11.8768416952448[/C][/ROW]
[ROW][C]12[/C][C]13.5334404471100[/C][/ROW]
[ROW][C]13[/C][C]14.2969381082885[/C][/ROW]
[ROW][C]14[/C][C]15.2126853988113[/C][/ROW]
[ROW][C]15[/C][C]16.8677692043426[/C][/ROW]
[ROW][C]16[/C][C]25.3718259608125[/C][/ROW]
[ROW][C]17[/C][C]41.6786157471328[/C][/ROW]
[ROW][C]18[/C][C]71.023820651262[/C][/ROW]
[ROW][C]19[/C][C]118.571611228269[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=79&T=2

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 Cut Dendrogram
LabelHeight
14.76823983363999
25.68484828293597
35.79151678463135
46.29704516243752
56.80685928555405
67.14336550730136
79.01322474234479
810.1310852769528
911.1679910234245
1011.6619037896906
1111.8768416952448
1213.5334404471100
1314.2969381082885
1415.2126853988113
1516.8677692043426
1625.3718259608125
1741.6786157471328
1871.023820651262
19118.571611228269


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = ward ; par2 = 20 ; par3 = FALSE ; par4 = FALSE ;
Parameters (R input):
par1 = ward ; par2 = 20 ; 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')
}