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 03:18:20 -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/crak8tq7ygbywsa1193912397.htm/, Retrieved Tue, 07 May 2024 14:32:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=46, Retrieved Tue, 07 May 2024 14:32:23 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Dendrogram Werklo...] [2007-11-01 10:18:20] [65108f21b143a71c6470aac06bd65b08] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
513	140	373	6,3	7,8	8,5
503	132	371	7,5	7,9	8,5
471	117	354	7,4	7,9	8,5
471	114	357	7,4	7,9	8,6
476	113	363	7,4	7,9	8,7
475	110	364	7,4	8	8,7
470	107	363	7,4	8	8,7
461	103	358	7,2	8,1	8,8
455	98	357	7,2	8,1	8,8
456	98	357	7,2	8,1	8,8
517	137	380	7,5	8,2	8,9
525	148	378	7,4	8,3	8,9
523	147	376	7,4	8,3	8,9
519	139	380	8	8,3	8,9
509	130	379	8,1	8,4	8,9
512	128	384	8,1	8,4	8,9
519	127	392	8,1	8,5	8,9
517	123	394	8,1	8,6	8,9
510	118	392	8,1	8,6	8,9
509	114	396	7,9	8,6	8,9
501	108	392	7,9	8,7	8,9
507	111	396	8	8,7	9
569	151	419	8,1	8,7	9
580	159	421	8,1	8,7	9
578	158	420	8,1	8,7	9
565	148	418	8,5	8,7	9
547	138	410	8,5	8,7	9
555	137	418	8,6	8,8	9
562	136	426	8,4	8,8	9,1
561	133	428	8,4	8,8	9,1
555	126	430	8,4	8,8	9,1
544	120	424	7,7	8,8	9,1
537	114	423	7,8	8,9	9,1
543	116	427	7,9	8,9	9,1
594	153	441	8,7	8,8	9
611	162	449	8,8	8,8	9
613	161	452	8,8	8,8	9
611	149	462	8,5	8,8	8,9
594	139	455	8,5	8,7	8,9
595	135	461	8,5	8,7	8,9
591	130	461	8,4	8,7	8,8
589	127	463	8,5	8,8	8,9
584	122	462	8,5	8,8	8,9
573	117	456	8,3	8,7	8,8
567	112	455	8,4	8,7	8,8
569	113	456	8,4	8,6	8,8
621	149	472	8,4	8,5	8,6
629	157	472	8,4	8,4	8,5
628	157	471	8,4	8,3	8,5
612	147	465	8,5	8,3	8,5
595	137	459	8,5	8,4	8,5
597	132	465	8,5	8,4	8,5
593	125	468	8,5	8,3	8,3
590	123	467	8,5	8,2	8,2
580	117	463	8,5	8,1	8,2
574	114	460	8,3	8	8,1
573	111	462	8,3	7,9	8
573	112	461	8,4	7,9	7,9
620	144	476	8,2	7,8	7,9
626	150	476	8,2	7,8	7,8
620	149	471	8,1	7,7	7,8
588	134	453	8,1	7,7	7,6
566	123	443	8	7,6	7,5
557	116	442	7,8	7,5	7,5
561	117	444	7,9	7,4	7,3
549	111	438	7,8	7,2	7,2
532	105	427	7,7	7,1	7,1
526	102	424	7,9	7	6,9
511	95	416	7,8	7	6,9
499	93	406	7,7	6,9	6,8
555	124	431	7,7	6,9	6,8
565	130	434	7,6	6,9	6,7

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=46&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
21.41774468787578
31.42126704035519
41.83575597506858
52.44948974278318
62.45153013442625
72.87228132326901
82.87402157263998
93
103.31813200460741
113.60970912955601
123.6636015001403
133.74165738677394
143.74165738677394
153.74432904536981
163.79341534767813
173.79605057922046
184.12674205639267
194.24381903478459
204.58911756223351
214.9
225.10392006206994
235.11468474101777
246.16441400296898
256.5559133612335
266.96916097086164
277.35459040327876
288.20499968143262
298.36483825695582
308.47618277286317
318.49525626015108
328.8877835623669
339.47114641755577
349.67695753503644
3510.0619037634363
3611.1445859976117
3711.3552461467595
3811.3586971083835
3911.6433899359876
4011.9482355988177
4112.4462514140354
4213.0252661216273
4314.9343455091011
4415.6577399982725
4515.7489682201724
4618.1433098627068
4719.1951183497335
4820.7513761316205
4922.5374167090944
5024.4621054299691
5125.3509061471661
5226.5011588292378
5328.2192898928486
5433.3987602591186
5534.306460917453
5636.5184066969223
5739.3813039956385
5840.4753740738618
5941.9031305785626
6057.8436996912334
6165.3233336675221
6270.3800064419484
6387.587891435695
64109.785510098504
65137.586626342226
66162.683252764985
67171.307923903678
68386.19346994261
69434.779282326499
70723.40156523966
712234.56108155662

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1 \tabularnewline
2 & 1.41774468787578 \tabularnewline
3 & 1.42126704035519 \tabularnewline
4 & 1.83575597506858 \tabularnewline
5 & 2.44948974278318 \tabularnewline
6 & 2.45153013442625 \tabularnewline
7 & 2.87228132326901 \tabularnewline
8 & 2.87402157263998 \tabularnewline
9 & 3 \tabularnewline
10 & 3.31813200460741 \tabularnewline
11 & 3.60970912955601 \tabularnewline
12 & 3.6636015001403 \tabularnewline
13 & 3.74165738677394 \tabularnewline
14 & 3.74165738677394 \tabularnewline
15 & 3.74432904536981 \tabularnewline
16 & 3.79341534767813 \tabularnewline
17 & 3.79605057922046 \tabularnewline
18 & 4.12674205639267 \tabularnewline
19 & 4.24381903478459 \tabularnewline
20 & 4.58911756223351 \tabularnewline
21 & 4.9 \tabularnewline
22 & 5.10392006206994 \tabularnewline
23 & 5.11468474101777 \tabularnewline
24 & 6.16441400296898 \tabularnewline
25 & 6.5559133612335 \tabularnewline
26 & 6.96916097086164 \tabularnewline
27 & 7.35459040327876 \tabularnewline
28 & 8.20499968143262 \tabularnewline
29 & 8.36483825695582 \tabularnewline
30 & 8.47618277286317 \tabularnewline
31 & 8.49525626015108 \tabularnewline
32 & 8.8877835623669 \tabularnewline
33 & 9.47114641755577 \tabularnewline
34 & 9.67695753503644 \tabularnewline
35 & 10.0619037634363 \tabularnewline
36 & 11.1445859976117 \tabularnewline
37 & 11.3552461467595 \tabularnewline
38 & 11.3586971083835 \tabularnewline
39 & 11.6433899359876 \tabularnewline
40 & 11.9482355988177 \tabularnewline
41 & 12.4462514140354 \tabularnewline
42 & 13.0252661216273 \tabularnewline
43 & 14.9343455091011 \tabularnewline
44 & 15.6577399982725 \tabularnewline
45 & 15.7489682201724 \tabularnewline
46 & 18.1433098627068 \tabularnewline
47 & 19.1951183497335 \tabularnewline
48 & 20.7513761316205 \tabularnewline
49 & 22.5374167090944 \tabularnewline
50 & 24.4621054299691 \tabularnewline
51 & 25.3509061471661 \tabularnewline
52 & 26.5011588292378 \tabularnewline
53 & 28.2192898928486 \tabularnewline
54 & 33.3987602591186 \tabularnewline
55 & 34.306460917453 \tabularnewline
56 & 36.5184066969223 \tabularnewline
57 & 39.3813039956385 \tabularnewline
58 & 40.4753740738618 \tabularnewline
59 & 41.9031305785626 \tabularnewline
60 & 57.8436996912334 \tabularnewline
61 & 65.3233336675221 \tabularnewline
62 & 70.3800064419484 \tabularnewline
63 & 87.587891435695 \tabularnewline
64 & 109.785510098504 \tabularnewline
65 & 137.586626342226 \tabularnewline
66 & 162.683252764985 \tabularnewline
67 & 171.307923903678 \tabularnewline
68 & 386.19346994261 \tabularnewline
69 & 434.779282326499 \tabularnewline
70 & 723.40156523966 \tabularnewline
71 & 2234.56108155662 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=46&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1[/C][/ROW]
[ROW][C]2[/C][C]1.41774468787578[/C][/ROW]
[ROW][C]3[/C][C]1.42126704035519[/C][/ROW]
[ROW][C]4[/C][C]1.83575597506858[/C][/ROW]
[ROW][C]5[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]6[/C][C]2.45153013442625[/C][/ROW]
[ROW][C]7[/C][C]2.87228132326901[/C][/ROW]
[ROW][C]8[/C][C]2.87402157263998[/C][/ROW]
[ROW][C]9[/C][C]3[/C][/ROW]
[ROW][C]10[/C][C]3.31813200460741[/C][/ROW]
[ROW][C]11[/C][C]3.60970912955601[/C][/ROW]
[ROW][C]12[/C][C]3.6636015001403[/C][/ROW]
[ROW][C]13[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]14[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]15[/C][C]3.74432904536981[/C][/ROW]
[ROW][C]16[/C][C]3.79341534767813[/C][/ROW]
[ROW][C]17[/C][C]3.79605057922046[/C][/ROW]
[ROW][C]18[/C][C]4.12674205639267[/C][/ROW]
[ROW][C]19[/C][C]4.24381903478459[/C][/ROW]
[ROW][C]20[/C][C]4.58911756223351[/C][/ROW]
[ROW][C]21[/C][C]4.9[/C][/ROW]
[ROW][C]22[/C][C]5.10392006206994[/C][/ROW]
[ROW][C]23[/C][C]5.11468474101777[/C][/ROW]
[ROW][C]24[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]25[/C][C]6.5559133612335[/C][/ROW]
[ROW][C]26[/C][C]6.96916097086164[/C][/ROW]
[ROW][C]27[/C][C]7.35459040327876[/C][/ROW]
[ROW][C]28[/C][C]8.20499968143262[/C][/ROW]
[ROW][C]29[/C][C]8.36483825695582[/C][/ROW]
[ROW][C]30[/C][C]8.47618277286317[/C][/ROW]
[ROW][C]31[/C][C]8.49525626015108[/C][/ROW]
[ROW][C]32[/C][C]8.8877835623669[/C][/ROW]
[ROW][C]33[/C][C]9.47114641755577[/C][/ROW]
[ROW][C]34[/C][C]9.67695753503644[/C][/ROW]
[ROW][C]35[/C][C]10.0619037634363[/C][/ROW]
[ROW][C]36[/C][C]11.1445859976117[/C][/ROW]
[ROW][C]37[/C][C]11.3552461467595[/C][/ROW]
[ROW][C]38[/C][C]11.3586971083835[/C][/ROW]
[ROW][C]39[/C][C]11.6433899359876[/C][/ROW]
[ROW][C]40[/C][C]11.9482355988177[/C][/ROW]
[ROW][C]41[/C][C]12.4462514140354[/C][/ROW]
[ROW][C]42[/C][C]13.0252661216273[/C][/ROW]
[ROW][C]43[/C][C]14.9343455091011[/C][/ROW]
[ROW][C]44[/C][C]15.6577399982725[/C][/ROW]
[ROW][C]45[/C][C]15.7489682201724[/C][/ROW]
[ROW][C]46[/C][C]18.1433098627068[/C][/ROW]
[ROW][C]47[/C][C]19.1951183497335[/C][/ROW]
[ROW][C]48[/C][C]20.7513761316205[/C][/ROW]
[ROW][C]49[/C][C]22.5374167090944[/C][/ROW]
[ROW][C]50[/C][C]24.4621054299691[/C][/ROW]
[ROW][C]51[/C][C]25.3509061471661[/C][/ROW]
[ROW][C]52[/C][C]26.5011588292378[/C][/ROW]
[ROW][C]53[/C][C]28.2192898928486[/C][/ROW]
[ROW][C]54[/C][C]33.3987602591186[/C][/ROW]
[ROW][C]55[/C][C]34.306460917453[/C][/ROW]
[ROW][C]56[/C][C]36.5184066969223[/C][/ROW]
[ROW][C]57[/C][C]39.3813039956385[/C][/ROW]
[ROW][C]58[/C][C]40.4753740738618[/C][/ROW]
[ROW][C]59[/C][C]41.9031305785626[/C][/ROW]
[ROW][C]60[/C][C]57.8436996912334[/C][/ROW]
[ROW][C]61[/C][C]65.3233336675221[/C][/ROW]
[ROW][C]62[/C][C]70.3800064419484[/C][/ROW]
[ROW][C]63[/C][C]87.587891435695[/C][/ROW]
[ROW][C]64[/C][C]109.785510098504[/C][/ROW]
[ROW][C]65[/C][C]137.586626342226[/C][/ROW]
[ROW][C]66[/C][C]162.683252764985[/C][/ROW]
[ROW][C]67[/C][C]171.307923903678[/C][/ROW]
[ROW][C]68[/C][C]386.19346994261[/C][/ROW]
[ROW][C]69[/C][C]434.779282326499[/C][/ROW]
[ROW][C]70[/C][C]723.40156523966[/C][/ROW]
[ROW][C]71[/C][C]2234.56108155662[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=46&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=46&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
21.41774468787578
31.42126704035519
41.83575597506858
52.44948974278318
62.45153013442625
72.87228132326901
82.87402157263998
93
103.31813200460741
113.60970912955601
123.6636015001403
133.74165738677394
143.74165738677394
153.74432904536981
163.79341534767813
173.79605057922046
184.12674205639267
194.24381903478459
204.58911756223351
214.9
225.10392006206994
235.11468474101777
246.16441400296898
256.5559133612335
266.96916097086164
277.35459040327876
288.20499968143262
298.36483825695582
308.47618277286317
318.49525626015108
328.8877835623669
339.47114641755577
349.67695753503644
3510.0619037634363
3611.1445859976117
3711.3552461467595
3811.3586971083835
3911.6433899359876
4011.9482355988177
4112.4462514140354
4213.0252661216273
4314.9343455091011
4415.6577399982725
4515.7489682201724
4618.1433098627068
4719.1951183497335
4820.7513761316205
4922.5374167090944
5024.4621054299691
5125.3509061471661
5226.5011588292378
5328.2192898928486
5433.3987602591186
5534.306460917453
5636.5184066969223
5739.3813039956385
5840.4753740738618
5941.9031305785626
6057.8436996912334
6165.3233336675221
6270.3800064419484
6387.587891435695
64109.785510098504
65137.586626342226
66162.683252764985
67171.307923903678
68386.19346994261
69434.779282326499
70723.40156523966
712234.56108155662






Summary of Cut Dendrogram
LabelHeight
113.7581914375638
216.0009895527329
316.6628704009843
416.7183159704824
517.7756174295016
618.2722999221347
719.9615764240537
822.0569716869746
928.0468358286635
1030.6186507017673
1134.079178922535
1241.5867415667419
1342.3352073831957
1454.7144148361512
1559.340674837684
1693.067358929262
17128.386903570717
18215.991229666212
19601.433675443861

\begin{tabular}{lllllllll}
\hline
Summary of Cut Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 13.7581914375638 \tabularnewline
2 & 16.0009895527329 \tabularnewline
3 & 16.6628704009843 \tabularnewline
4 & 16.7183159704824 \tabularnewline
5 & 17.7756174295016 \tabularnewline
6 & 18.2722999221347 \tabularnewline
7 & 19.9615764240537 \tabularnewline
8 & 22.0569716869746 \tabularnewline
9 & 28.0468358286635 \tabularnewline
10 & 30.6186507017673 \tabularnewline
11 & 34.079178922535 \tabularnewline
12 & 41.5867415667419 \tabularnewline
13 & 42.3352073831957 \tabularnewline
14 & 54.7144148361512 \tabularnewline
15 & 59.340674837684 \tabularnewline
16 & 93.067358929262 \tabularnewline
17 & 128.386903570717 \tabularnewline
18 & 215.991229666212 \tabularnewline
19 & 601.433675443861 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=46&T=2

[TABLE]
[ROW][C]Summary of Cut Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]13.7581914375638[/C][/ROW]
[ROW][C]2[/C][C]16.0009895527329[/C][/ROW]
[ROW][C]3[/C][C]16.6628704009843[/C][/ROW]
[ROW][C]4[/C][C]16.7183159704824[/C][/ROW]
[ROW][C]5[/C][C]17.7756174295016[/C][/ROW]
[ROW][C]6[/C][C]18.2722999221347[/C][/ROW]
[ROW][C]7[/C][C]19.9615764240537[/C][/ROW]
[ROW][C]8[/C][C]22.0569716869746[/C][/ROW]
[ROW][C]9[/C][C]28.0468358286635[/C][/ROW]
[ROW][C]10[/C][C]30.6186507017673[/C][/ROW]
[ROW][C]11[/C][C]34.079178922535[/C][/ROW]
[ROW][C]12[/C][C]41.5867415667419[/C][/ROW]
[ROW][C]13[/C][C]42.3352073831957[/C][/ROW]
[ROW][C]14[/C][C]54.7144148361512[/C][/ROW]
[ROW][C]15[/C][C]59.340674837684[/C][/ROW]
[ROW][C]16[/C][C]93.067358929262[/C][/ROW]
[ROW][C]17[/C][C]128.386903570717[/C][/ROW]
[ROW][C]18[/C][C]215.991229666212[/C][/ROW]
[ROW][C]19[/C][C]601.433675443861[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=46&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=46&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
113.7581914375638
216.0009895527329
316.6628704009843
416.7183159704824
517.7756174295016
618.2722999221347
719.9615764240537
822.0569716869746
928.0468358286635
1030.6186507017673
1134.079178922535
1241.5867415667419
1342.3352073831957
1454.7144148361512
1559.340674837684
1693.067358929262
17128.386903570717
18215.991229666212
19601.433675443861


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