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 03:12:22 -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/3dbhx937628s2yl1194257494.htm/, Retrieved Sun, 28 Apr 2024 20:04:34 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=409, Retrieved Sun, 28 Apr 2024 20:04:34 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [opdr 4 q2] [2007-11-05 10:12:22] [0c12eff582f43eaf43ae2f09e879befe] [Current]
Feedback Forum

Post a new message

Dataset

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

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=409&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.0932737905308925
20.132287565553233
30.192873015219849
40.223830292855996
50.241246761636290
60.271108834234523
70.29949958263743
80.317962261911684
90.334428631382339
100.335708206631887
110.336749164809658
120.342490875790878
130.387169213652126
140.399874980462637
150.402492235949963
160.423438307194805
170.427901857906695
180.430581002832221
190.464865571966776
200.468934963507739
210.476982278767515
220.487945044257233
230.509850396423737
240.525620748250331
250.529905651979672
260.530565735795285
270.581713292969237
280.631774772905535
290.634034699365903
300.648577076857977
310.651229606206597
320.662640772349327
330.66887966032763
340.675615940718174
350.682788400604461
360.700499821556008
370.701355829803949
380.70866070866107
390.72725511342307
400.728628849277879
410.73932401557097
420.770068401848224
430.775114041702953
440.789213895019265
450.790569415042089
460.87476948236093
470.895631120704817
480.896930059486853
490.905615946026887
500.952158678866097
510.982134002514492
520.993400978785342
530.998287697681918
541.00289580715047
551.05855923917272
561.06805644813109
571.14202726120121
581.19276725267891
591.21127983953589
601.27774522245076
611.28662759632268
621.36937584873134
631.3747741900212
641.43272709512621
651.57809583153990
661.64931679875173
671.71855568619222
681.97131627083975
692.00284658245665
702.24492661574405
712.33907058716814
722.36252230774184
732.39686588400049
742.77902356129487
752.96298859056425
763.29095060994493
773.93224420812851
784.10922383106238
794.19766221723655
804.3354098598628
815.56688477000092
825.95361628067893
836.26554264877576
8410.0302969509425
8510.8948116458561
8613.2890158967772
8714.3210913697586
8834.0009672003357
8948.4865205353351
9079.5701360346146
91145.492403118318
92394.560827491326

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0932737905308925 \tabularnewline
2 & 0.132287565553233 \tabularnewline
3 & 0.192873015219849 \tabularnewline
4 & 0.223830292855996 \tabularnewline
5 & 0.241246761636290 \tabularnewline
6 & 0.271108834234523 \tabularnewline
7 & 0.29949958263743 \tabularnewline
8 & 0.317962261911684 \tabularnewline
9 & 0.334428631382339 \tabularnewline
10 & 0.335708206631887 \tabularnewline
11 & 0.336749164809658 \tabularnewline
12 & 0.342490875790878 \tabularnewline
13 & 0.387169213652126 \tabularnewline
14 & 0.399874980462637 \tabularnewline
15 & 0.402492235949963 \tabularnewline
16 & 0.423438307194805 \tabularnewline
17 & 0.427901857906695 \tabularnewline
18 & 0.430581002832221 \tabularnewline
19 & 0.464865571966776 \tabularnewline
20 & 0.468934963507739 \tabularnewline
21 & 0.476982278767515 \tabularnewline
22 & 0.487945044257233 \tabularnewline
23 & 0.509850396423737 \tabularnewline
24 & 0.525620748250331 \tabularnewline
25 & 0.529905651979672 \tabularnewline
26 & 0.530565735795285 \tabularnewline
27 & 0.581713292969237 \tabularnewline
28 & 0.631774772905535 \tabularnewline
29 & 0.634034699365903 \tabularnewline
30 & 0.648577076857977 \tabularnewline
31 & 0.651229606206597 \tabularnewline
32 & 0.662640772349327 \tabularnewline
33 & 0.66887966032763 \tabularnewline
34 & 0.675615940718174 \tabularnewline
35 & 0.682788400604461 \tabularnewline
36 & 0.700499821556008 \tabularnewline
37 & 0.701355829803949 \tabularnewline
38 & 0.70866070866107 \tabularnewline
39 & 0.72725511342307 \tabularnewline
40 & 0.728628849277879 \tabularnewline
41 & 0.73932401557097 \tabularnewline
42 & 0.770068401848224 \tabularnewline
43 & 0.775114041702953 \tabularnewline
44 & 0.789213895019265 \tabularnewline
45 & 0.790569415042089 \tabularnewline
46 & 0.87476948236093 \tabularnewline
47 & 0.895631120704817 \tabularnewline
48 & 0.896930059486853 \tabularnewline
49 & 0.905615946026887 \tabularnewline
50 & 0.952158678866097 \tabularnewline
51 & 0.982134002514492 \tabularnewline
52 & 0.993400978785342 \tabularnewline
53 & 0.998287697681918 \tabularnewline
54 & 1.00289580715047 \tabularnewline
55 & 1.05855923917272 \tabularnewline
56 & 1.06805644813109 \tabularnewline
57 & 1.14202726120121 \tabularnewline
58 & 1.19276725267891 \tabularnewline
59 & 1.21127983953589 \tabularnewline
60 & 1.27774522245076 \tabularnewline
61 & 1.28662759632268 \tabularnewline
62 & 1.36937584873134 \tabularnewline
63 & 1.3747741900212 \tabularnewline
64 & 1.43272709512621 \tabularnewline
65 & 1.57809583153990 \tabularnewline
66 & 1.64931679875173 \tabularnewline
67 & 1.71855568619222 \tabularnewline
68 & 1.97131627083975 \tabularnewline
69 & 2.00284658245665 \tabularnewline
70 & 2.24492661574405 \tabularnewline
71 & 2.33907058716814 \tabularnewline
72 & 2.36252230774184 \tabularnewline
73 & 2.39686588400049 \tabularnewline
74 & 2.77902356129487 \tabularnewline
75 & 2.96298859056425 \tabularnewline
76 & 3.29095060994493 \tabularnewline
77 & 3.93224420812851 \tabularnewline
78 & 4.10922383106238 \tabularnewline
79 & 4.19766221723655 \tabularnewline
80 & 4.3354098598628 \tabularnewline
81 & 5.56688477000092 \tabularnewline
82 & 5.95361628067893 \tabularnewline
83 & 6.26554264877576 \tabularnewline
84 & 10.0302969509425 \tabularnewline
85 & 10.8948116458561 \tabularnewline
86 & 13.2890158967772 \tabularnewline
87 & 14.3210913697586 \tabularnewline
88 & 34.0009672003357 \tabularnewline
89 & 48.4865205353351 \tabularnewline
90 & 79.5701360346146 \tabularnewline
91 & 145.492403118318 \tabularnewline
92 & 394.560827491326 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=409&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0932737905308925[/C][/ROW]
[ROW][C]2[/C][C]0.132287565553233[/C][/ROW]
[ROW][C]3[/C][C]0.192873015219849[/C][/ROW]
[ROW][C]4[/C][C]0.223830292855996[/C][/ROW]
[ROW][C]5[/C][C]0.241246761636290[/C][/ROW]
[ROW][C]6[/C][C]0.271108834234523[/C][/ROW]
[ROW][C]7[/C][C]0.29949958263743[/C][/ROW]
[ROW][C]8[/C][C]0.317962261911684[/C][/ROW]
[ROW][C]9[/C][C]0.334428631382339[/C][/ROW]
[ROW][C]10[/C][C]0.335708206631887[/C][/ROW]
[ROW][C]11[/C][C]0.336749164809658[/C][/ROW]
[ROW][C]12[/C][C]0.342490875790878[/C][/ROW]
[ROW][C]13[/C][C]0.387169213652126[/C][/ROW]
[ROW][C]14[/C][C]0.399874980462637[/C][/ROW]
[ROW][C]15[/C][C]0.402492235949963[/C][/ROW]
[ROW][C]16[/C][C]0.423438307194805[/C][/ROW]
[ROW][C]17[/C][C]0.427901857906695[/C][/ROW]
[ROW][C]18[/C][C]0.430581002832221[/C][/ROW]
[ROW][C]19[/C][C]0.464865571966776[/C][/ROW]
[ROW][C]20[/C][C]0.468934963507739[/C][/ROW]
[ROW][C]21[/C][C]0.476982278767515[/C][/ROW]
[ROW][C]22[/C][C]0.487945044257233[/C][/ROW]
[ROW][C]23[/C][C]0.509850396423737[/C][/ROW]
[ROW][C]24[/C][C]0.525620748250331[/C][/ROW]
[ROW][C]25[/C][C]0.529905651979672[/C][/ROW]
[ROW][C]26[/C][C]0.530565735795285[/C][/ROW]
[ROW][C]27[/C][C]0.581713292969237[/C][/ROW]
[ROW][C]28[/C][C]0.631774772905535[/C][/ROW]
[ROW][C]29[/C][C]0.634034699365903[/C][/ROW]
[ROW][C]30[/C][C]0.648577076857977[/C][/ROW]
[ROW][C]31[/C][C]0.651229606206597[/C][/ROW]
[ROW][C]32[/C][C]0.662640772349327[/C][/ROW]
[ROW][C]33[/C][C]0.66887966032763[/C][/ROW]
[ROW][C]34[/C][C]0.675615940718174[/C][/ROW]
[ROW][C]35[/C][C]0.682788400604461[/C][/ROW]
[ROW][C]36[/C][C]0.700499821556008[/C][/ROW]
[ROW][C]37[/C][C]0.701355829803949[/C][/ROW]
[ROW][C]38[/C][C]0.70866070866107[/C][/ROW]
[ROW][C]39[/C][C]0.72725511342307[/C][/ROW]
[ROW][C]40[/C][C]0.728628849277879[/C][/ROW]
[ROW][C]41[/C][C]0.73932401557097[/C][/ROW]
[ROW][C]42[/C][C]0.770068401848224[/C][/ROW]
[ROW][C]43[/C][C]0.775114041702953[/C][/ROW]
[ROW][C]44[/C][C]0.789213895019265[/C][/ROW]
[ROW][C]45[/C][C]0.790569415042089[/C][/ROW]
[ROW][C]46[/C][C]0.87476948236093[/C][/ROW]
[ROW][C]47[/C][C]0.895631120704817[/C][/ROW]
[ROW][C]48[/C][C]0.896930059486853[/C][/ROW]
[ROW][C]49[/C][C]0.905615946026887[/C][/ROW]
[ROW][C]50[/C][C]0.952158678866097[/C][/ROW]
[ROW][C]51[/C][C]0.982134002514492[/C][/ROW]
[ROW][C]52[/C][C]0.993400978785342[/C][/ROW]
[ROW][C]53[/C][C]0.998287697681918[/C][/ROW]
[ROW][C]54[/C][C]1.00289580715047[/C][/ROW]
[ROW][C]55[/C][C]1.05855923917272[/C][/ROW]
[ROW][C]56[/C][C]1.06805644813109[/C][/ROW]
[ROW][C]57[/C][C]1.14202726120121[/C][/ROW]
[ROW][C]58[/C][C]1.19276725267891[/C][/ROW]
[ROW][C]59[/C][C]1.21127983953589[/C][/ROW]
[ROW][C]60[/C][C]1.27774522245076[/C][/ROW]
[ROW][C]61[/C][C]1.28662759632268[/C][/ROW]
[ROW][C]62[/C][C]1.36937584873134[/C][/ROW]
[ROW][C]63[/C][C]1.3747741900212[/C][/ROW]
[ROW][C]64[/C][C]1.43272709512621[/C][/ROW]
[ROW][C]65[/C][C]1.57809583153990[/C][/ROW]
[ROW][C]66[/C][C]1.64931679875173[/C][/ROW]
[ROW][C]67[/C][C]1.71855568619222[/C][/ROW]
[ROW][C]68[/C][C]1.97131627083975[/C][/ROW]
[ROW][C]69[/C][C]2.00284658245665[/C][/ROW]
[ROW][C]70[/C][C]2.24492661574405[/C][/ROW]
[ROW][C]71[/C][C]2.33907058716814[/C][/ROW]
[ROW][C]72[/C][C]2.36252230774184[/C][/ROW]
[ROW][C]73[/C][C]2.39686588400049[/C][/ROW]
[ROW][C]74[/C][C]2.77902356129487[/C][/ROW]
[ROW][C]75[/C][C]2.96298859056425[/C][/ROW]
[ROW][C]76[/C][C]3.29095060994493[/C][/ROW]
[ROW][C]77[/C][C]3.93224420812851[/C][/ROW]
[ROW][C]78[/C][C]4.10922383106238[/C][/ROW]
[ROW][C]79[/C][C]4.19766221723655[/C][/ROW]
[ROW][C]80[/C][C]4.3354098598628[/C][/ROW]
[ROW][C]81[/C][C]5.56688477000092[/C][/ROW]
[ROW][C]82[/C][C]5.95361628067893[/C][/ROW]
[ROW][C]83[/C][C]6.26554264877576[/C][/ROW]
[ROW][C]84[/C][C]10.0302969509425[/C][/ROW]
[ROW][C]85[/C][C]10.8948116458561[/C][/ROW]
[ROW][C]86[/C][C]13.2890158967772[/C][/ROW]
[ROW][C]87[/C][C]14.3210913697586[/C][/ROW]
[ROW][C]88[/C][C]34.0009672003357[/C][/ROW]
[ROW][C]89[/C][C]48.4865205353351[/C][/ROW]
[ROW][C]90[/C][C]79.5701360346146[/C][/ROW]
[ROW][C]91[/C][C]145.492403118318[/C][/ROW]
[ROW][C]92[/C][C]394.560827491326[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=409&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=409&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.0932737905308925
20.132287565553233
30.192873015219849
40.223830292855996
50.241246761636290
60.271108834234523
70.29949958263743
80.317962261911684
90.334428631382339
100.335708206631887
110.336749164809658
120.342490875790878
130.387169213652126
140.399874980462637
150.402492235949963
160.423438307194805
170.427901857906695
180.430581002832221
190.464865571966776
200.468934963507739
210.476982278767515
220.487945044257233
230.509850396423737
240.525620748250331
250.529905651979672
260.530565735795285
270.581713292969237
280.631774772905535
290.634034699365903
300.648577076857977
310.651229606206597
320.662640772349327
330.66887966032763
340.675615940718174
350.682788400604461
360.700499821556008
370.701355829803949
380.70866070866107
390.72725511342307
400.728628849277879
410.73932401557097
420.770068401848224
430.775114041702953
440.789213895019265
450.790569415042089
460.87476948236093
470.895631120704817
480.896930059486853
490.905615946026887
500.952158678866097
510.982134002514492
520.993400978785342
530.998287697681918
541.00289580715047
551.05855923917272
561.06805644813109
571.14202726120121
581.19276725267891
591.21127983953589
601.27774522245076
611.28662759632268
621.36937584873134
631.3747741900212
641.43272709512621
651.57809583153990
661.64931679875173
671.71855568619222
681.97131627083975
692.00284658245665
702.24492661574405
712.33907058716814
722.36252230774184
732.39686588400049
742.77902356129487
752.96298859056425
763.29095060994493
773.93224420812851
784.10922383106238
794.19766221723655
804.3354098598628
815.56688477000092
825.95361628067893
836.26554264877576
8410.0302969509425
8510.8948116458561
8613.2890158967772
8714.3210913697586
8834.0009672003357
8948.4865205353351
9079.5701360346146
91145.492403118318
92394.560827491326


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