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 14:38:43 -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/t1197580991jo8m6e94mgwgmkf.htm/, Retrieved Sun, 05 May 2024 18:39:17 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14368, Retrieved Sun, 05 May 2024 18:39:17 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [dendogram] [2007-12-13 21:38:43] [000aa62228d3a41671cb26effc58c3a1] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
105,3	102,7	99,5	112,1
103	103,2	101,6	104,2
103,8	105,6	103,9	102,4
103,4	103,9	106,6	100,3
105,8	107,2	108,3	102,6
101,4	100,7	102	101,5
97	92,1	93,8	103,4
94,3	90,3	91,6	99,4
96,6	93,4	97,7	97,9
97,1	98,5	94,8	98
95,7	100,8	98	90,2
96,9	102,3	103,8	87,1
97,4	104,7	97,8	91,8
95,3	101,1	91,2	94,8
93,6	101,4	89,3	91,8
91,5	99,5	87,5	89,3
93,1	98,4	90,4	91,7
91,7	96,3	94,2	86,2
94,3	100,7	102,2	82,8
93,9	101,2	101,3	82,3
90,9	100,3	96	79,8
88,3	97,8	90,8	79,4
91,3	97,4	93,2	85,3
91,7	98,6	90,9	87,5
92,4	99,7	91,1	88,3
92	99	90,2	88,6
95,6	98,1	94,3	94,9
95,8	97	96	94,7
96,4	98,5	99	92,6
99	103,8	103,3	91,8
107	114,4	113,1	96,4
109,7	124,5	112,8	96,4
116,2	134,2	112,1	107,1
115,9	131,8	107,4	111,9
113,8	125,6	111	107,8
112,6	119,9	110,5	109,2
113,7	114,9	110,8	115,3
115,9	115,5	112,4	119,2
110,3	112,5	111,5	107,8
111,3	111,4	116,2	106,8
113,4	115,3	122,5	104,2
108,2	110,8	121,3	94,8
104,8	103,7	113,9	97,5
106	111,1	110,7	98,3
110,9	113	120,8	100,6
115	111,2	141,1	94,9
118,4	117,6	147,4	93,6
121,4	121,7	148	98
128,8	127,3	158,1	104,3
131,7	129,8	165	103,9
141,7	137,1	187	105,3
142,9	141,4	190,3	102,6
139,4	137,4	182,4	103,3
134,7	130,7	168,8	107,9
125	117,2	151,2	107,8
113,6	110,8	120,1	109,8
111,5	111,4	112,5	110,6
108,5	108,2	106,2	110,8
112,3	108,8	107,1	119,3
116,6	110,2	108,5	128,1
115,5	109,5	106,5	127,6
120,1	109,5	108,3	137,9
132,9	116	125,6	151,4
128,1	111,2	124	143,6
129,3	112,1	127,2	143,4
132,5	114	136,9	141,9
131	119,1	135,8	135,2
124,9	114,1	124,3	133,1
120,8	115,1	115,4	129,6
122	115,4	113,6	134,1
122,1	110,8	114,4	136,8
127,4	116	118,4	143,5
135,2	119,2	117	162,5
137,3	126,5	116,5	163,1
135	127,8	115,4	157,2
136	131,3	113,6	158,8
138,4	140,3	117,4	155,4
134,7	137,3	116,9	148,5
138,4	143	116,4	154,2
133,9	134,5	111,1	153,3
133,6	139,9	110,2	149,4
141,2	159,3	118,9	147,9
151,8	170,4	131,8	156
155,4	175	130,6	163
156,6	175,8	138,3	159,1
161,6	180,9	148,4	159,5
160,7	180,3	148,7	157,3
156	169,6	144,3	156,4
159,5	172,3	152,5	156,6
168,7	184,8	162,9	162,4
169,9	177,7	167,2	166,8
169,9	184,6	166,5	162,6
185,9	211,4	185,6	168,1

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14368&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.21243556529822
21.24498995979887
31.54443592435441
41.78325545001271
52.04450483002609
62.43926218353009
72.46981780704568
83.11929479209644
93.23573793747269
103.38969025133566
113.53977400408558
123.54118624192515
133.80525951808809
143.84057287393430
154.03236903073119
164.34280824575606
174.36463056855906
184.53479329250311
194.6108567533594
204.79270278652871
215.00199960015992
225.23354564325182
235.3851648071345
245.43852016366402
255.46443043692569
265.52630075185923
275.60089278597618
286.01165534607565
296.14848908193544
306.30015494150373
316.34113554499508
326.34428877022476
336.64153596692814
346.72829844760175
356.74759216313494
367.14002801114953
377.23611862669545
387.636098480245
398.0226709116002
408.62322445492405
418.63828684727447
428.75099994286369
438.77742123227844
449.10251155717131
459.31772504423692
4610.0140876797810
4710.1151756434954
4810.1653410694109
4910.2358534713358
5010.3008627304711
5110.4509329034980
5210.5837168732036
5311.2619923284771
5411.7938047562808
5511.9421350978038
5612.5491395303499
5712.6483498911346
5813.5279231618522
5913.8356734184559
6015.1110766450969
6115.5916168135707
6215.6039825271333
6315.6365237686499
6415.7362901431145
6515.7733132916750
6616.5647783306946
6716.7470136088330
6818.8737323321891
6919.2338059517308
7020.6816413748388
7122.1789455318448
7228.3437022521028
7331.6701041195941
7432.1170063016619
7536.0033824476328
7636.4367641574306
7747.5669959332961
7848.6917654280357
7953.2202756023082
8055.4387816941343
8155.6589575228827
8261.2391050795343
8365.811220583524
8487.6768310697424
85114.555473050499
86117.512664653131
87123.684787261690
88262.700122232823
89414.258583858880
90590.132618693753
91841.509111436755
921792.30259733093

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.21243556529822 \tabularnewline
2 & 1.24498995979887 \tabularnewline
3 & 1.54443592435441 \tabularnewline
4 & 1.78325545001271 \tabularnewline
5 & 2.04450483002609 \tabularnewline
6 & 2.43926218353009 \tabularnewline
7 & 2.46981780704568 \tabularnewline
8 & 3.11929479209644 \tabularnewline
9 & 3.23573793747269 \tabularnewline
10 & 3.38969025133566 \tabularnewline
11 & 3.53977400408558 \tabularnewline
12 & 3.54118624192515 \tabularnewline
13 & 3.80525951808809 \tabularnewline
14 & 3.84057287393430 \tabularnewline
15 & 4.03236903073119 \tabularnewline
16 & 4.34280824575606 \tabularnewline
17 & 4.36463056855906 \tabularnewline
18 & 4.53479329250311 \tabularnewline
19 & 4.6108567533594 \tabularnewline
20 & 4.79270278652871 \tabularnewline
21 & 5.00199960015992 \tabularnewline
22 & 5.23354564325182 \tabularnewline
23 & 5.3851648071345 \tabularnewline
24 & 5.43852016366402 \tabularnewline
25 & 5.46443043692569 \tabularnewline
26 & 5.52630075185923 \tabularnewline
27 & 5.60089278597618 \tabularnewline
28 & 6.01165534607565 \tabularnewline
29 & 6.14848908193544 \tabularnewline
30 & 6.30015494150373 \tabularnewline
31 & 6.34113554499508 \tabularnewline
32 & 6.34428877022476 \tabularnewline
33 & 6.64153596692814 \tabularnewline
34 & 6.72829844760175 \tabularnewline
35 & 6.74759216313494 \tabularnewline
36 & 7.14002801114953 \tabularnewline
37 & 7.23611862669545 \tabularnewline
38 & 7.636098480245 \tabularnewline
39 & 8.0226709116002 \tabularnewline
40 & 8.62322445492405 \tabularnewline
41 & 8.63828684727447 \tabularnewline
42 & 8.75099994286369 \tabularnewline
43 & 8.77742123227844 \tabularnewline
44 & 9.10251155717131 \tabularnewline
45 & 9.31772504423692 \tabularnewline
46 & 10.0140876797810 \tabularnewline
47 & 10.1151756434954 \tabularnewline
48 & 10.1653410694109 \tabularnewline
49 & 10.2358534713358 \tabularnewline
50 & 10.3008627304711 \tabularnewline
51 & 10.4509329034980 \tabularnewline
52 & 10.5837168732036 \tabularnewline
53 & 11.2619923284771 \tabularnewline
54 & 11.7938047562808 \tabularnewline
55 & 11.9421350978038 \tabularnewline
56 & 12.5491395303499 \tabularnewline
57 & 12.6483498911346 \tabularnewline
58 & 13.5279231618522 \tabularnewline
59 & 13.8356734184559 \tabularnewline
60 & 15.1110766450969 \tabularnewline
61 & 15.5916168135707 \tabularnewline
62 & 15.6039825271333 \tabularnewline
63 & 15.6365237686499 \tabularnewline
64 & 15.7362901431145 \tabularnewline
65 & 15.7733132916750 \tabularnewline
66 & 16.5647783306946 \tabularnewline
67 & 16.7470136088330 \tabularnewline
68 & 18.8737323321891 \tabularnewline
69 & 19.2338059517308 \tabularnewline
70 & 20.6816413748388 \tabularnewline
71 & 22.1789455318448 \tabularnewline
72 & 28.3437022521028 \tabularnewline
73 & 31.6701041195941 \tabularnewline
74 & 32.1170063016619 \tabularnewline
75 & 36.0033824476328 \tabularnewline
76 & 36.4367641574306 \tabularnewline
77 & 47.5669959332961 \tabularnewline
78 & 48.6917654280357 \tabularnewline
79 & 53.2202756023082 \tabularnewline
80 & 55.4387816941343 \tabularnewline
81 & 55.6589575228827 \tabularnewline
82 & 61.2391050795343 \tabularnewline
83 & 65.811220583524 \tabularnewline
84 & 87.6768310697424 \tabularnewline
85 & 114.555473050499 \tabularnewline
86 & 117.512664653131 \tabularnewline
87 & 123.684787261690 \tabularnewline
88 & 262.700122232823 \tabularnewline
89 & 414.258583858880 \tabularnewline
90 & 590.132618693753 \tabularnewline
91 & 841.509111436755 \tabularnewline
92 & 1792.30259733093 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14368&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.21243556529822[/C][/ROW]
[ROW][C]2[/C][C]1.24498995979887[/C][/ROW]
[ROW][C]3[/C][C]1.54443592435441[/C][/ROW]
[ROW][C]4[/C][C]1.78325545001271[/C][/ROW]
[ROW][C]5[/C][C]2.04450483002609[/C][/ROW]
[ROW][C]6[/C][C]2.43926218353009[/C][/ROW]
[ROW][C]7[/C][C]2.46981780704568[/C][/ROW]
[ROW][C]8[/C][C]3.11929479209644[/C][/ROW]
[ROW][C]9[/C][C]3.23573793747269[/C][/ROW]
[ROW][C]10[/C][C]3.38969025133566[/C][/ROW]
[ROW][C]11[/C][C]3.53977400408558[/C][/ROW]
[ROW][C]12[/C][C]3.54118624192515[/C][/ROW]
[ROW][C]13[/C][C]3.80525951808809[/C][/ROW]
[ROW][C]14[/C][C]3.84057287393430[/C][/ROW]
[ROW][C]15[/C][C]4.03236903073119[/C][/ROW]
[ROW][C]16[/C][C]4.34280824575606[/C][/ROW]
[ROW][C]17[/C][C]4.36463056855906[/C][/ROW]
[ROW][C]18[/C][C]4.53479329250311[/C][/ROW]
[ROW][C]19[/C][C]4.6108567533594[/C][/ROW]
[ROW][C]20[/C][C]4.79270278652871[/C][/ROW]
[ROW][C]21[/C][C]5.00199960015992[/C][/ROW]
[ROW][C]22[/C][C]5.23354564325182[/C][/ROW]
[ROW][C]23[/C][C]5.3851648071345[/C][/ROW]
[ROW][C]24[/C][C]5.43852016366402[/C][/ROW]
[ROW][C]25[/C][C]5.46443043692569[/C][/ROW]
[ROW][C]26[/C][C]5.52630075185923[/C][/ROW]
[ROW][C]27[/C][C]5.60089278597618[/C][/ROW]
[ROW][C]28[/C][C]6.01165534607565[/C][/ROW]
[ROW][C]29[/C][C]6.14848908193544[/C][/ROW]
[ROW][C]30[/C][C]6.30015494150373[/C][/ROW]
[ROW][C]31[/C][C]6.34113554499508[/C][/ROW]
[ROW][C]32[/C][C]6.34428877022476[/C][/ROW]
[ROW][C]33[/C][C]6.64153596692814[/C][/ROW]
[ROW][C]34[/C][C]6.72829844760175[/C][/ROW]
[ROW][C]35[/C][C]6.74759216313494[/C][/ROW]
[ROW][C]36[/C][C]7.14002801114953[/C][/ROW]
[ROW][C]37[/C][C]7.23611862669545[/C][/ROW]
[ROW][C]38[/C][C]7.636098480245[/C][/ROW]
[ROW][C]39[/C][C]8.0226709116002[/C][/ROW]
[ROW][C]40[/C][C]8.62322445492405[/C][/ROW]
[ROW][C]41[/C][C]8.63828684727447[/C][/ROW]
[ROW][C]42[/C][C]8.75099994286369[/C][/ROW]
[ROW][C]43[/C][C]8.77742123227844[/C][/ROW]
[ROW][C]44[/C][C]9.10251155717131[/C][/ROW]
[ROW][C]45[/C][C]9.31772504423692[/C][/ROW]
[ROW][C]46[/C][C]10.0140876797810[/C][/ROW]
[ROW][C]47[/C][C]10.1151756434954[/C][/ROW]
[ROW][C]48[/C][C]10.1653410694109[/C][/ROW]
[ROW][C]49[/C][C]10.2358534713358[/C][/ROW]
[ROW][C]50[/C][C]10.3008627304711[/C][/ROW]
[ROW][C]51[/C][C]10.4509329034980[/C][/ROW]
[ROW][C]52[/C][C]10.5837168732036[/C][/ROW]
[ROW][C]53[/C][C]11.2619923284771[/C][/ROW]
[ROW][C]54[/C][C]11.7938047562808[/C][/ROW]
[ROW][C]55[/C][C]11.9421350978038[/C][/ROW]
[ROW][C]56[/C][C]12.5491395303499[/C][/ROW]
[ROW][C]57[/C][C]12.6483498911346[/C][/ROW]
[ROW][C]58[/C][C]13.5279231618522[/C][/ROW]
[ROW][C]59[/C][C]13.8356734184559[/C][/ROW]
[ROW][C]60[/C][C]15.1110766450969[/C][/ROW]
[ROW][C]61[/C][C]15.5916168135707[/C][/ROW]
[ROW][C]62[/C][C]15.6039825271333[/C][/ROW]
[ROW][C]63[/C][C]15.6365237686499[/C][/ROW]
[ROW][C]64[/C][C]15.7362901431145[/C][/ROW]
[ROW][C]65[/C][C]15.7733132916750[/C][/ROW]
[ROW][C]66[/C][C]16.5647783306946[/C][/ROW]
[ROW][C]67[/C][C]16.7470136088330[/C][/ROW]
[ROW][C]68[/C][C]18.8737323321891[/C][/ROW]
[ROW][C]69[/C][C]19.2338059517308[/C][/ROW]
[ROW][C]70[/C][C]20.6816413748388[/C][/ROW]
[ROW][C]71[/C][C]22.1789455318448[/C][/ROW]
[ROW][C]72[/C][C]28.3437022521028[/C][/ROW]
[ROW][C]73[/C][C]31.6701041195941[/C][/ROW]
[ROW][C]74[/C][C]32.1170063016619[/C][/ROW]
[ROW][C]75[/C][C]36.0033824476328[/C][/ROW]
[ROW][C]76[/C][C]36.4367641574306[/C][/ROW]
[ROW][C]77[/C][C]47.5669959332961[/C][/ROW]
[ROW][C]78[/C][C]48.6917654280357[/C][/ROW]
[ROW][C]79[/C][C]53.2202756023082[/C][/ROW]
[ROW][C]80[/C][C]55.4387816941343[/C][/ROW]
[ROW][C]81[/C][C]55.6589575228827[/C][/ROW]
[ROW][C]82[/C][C]61.2391050795343[/C][/ROW]
[ROW][C]83[/C][C]65.811220583524[/C][/ROW]
[ROW][C]84[/C][C]87.6768310697424[/C][/ROW]
[ROW][C]85[/C][C]114.555473050499[/C][/ROW]
[ROW][C]86[/C][C]117.512664653131[/C][/ROW]
[ROW][C]87[/C][C]123.684787261690[/C][/ROW]
[ROW][C]88[/C][C]262.700122232823[/C][/ROW]
[ROW][C]89[/C][C]414.258583858880[/C][/ROW]
[ROW][C]90[/C][C]590.132618693753[/C][/ROW]
[ROW][C]91[/C][C]841.509111436755[/C][/ROW]
[ROW][C]92[/C][C]1792.30259733093[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14368&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14368&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.21243556529822
21.24498995979887
31.54443592435441
41.78325545001271
52.04450483002609
62.43926218353009
72.46981780704568
83.11929479209644
93.23573793747269
103.38969025133566
113.53977400408558
123.54118624192515
133.80525951808809
143.84057287393430
154.03236903073119
164.34280824575606
174.36463056855906
184.53479329250311
194.6108567533594
204.79270278652871
215.00199960015992
225.23354564325182
235.3851648071345
245.43852016366402
255.46443043692569
265.52630075185923
275.60089278597618
286.01165534607565
296.14848908193544
306.30015494150373
316.34113554499508
326.34428877022476
336.64153596692814
346.72829844760175
356.74759216313494
367.14002801114953
377.23611862669545
387.636098480245
398.0226709116002
408.62322445492405
418.63828684727447
428.75099994286369
438.77742123227844
449.10251155717131
459.31772504423692
4610.0140876797810
4710.1151756434954
4810.1653410694109
4910.2358534713358
5010.3008627304711
5110.4509329034980
5210.5837168732036
5311.2619923284771
5411.7938047562808
5511.9421350978038
5612.5491395303499
5712.6483498911346
5813.5279231618522
5913.8356734184559
6015.1110766450969
6115.5916168135707
6215.6039825271333
6315.6365237686499
6415.7362901431145
6515.7733132916750
6616.5647783306946
6716.7470136088330
6818.8737323321891
6919.2338059517308
7020.6816413748388
7122.1789455318448
7228.3437022521028
7331.6701041195941
7432.1170063016619
7536.0033824476328
7636.4367641574306
7747.5669959332961
7848.6917654280357
7953.2202756023082
8055.4387816941343
8155.6589575228827
8261.2391050795343
8365.811220583524
8487.6768310697424
85114.555473050499
86117.512664653131
87123.684787261690
88262.700122232823
89414.258583858880
90590.132618693753
91841.509111436755
921792.30259733093


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 50 ; par2 = 50 ; par3 = 0 ; par4 = 0 ; par5 = 0 ; par6 = Y ; par7 = Y ;
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')
}