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 computationWed, 12 Nov 2008 06:43:55 -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/12/t1226497510atnt0s4t18133ka.htm/, Retrieved Sun, 19 May 2024 10:20:53 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24179, Retrieved Sun, 19 May 2024 10:20:53 +0000
QR Codes:

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

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] [] [2008-11-12 13:43:55] [890f958132adb51f538eb267509d2e70] [Current]
Feedback Forum
2008-11-20 17:01:12 [Gert-Jan Geudens] [reply] 
Geen conclusie gegeven. De dendrogram heeft als doel de gelijkaardige gegevens te groeperen in clusters. Aangezien de gegevens op de x-as nogal moeilijk leesbaar zijn kunnen we weinig conclusies trekken. Wel kunnen we ongeveer zeggen dat de eerste maanden (ongeveer maand 1-20, op enkele uitzonderingen na) , zich in de linkercluster bevinden en dus ongeveer gelijk zijn.
Het is aangeraden om voor de dendrogram, minder gegevens te gebruiken zodat de x-as nog leesbaar is.
2008-11-20 17:01:12 [Gert-Jan Geudens] [reply] 
Geen conclusie gegeven. De dendrogram heeft als doel de gelijkaardige gegevens te groeperen in clusters. Aangezien de gegevens op de x-as nogal moeilijk leesbaar zijn kunnen we weinig conclusies trekken. Wel kunnen we ongeveer zeggen dat de eerste maanden (ongeveer maand 1-20, op enkele uitzonderingen na) , zich in de linkercluster bevinden en dus ongeveer gelijk zijn.
Het is aangeraden om voor de dendrogram, minder gegevens te gebruiken zodat de x-as nog leesbaar is.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
98.6	98.1	98.6
98	101.1	98
106.8	111.1	106.8
96.6	93.3	96.7
100.1	100	100.2
107.7	108	107.7
91.5	70.4	92
97.8	75.4	98.4
107.4	105.5	107.4
117.5	112.3	117.7
105.6	102.5	105.7
97.4	93.5	97.5
99.5	86.7	99.9
98	95.2	98.2
104.3	103.8	104.5
100.6	97	100.8
101.1	95.5	101.5
103.9	101	103.9
96.9	67.5	99.6
95.5	64	98.4
108.4	106.7	112.7
117	100.6	118.4
103.8	101.2	108.1
100.8	93.1	105.4
110.6	84.2	114.6
104	85.8	106.9
112.6	91.8	115.9
107.3	92.4	109.8
98.9	80.3	101.8
109.8	79.7	114.2
104.9	62.5	110.8
102.2	57.1	108.4
123.9	100.8	127.5
124.9	100.7	128.6
112.7	86.2	116.6
121.9	83.2	127.4
100.6	71.7	105
104.3	77.5	108.3
120.4	89.8	125
107.5	80.3	111.6
102.9	78.7	106.5
125.6	93.8	130.3
107.5	57.6	115
108.8	60.6	116.1
128.4	91	134
121.1	85.3	126.5
119.5	77.4	125.8
128.7	77.3	136.4
108.7	68.3	114.9
105.5	69.9	110.9
119.8	81.7	125.5
111.3	75.1	116.8
110.6	69.9	116.8
120.1	84	125.5
97.5	54.3	104.2
107.7	60	115.1
127.3	89.9	132.8
117.2	77	123.3
119.8	85.3	124.8
116.2	77.6	122
111	69.2	117.4
112.4	75.5	117.9
130.6	85.7	137.4
109.1	72.2	114.6
118.8	79.9	124.7
123.9	85.3	129.6
101.6	52.2	109.4
112.8	61.2	120.9
128	82.4	134.9
129.6	85.4	136.3
125.8	78.2	133.2
119.5	70.2	127.2
115.7	70.2	122.7
113.6	69.3	120.5
129.7	77.5	137.8
112	66.1	119.1
116.8	69	124.3
127	79.2	134.4
112.1	56.2	121.1
114.2	63.3	122.2
121.1	77.8	127.7
131.6	92	137.4
125	78.1	132.2
120.4	65.1	129.2
117.7	71.1	124.9
117.5	70.9	124.8
120.6	72	128.2
127.5	81.9	134.4
112.3	70.6	118.6
124.5	72.5	132.6
115.2	65.1	123.2
105.4	61.1	112.3

