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 computationSat, 03 Nov 2007 03:04:34 -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/03/xao14brzm7vunkr1194084212.htm/, Retrieved Sat, 04 May 2024 20:35:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=253, Retrieved Sat, 04 May 2024 20:35:16 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Various EDA topic...] [2007-11-03 10:04:34] [77c9c0d97755c69877fabe95ec1f485a] [Current]
Feedback Forum

Post a new message

Dataset

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

Tables (Output of Computation)





Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=253&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=253&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=253&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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
10.130766968306223
20.171755640373177
30.178325545001261
40.194935886896180
50.203469899493762
60.238746727726265
70.255734237050882
80.276043474836846
90.293768616431372
100.303973683071421
110.304959013639532
120.311929479209639
130.316543835826895
140.330302891298271
150.351852241715181
160.351994318135959
170.364828726939084
180.369052841744922
190.372692903071683
200.373229152130431
210.378153408023786
220.387405069332897
230.393446311458127
240.397240481320821
250.404969134626328
260.411946598480926
270.429185274677503
280.431277173056959
290.436004587131837
300.449666543118341
310.451774279923069
320.462817458616243
330.478852795752521
340.487783318313371
350.508559886434628
360.51180233932589
370.517637330584877
380.524118307255142
390.56091018857521
400.573166176263019
410.588047617119556
420.614766282981192
430.647604054609399
440.65849585917573
450.677551375494143
460.717601896939927
470.765963445602991
480.769510210727266
490.786826540521206
500.8018896622614
510.808073761768816
520.830651362061792
530.873784870548815
540.917962496264222
550.952723367665576
560.961652972325255
570.962849556545336
580.97286865387
590.992305849553476
601.18760587778932
611.25763507628243
621.31707788529777
631.34443918446295
641.36923593597606
651.41470282977280
661.42941643411828
671.52937803354863
681.58440913836598
691.60538874416135
701.68784639877682
711.85468098568693
722.09496903749675
732.19045739986997
742.39695347159423
752.45638699762216
762.85945517230632
772.87132856814416
783.74449652002009
794.60316542400409
805.11048099530347
816.14028005209879
826.18512306326494
837.54924490825187
848.6510723223087
858.79775785636548
8620.6690647872988
8724.7131488139645
8828.6642567954587
8959.7307523786856
9071.8583966588585
91157.16024566812
92411.100644802032

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.130766968306223 \tabularnewline
2 & 0.171755640373177 \tabularnewline
3 & 0.178325545001261 \tabularnewline
4 & 0.194935886896180 \tabularnewline
5 & 0.203469899493762 \tabularnewline
6 & 0.238746727726265 \tabularnewline
7 & 0.255734237050882 \tabularnewline
8 & 0.276043474836846 \tabularnewline
9 & 0.293768616431372 \tabularnewline
10 & 0.303973683071421 \tabularnewline
11 & 0.304959013639532 \tabularnewline
12 & 0.311929479209639 \tabularnewline
13 & 0.316543835826895 \tabularnewline
14 & 0.330302891298271 \tabularnewline
15 & 0.351852241715181 \tabularnewline
16 & 0.351994318135959 \tabularnewline
17 & 0.364828726939084 \tabularnewline
18 & 0.369052841744922 \tabularnewline
19 & 0.372692903071683 \tabularnewline
20 & 0.373229152130431 \tabularnewline
21 & 0.378153408023786 \tabularnewline
22 & 0.387405069332897 \tabularnewline
23 & 0.393446311458127 \tabularnewline
24 & 0.397240481320821 \tabularnewline
25 & 0.404969134626328 \tabularnewline
26 & 0.411946598480926 \tabularnewline
27 & 0.429185274677503 \tabularnewline
28 & 0.431277173056959 \tabularnewline
29 & 0.436004587131837 \tabularnewline
30 & 0.449666543118341 \tabularnewline
31 & 0.451774279923069 \tabularnewline
32 & 0.462817458616243 \tabularnewline
33 & 0.478852795752521 \tabularnewline
34 & 0.487783318313371 \tabularnewline
35 & 0.508559886434628 \tabularnewline
36 & 0.51180233932589 \tabularnewline
37 & 0.517637330584877 \tabularnewline
38 & 0.524118307255142 \tabularnewline
39 & 0.56091018857521 \tabularnewline
40 & 0.573166176263019 \tabularnewline
41 & 0.588047617119556 \tabularnewline
42 & 0.614766282981192 \tabularnewline
43 & 0.647604054609399 \tabularnewline
44 & 0.65849585917573 \tabularnewline
45 & 0.677551375494143 \tabularnewline
46 & 0.717601896939927 \tabularnewline
47 & 0.765963445602991 \tabularnewline
48 & 0.769510210727266 \tabularnewline
49 & 0.786826540521206 \tabularnewline
50 & 0.8018896622614 \tabularnewline
51 & 0.808073761768816 \tabularnewline
52 & 0.830651362061792 \tabularnewline
53 & 0.873784870548815 \tabularnewline
54 & 0.917962496264222 \tabularnewline
55 & 0.952723367665576 \tabularnewline
56 & 0.961652972325255 \tabularnewline
57 & 0.962849556545336 \tabularnewline
58 & 0.97286865387 \tabularnewline
59 & 0.992305849553476 \tabularnewline
60 & 1.18760587778932 \tabularnewline
61 & 1.25763507628243 \tabularnewline
62 & 1.31707788529777 \tabularnewline
63 & 1.34443918446295 \tabularnewline
64 & 1.36923593597606 \tabularnewline
65 & 1.41470282977280 \tabularnewline
66 & 1.42941643411828 \tabularnewline
67 & 1.52937803354863 \tabularnewline
68 & 1.58440913836598 \tabularnewline
69 & 1.60538874416135 \tabularnewline
70 & 1.68784639877682 \tabularnewline
71 & 1.85468098568693 \tabularnewline
72 & 2.09496903749675 \tabularnewline
73 & 2.19045739986997 \tabularnewline
74 & 2.39695347159423 \tabularnewline
75 & 2.45638699762216 \tabularnewline
76 & 2.85945517230632 \tabularnewline
77 & 2.87132856814416 \tabularnewline
78 & 3.74449652002009 \tabularnewline
79 & 4.60316542400409 \tabularnewline
80 & 5.11048099530347 \tabularnewline
81 & 6.14028005209879 \tabularnewline
82 & 6.18512306326494 \tabularnewline
83 & 7.54924490825187 \tabularnewline
84 & 8.6510723223087 \tabularnewline
85 & 8.79775785636548 \tabularnewline
86 & 20.6690647872988 \tabularnewline
87 & 24.7131488139645 \tabularnewline
88 & 28.6642567954587 \tabularnewline
89 & 59.7307523786856 \tabularnewline
90 & 71.8583966588585 \tabularnewline
91 & 157.16024566812 \tabularnewline
92 & 411.100644802032 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=253&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.130766968306223[/C][/ROW]
[ROW][C]2[/C][C]0.171755640373177[/C][/ROW]
[ROW][C]3[/C][C]0.178325545001261[/C][/ROW]
[ROW][C]4[/C][C]0.194935886896180[/C][/ROW]
[ROW][C]5[/C][C]0.203469899493762[/C][/ROW]
[ROW][C]6[/C][C]0.238746727726265[/C][/ROW]
[ROW][C]7[/C][C]0.255734237050882[/C][/ROW]
[ROW][C]8[/C][C]0.276043474836846[/C][/ROW]
[ROW][C]9[/C][C]0.293768616431372[/C][/ROW]
[ROW][C]10[/C][C]0.303973683071421[/C][/ROW]
[ROW][C]11[/C][C]0.304959013639532[/C][/ROW]
[ROW][C]12[/C][C]0.311929479209639[/C][/ROW]
[ROW][C]13[/C][C]0.316543835826895[/C][/ROW]
[ROW][C]14[/C][C]0.330302891298271[/C][/ROW]
[ROW][C]15[/C][C]0.351852241715181[/C][/ROW]
[ROW][C]16[/C][C]0.351994318135959[/C][/ROW]
[ROW][C]17[/C][C]0.364828726939084[/C][/ROW]
[ROW][C]18[/C][C]0.369052841744922[/C][/ROW]
[ROW][C]19[/C][C]0.372692903071683[/C][/ROW]
[ROW][C]20[/C][C]0.373229152130431[/C][/ROW]
[ROW][C]21[/C][C]0.378153408023786[/C][/ROW]
[ROW][C]22[/C][C]0.387405069332897[/C][/ROW]
[ROW][C]23[/C][C]0.393446311458127[/C][/ROW]
[ROW][C]24[/C][C]0.397240481320821[/C][/ROW]
[ROW][C]25[/C][C]0.404969134626328[/C][/ROW]
[ROW][C]26[/C][C]0.411946598480926[/C][/ROW]
[ROW][C]27[/C][C]0.429185274677503[/C][/ROW]
[ROW][C]28[/C][C]0.431277173056959[/C][/ROW]
[ROW][C]29[/C][C]0.436004587131837[/C][/ROW]
[ROW][C]30[/C][C]0.449666543118341[/C][/ROW]
[ROW][C]31[/C][C]0.451774279923069[/C][/ROW]
[ROW][C]32[/C][C]0.462817458616243[/C][/ROW]
[ROW][C]33[/C][C]0.478852795752521[/C][/ROW]
[ROW][C]34[/C][C]0.487783318313371[/C][/ROW]
[ROW][C]35[/C][C]0.508559886434628[/C][/ROW]
[ROW][C]36[/C][C]0.51180233932589[/C][/ROW]
[ROW][C]37[/C][C]0.517637330584877[/C][/ROW]
[ROW][C]38[/C][C]0.524118307255142[/C][/ROW]
[ROW][C]39[/C][C]0.56091018857521[/C][/ROW]
[ROW][C]40[/C][C]0.573166176263019[/C][/ROW]
[ROW][C]41[/C][C]0.588047617119556[/C][/ROW]
[ROW][C]42[/C][C]0.614766282981192[/C][/ROW]
[ROW][C]43[/C][C]0.647604054609399[/C][/ROW]
[ROW][C]44[/C][C]0.65849585917573[/C][/ROW]
[ROW][C]45[/C][C]0.677551375494143[/C][/ROW]
[ROW][C]46[/C][C]0.717601896939927[/C][/ROW]
[ROW][C]47[/C][C]0.765963445602991[/C][/ROW]
[ROW][C]48[/C][C]0.769510210727266[/C][/ROW]
[ROW][C]49[/C][C]0.786826540521206[/C][/ROW]
[ROW][C]50[/C][C]0.8018896622614[/C][/ROW]
[ROW][C]51[/C][C]0.808073761768816[/C][/ROW]
[ROW][C]52[/C][C]0.830651362061792[/C][/ROW]
[ROW][C]53[/C][C]0.873784870548815[/C][/ROW]
[ROW][C]54[/C][C]0.917962496264222[/C][/ROW]
[ROW][C]55[/C][C]0.952723367665576[/C][/ROW]
[ROW][C]56[/C][C]0.961652972325255[/C][/ROW]
[ROW][C]57[/C][C]0.962849556545336[/C][/ROW]
[ROW][C]58[/C][C]0.97286865387[/C][/ROW]
[ROW][C]59[/C][C]0.992305849553476[/C][/ROW]
[ROW][C]60[/C][C]1.18760587778932[/C][/ROW]
[ROW][C]61[/C][C]1.25763507628243[/C][/ROW]
[ROW][C]62[/C][C]1.31707788529777[/C][/ROW]
[ROW][C]63[/C][C]1.34443918446295[/C][/ROW]
[ROW][C]64[/C][C]1.36923593597606[/C][/ROW]
[ROW][C]65[/C][C]1.41470282977280[/C][/ROW]
[ROW][C]66[/C][C]1.42941643411828[/C][/ROW]
[ROW][C]67[/C][C]1.52937803354863[/C][/ROW]
[ROW][C]68[/C][C]1.58440913836598[/C][/ROW]
[ROW][C]69[/C][C]1.60538874416135[/C][/ROW]
[ROW][C]70[/C][C]1.68784639877682[/C][/ROW]
[ROW][C]71[/C][C]1.85468098568693[/C][/ROW]
[ROW][C]72[/C][C]2.09496903749675[/C][/ROW]
[ROW][C]73[/C][C]2.19045739986997[/C][/ROW]
[ROW][C]74[/C][C]2.39695347159423[/C][/ROW]
[ROW][C]75[/C][C]2.45638699762216[/C][/ROW]
[ROW][C]76[/C][C]2.85945517230632[/C][/ROW]
[ROW][C]77[/C][C]2.87132856814416[/C][/ROW]
[ROW][C]78[/C][C]3.74449652002009[/C][/ROW]
[ROW][C]79[/C][C]4.60316542400409[/C][/ROW]
[ROW][C]80[/C][C]5.11048099530347[/C][/ROW]
[ROW][C]81[/C][C]6.14028005209879[/C][/ROW]
[ROW][C]82[/C][C]6.18512306326494[/C][/ROW]
[ROW][C]83[/C][C]7.54924490825187[/C][/ROW]
[ROW][C]84[/C][C]8.6510723223087[/C][/ROW]
[ROW][C]85[/C][C]8.79775785636548[/C][/ROW]
[ROW][C]86[/C][C]20.6690647872988[/C][/ROW]
[ROW][C]87[/C][C]24.7131488139645[/C][/ROW]
[ROW][C]88[/C][C]28.6642567954587[/C][/ROW]
[ROW][C]89[/C][C]59.7307523786856[/C][/ROW]
[ROW][C]90[/C][C]71.8583966588585[/C][/ROW]
[ROW][C]91[/C][C]157.16024566812[/C][/ROW]
[ROW][C]92[/C][C]411.100644802032[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=253&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=253&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.130766968306223
20.171755640373177
30.178325545001261
40.194935886896180
50.203469899493762
60.238746727726265
70.255734237050882
80.276043474836846
90.293768616431372
100.303973683071421
110.304959013639532
120.311929479209639
130.316543835826895
140.330302891298271
150.351852241715181
160.351994318135959
170.364828726939084
180.369052841744922
190.372692903071683
200.373229152130431
210.378153408023786
220.387405069332897
230.393446311458127
240.397240481320821
250.404969134626328
260.411946598480926
270.429185274677503
280.431277173056959
290.436004587131837
300.449666543118341
310.451774279923069
320.462817458616243
330.478852795752521
340.487783318313371
350.508559886434628
360.51180233932589
370.517637330584877
380.524118307255142
390.56091018857521
400.573166176263019
410.588047617119556
420.614766282981192
430.647604054609399
440.65849585917573
450.677551375494143
460.717601896939927
470.765963445602991
480.769510210727266
490.786826540521206
500.8018896622614
510.808073761768816
520.830651362061792
530.873784870548815
540.917962496264222
550.952723367665576
560.961652972325255
570.962849556545336
580.97286865387
590.992305849553476
601.18760587778932
611.25763507628243
621.31707788529777
631.34443918446295
641.36923593597606
651.41470282977280
661.42941643411828
671.52937803354863
681.58440913836598
691.60538874416135
701.68784639877682
711.85468098568693
722.09496903749675
732.19045739986997
742.39695347159423
752.45638699762216
762.85945517230632
772.87132856814416
783.74449652002009
794.60316542400409
805.11048099530347
816.14028005209879
826.18512306326494
837.54924490825187
848.6510723223087
858.79775785636548
8620.6690647872988
8724.7131488139645
8828.6642567954587
8959.7307523786856
9071.8583966588585
91157.16024566812
92411.100644802032


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