Tables (Output of Computation)





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

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






Summary of Dendrogram
LabelHeight
10.299999999999997
20.866025403784439
31.00498756211210
41.14891252930761
51.28452325786651
61.48996644257513
71.50665191733193
81.51657508881031
91.60312195418814
101.60623784042091
111.72916164657906
121.73205080756888
131.74642491965729
141.96468827043884
152.11187120819429
162.19544984001001
172.20513651231144
182.20907220343745
192.28254244210266
202.28910462845192
212.33452350598574
222.51594912508182
232.53574446662119
242.57681974534502
252.64386081328046
262.77058532449966
272.90172362570939
282.99845561883698
293.12564300278747
303.26734797768568
313.37231389578452
323.52278299076171
333.52278299076171
343.62439339021964
353.91241935925077
363.93192065026751
373.95600808897050
384.5459418594782
394.64186944335954
404.7050431050899
414.87266882949687
425.03686410378521
435.16477859074342
445.70119980019328
456.06465168002251
466.24775822887093
476.48052293251887
486.50573778370815
497.21025528344463
507.55040704099927
517.57284653113911
527.58880812543228
537.87781695649246
547.89908376646548
557.92842985716592
568.21712600436276
578.37317627893287
588.38742520331551
599.3880430504072
609.42349702457905
619.42385975563958
6210.0702528040335
6310.1305655820971
6410.5240112075564
6511.4964472540226
6611.7315813085875
6711.7874385126027
6811.8746715537649
6912.0487598520219
7012.0632616362875
7114.5614772412080
7217.0553423117035
7319.1334017828411
7420.9285825777002
7522.5323850220856
7623.3171390729907
7727.0034736049979
7827.2739939916207
7928.479988420788
8034.9335466432876
8137.9812439338702
8244.7313126545005
8367.345151823671
8468.1355071029826
8574.1336254311414
8690.1118076844012
87106.430822697709
88127.127133164643
89191.601770157151
90477.498755121726
91581.923599755596

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.299999999999997 \tabularnewline
2 & 0.866025403784439 \tabularnewline
3 & 1.00498756211210 \tabularnewline
4 & 1.14891252930761 \tabularnewline
5 & 1.28452325786651 \tabularnewline
6 & 1.48996644257513 \tabularnewline
7 & 1.50665191733193 \tabularnewline
8 & 1.51657508881031 \tabularnewline
9 & 1.60312195418814 \tabularnewline
10 & 1.60623784042091 \tabularnewline
11 & 1.72916164657906 \tabularnewline
12 & 1.73205080756888 \tabularnewline
13 & 1.74642491965729 \tabularnewline
14 & 1.96468827043884 \tabularnewline
15 & 2.11187120819429 \tabularnewline
16 & 2.19544984001001 \tabularnewline
17 & 2.20513651231144 \tabularnewline
18 & 2.20907220343745 \tabularnewline
19 & 2.28254244210266 \tabularnewline
20 & 2.28910462845192 \tabularnewline
21 & 2.33452350598574 \tabularnewline
22 & 2.51594912508182 \tabularnewline
23 & 2.53574446662119 \tabularnewline
24 & 2.57681974534502 \tabularnewline
25 & 2.64386081328046 \tabularnewline
26 & 2.77058532449966 \tabularnewline
27 & 2.90172362570939 \tabularnewline
28 & 2.99845561883698 \tabularnewline
29 & 3.12564300278747 \tabularnewline
30 & 3.26734797768568 \tabularnewline
31 & 3.37231389578452 \tabularnewline
32 & 3.52278299076171 \tabularnewline
33 & 3.52278299076171 \tabularnewline
34 & 3.62439339021964 \tabularnewline
35 & 3.91241935925077 \tabularnewline
36 & 3.93192065026751 \tabularnewline
37 & 3.95600808897050 \tabularnewline
38 & 4.5459418594782 \tabularnewline
39 & 4.64186944335954 \tabularnewline
40 & 4.7050431050899 \tabularnewline
41 & 4.87266882949687 \tabularnewline
42 & 5.03686410378521 \tabularnewline
43 & 5.16477859074342 \tabularnewline
44 & 5.70119980019328 \tabularnewline
45 & 6.06465168002251 \tabularnewline
46 & 6.24775822887093 \tabularnewline
47 & 6.48052293251887 \tabularnewline
48 & 6.50573778370815 \tabularnewline
49 & 7.21025528344463 \tabularnewline
50 & 7.55040704099927 \tabularnewline
51 & 7.57284653113911 \tabularnewline
52 & 7.58880812543228 \tabularnewline
53 & 7.87781695649246 \tabularnewline
54 & 7.89908376646548 \tabularnewline
55 & 7.92842985716592 \tabularnewline
56 & 8.21712600436276 \tabularnewline
57 & 8.37317627893287 \tabularnewline
58 & 8.38742520331551 \tabularnewline
59 & 9.3880430504072 \tabularnewline
60 & 9.42349702457905 \tabularnewline
61 & 9.42385975563958 \tabularnewline
62 & 10.0702528040335 \tabularnewline
63 & 10.1305655820971 \tabularnewline
64 & 10.5240112075564 \tabularnewline
65 & 11.4964472540226 \tabularnewline
66 & 11.7315813085875 \tabularnewline
67 & 11.7874385126027 \tabularnewline
68 & 11.8746715537649 \tabularnewline
69 & 12.0487598520219 \tabularnewline
70 & 12.0632616362875 \tabularnewline
71 & 14.5614772412080 \tabularnewline
72 & 17.0553423117035 \tabularnewline
73 & 19.1334017828411 \tabularnewline
74 & 20.9285825777002 \tabularnewline
75 & 22.5323850220856 \tabularnewline
76 & 23.3171390729907 \tabularnewline
77 & 27.0034736049979 \tabularnewline
78 & 27.2739939916207 \tabularnewline
79 & 28.479988420788 \tabularnewline
80 & 34.9335466432876 \tabularnewline
81 & 37.9812439338702 \tabularnewline
82 & 44.7313126545005 \tabularnewline
83 & 67.345151823671 \tabularnewline
84 & 68.1355071029826 \tabularnewline
85 & 74.1336254311414 \tabularnewline
86 & 90.1118076844012 \tabularnewline
87 & 106.430822697709 \tabularnewline
88 & 127.127133164643 \tabularnewline
89 & 191.601770157151 \tabularnewline
90 & 477.498755121726 \tabularnewline
91 & 581.923599755596 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24179&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.299999999999997[/C][/ROW]
[ROW][C]2[/C][C]0.866025403784439[/C][/ROW]
[ROW][C]3[/C][C]1.00498756211210[/C][/ROW]
[ROW][C]4[/C][C]1.14891252930761[/C][/ROW]
[ROW][C]5[/C][C]1.28452325786651[/C][/ROW]
[ROW][C]6[/C][C]1.48996644257513[/C][/ROW]
[ROW][C]7[/C][C]1.50665191733193[/C][/ROW]
[ROW][C]8[/C][C]1.51657508881031[/C][/ROW]
[ROW][C]9[/C][C]1.60312195418814[/C][/ROW]
[ROW][C]10[/C][C]1.60623784042091[/C][/ROW]
[ROW][C]11[/C][C]1.72916164657906[/C][/ROW]
[ROW][C]12[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]13[/C][C]1.74642491965729[/C][/ROW]
[ROW][C]14[/C][C]1.96468827043884[/C][/ROW]
[ROW][C]15[/C][C]2.11187120819429[/C][/ROW]
[ROW][C]16[/C][C]2.19544984001001[/C][/ROW]
[ROW][C]17[/C][C]2.20513651231144[/C][/ROW]
[ROW][C]18[/C][C]2.20907220343745[/C][/ROW]
[ROW][C]19[/C][C]2.28254244210266[/C][/ROW]
[ROW][C]20[/C][C]2.28910462845192[/C][/ROW]
[ROW][C]21[/C][C]2.33452350598574[/C][/ROW]
[ROW][C]22[/C][C]2.51594912508182[/C][/ROW]
[ROW][C]23[/C][C]2.53574446662119[/C][/ROW]
[ROW][C]24[/C][C]2.57681974534502[/C][/ROW]
[ROW][C]25[/C][C]2.64386081328046[/C][/ROW]
[ROW][C]26[/C][C]2.77058532449966[/C][/ROW]
[ROW][C]27[/C][C]2.90172362570939[/C][/ROW]
[ROW][C]28[/C][C]2.99845561883698[/C][/ROW]
[ROW][C]29[/C][C]3.12564300278747[/C][/ROW]
[ROW][C]30[/C][C]3.26734797768568[/C][/ROW]
[ROW][C]31[/C][C]3.37231389578452[/C][/ROW]
[ROW][C]32[/C][C]3.52278299076171[/C][/ROW]
[ROW][C]33[/C][C]3.52278299076171[/C][/ROW]
[ROW][C]34[/C][C]3.62439339021964[/C][/ROW]
[ROW][C]35[/C][C]3.91241935925077[/C][/ROW]
[ROW][C]36[/C][C]3.93192065026751[/C][/ROW]
[ROW][C]37[/C][C]3.95600808897050[/C][/ROW]
[ROW][C]38[/C][C]4.5459418594782[/C][/ROW]
[ROW][C]39[/C][C]4.64186944335954[/C][/ROW]
[ROW][C]40[/C][C]4.7050431050899[/C][/ROW]
[ROW][C]41[/C][C]4.87266882949687[/C][/ROW]
[ROW][C]42[/C][C]5.03686410378521[/C][/ROW]
[ROW][C]43[/C][C]5.16477859074342[/C][/ROW]
[ROW][C]44[/C][C]5.70119980019328[/C][/ROW]
[ROW][C]45[/C][C]6.06465168002251[/C][/ROW]
[ROW][C]46[/C][C]6.24775822887093[/C][/ROW]
[ROW][C]47[/C][C]6.48052293251887[/C][/ROW]
[ROW][C]48[/C][C]6.50573778370815[/C][/ROW]
[ROW][C]49[/C][C]7.21025528344463[/C][/ROW]
[ROW][C]50[/C][C]7.55040704099927[/C][/ROW]
[ROW][C]51[/C][C]7.57284653113911[/C][/ROW]
[ROW][C]52[/C][C]7.58880812543228[/C][/ROW]
[ROW][C]53[/C][C]7.87781695649246[/C][/ROW]
[ROW][C]54[/C][C]7.89908376646548[/C][/ROW]
[ROW][C]55[/C][C]7.92842985716592[/C][/ROW]
[ROW][C]56[/C][C]8.21712600436276[/C][/ROW]
[ROW][C]57[/C][C]8.37317627893287[/C][/ROW]
[ROW][C]58[/C][C]8.38742520331551[/C][/ROW]
[ROW][C]59[/C][C]9.3880430504072[/C][/ROW]
[ROW][C]60[/C][C]9.42349702457905[/C][/ROW]
[ROW][C]61[/C][C]9.42385975563958[/C][/ROW]
[ROW][C]62[/C][C]10.0702528040335[/C][/ROW]
[ROW][C]63[/C][C]10.1305655820971[/C][/ROW]
[ROW][C]64[/C][C]10.5240112075564[/C][/ROW]
[ROW][C]65[/C][C]11.4964472540226[/C][/ROW]
[ROW][C]66[/C][C]11.7315813085875[/C][/ROW]
[ROW][C]67[/C][C]11.7874385126027[/C][/ROW]
[ROW][C]68[/C][C]11.8746715537649[/C][/ROW]
[ROW][C]69[/C][C]12.0487598520219[/C][/ROW]
[ROW][C]70[/C][C]12.0632616362875[/C][/ROW]
[ROW][C]71[/C][C]14.5614772412080[/C][/ROW]
[ROW][C]72[/C][C]17.0553423117035[/C][/ROW]
[ROW][C]73[/C][C]19.1334017828411[/C][/ROW]
[ROW][C]74[/C][C]20.9285825777002[/C][/ROW]
[ROW][C]75[/C][C]22.5323850220856[/C][/ROW]
[ROW][C]76[/C][C]23.3171390729907[/C][/ROW]
[ROW][C]77[/C][C]27.0034736049979[/C][/ROW]
[ROW][C]78[/C][C]27.2739939916207[/C][/ROW]
[ROW][C]79[/C][C]28.479988420788[/C][/ROW]
[ROW][C]80[/C][C]34.9335466432876[/C][/ROW]
[ROW][C]81[/C][C]37.9812439338702[/C][/ROW]
[ROW][C]82[/C][C]44.7313126545005[/C][/ROW]
[ROW][C]83[/C][C]67.345151823671[/C][/ROW]
[ROW][C]84[/C][C]68.1355071029826[/C][/ROW]
[ROW][C]85[/C][C]74.1336254311414[/C][/ROW]
[ROW][C]86[/C][C]90.1118076844012[/C][/ROW]
[ROW][C]87[/C][C]106.430822697709[/C][/ROW]
[ROW][C]88[/C][C]127.127133164643[/C][/ROW]
[ROW][C]89[/C][C]191.601770157151[/C][/ROW]
[ROW][C]90[/C][C]477.498755121726[/C][/ROW]
[ROW][C]91[/C][C]581.923599755596[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24179&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24179&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.299999999999997
20.866025403784439
31.00498756211210
41.14891252930761
51.28452325786651
61.48996644257513
71.50665191733193
81.51657508881031
91.60312195418814
101.60623784042091
111.72916164657906
121.73205080756888
131.74642491965729
141.96468827043884
152.11187120819429
162.19544984001001
172.20513651231144
182.20907220343745
192.28254244210266
202.28910462845192
212.33452350598574
222.51594912508182
232.53574446662119
242.57681974534502
252.64386081328046
262.77058532449966
272.90172362570939
282.99845561883698
293.12564300278747
303.26734797768568
313.37231389578452
323.52278299076171
333.52278299076171
343.62439339021964
353.91241935925077
363.93192065026751
373.95600808897050
384.5459418594782
394.64186944335954
404.7050431050899
414.87266882949687
425.03686410378521
435.16477859074342
445.70119980019328
456.06465168002251
466.24775822887093
476.48052293251887
486.50573778370815
497.21025528344463
507.55040704099927
517.57284653113911
527.58880812543228
537.87781695649246
547.89908376646548
557.92842985716592
568.21712600436276
578.37317627893287
588.38742520331551
599.3880430504072
609.42349702457905
619.42385975563958
6210.0702528040335
6310.1305655820971
6410.5240112075564
6511.4964472540226
6611.7315813085875
6711.7874385126027
6811.8746715537649
6912.0487598520219
7012.0632616362875
7114.5614772412080
7217.0553423117035
7319.1334017828411
7420.9285825777002
7522.5323850220856
7623.3171390729907
7727.0034736049979
7827.2739939916207
7928.479988420788
8034.9335466432876
8137.9812439338702
8244.7313126545005
8367.345151823671
8468.1355071029826
8574.1336254311414
8690.1118076844012
87106.430822697709
88127.127133164643
89191.601770157151
90477.498755121726
91581.923599755596


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