Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationWed, 12 Nov 2008 01:40:11 -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/t1226479266fx6sykdcwod7ih7.htm/, Retrieved Sun, 19 May 2024 11:29:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24015, Retrieved Sun, 19 May 2024 11:29:07 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact252
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Hierarchical Clustering] [Hierarchical clus...] [2008-11-12 08:40:11] [20dfa2578b2b18ce36fdb36ac12aedd7] [Current]
Feedback Forum
2008-11-15 15:15:30 [Maarten Van Gucht] [reply
De conclusie van de student is maar minimaal en zeer gaaf. Een dendogram is een tijdreeks die opgesplitst is in 2 delen. je bekomt dan een linker en een rechtercluster. De linkercluster heeft de eerste groep maanden en de rechtercluster heeft de rest van de maanden. Een dendogram gebruikten we exploratief (verkennend. Hoe langer de eindbenen, hoe meer de variabelen gemeenschappelijk hebben.
2008-11-19 16:53:46 [Steven Vercammen] [reply
Er wordt geen uitleg gegeven. Bij hierarchical clustering tekent men een dendrogram. Hierinis het zo dat de tijdreeks telkens wordt opgesplitst zodat er telkens kleine clusters ontstaan. Hier kan men uit afleiden welke observaties 'bij elkaar horen'. Het dendrogram wordt louter exploratief gebruikt.

Post a new message
Dataseries X:
106,7	97,3	93,5	104,8	124,9
110,2	101	94,7	105,6	132
125,9	113,2	112,9	118,3	151,4
100,1	101	99,2	89,9	108,9
106,4	105,7	105,6	90,2	121,3
114,8	113,9	113	107	123,4
81,3	86,4	83,1	64,5	90,3
87	96,5	81,1	92,6	79,3
104,2	103,3	96,9	95,8	117,2
108	114,9	104,3	94,3	116,9
105	105,8	97,7	91,2	120,8
94,5	94,2	102,6	86,3	96,1
92	98,4	89,9	77,6	100,8
95,9	99,4	96	82,5	105,3
108,8	108,8	112,7	97,7	116,1
103,4	112,6	107,1	83,3	112,8
102,1	104,4	106,2	84,2	114,5
110,1	112,2	121	92,8	117,2
83,2	81,1	101,2	77,4	77,1
82,7	97,1	83,2	72,5	80,1
106,8	112,6	105,1	88,8	120,3
113,7	113,8	113,3	93,4	133,4
102,5	107,8	99,1	92,6	109,4
96,6	103,2	100,3	90,7	93,2
92,1	103,3	93,5	81,6	91,2
95,6	101,2	98,8	84,1	99,2
102,3	107,7	106,2	88,1	108,2
98,6	110,4	98,3	85,3	101,5
98,2	101,9	102,1	82,9	106,9
104,5	115,9	117,1	84,8	104,4
84	89,9	101,5	71,2	77,9
73,8	88,6	80,5	68,9	60
103,9	117,2	105,9	94,3	99,5
106	123,9	109,5	97,6	95
97,2	100	97,2	85,6	105,6
102,6	103,6	114,5	91,9	102,5
89	94,1	93,5	75,8	93,3
93,8	98,7	100,9	79,8	97,3
116,7	119,5	121,1	99	127
106,8	112,7	116,5	88,5	111,7
98,5	104,4	109,3	86,7	96,4
118,7	124,7	118,1	97,9	133
90	89,1	108,3	94,3	72,2
91,9	97	105,4	72,9	95,8
113,3	121,6	116,2	91,8	124,1
113,1	118,8	111,2	93,2	127,6
104,1	114	105,8	86,5	110,7
108,7	111,5	122,7	98,9	104,6
96,7	97,2	99,5	77,2	112,7
101	102,5	107,9	79,4	115,3
116,9	113,4	124,6	90,4	139,4
105,8	109,8	115	81,4	119
99	104,9	110,3	85,8	97,4
129,4	126,1	132,7	103,6	154
83	80	99,7	73,6	81,5
88,9	96,8	96,5	75,7	88,8
115,9	117,2	118,7	99,2	127,7
104,2	112,3	112,9	88,7	105,1
113,4	117,3	130,5	94,6	114,9
112,2	111,1	137,9	98,7	106,4
100,8	102,2	115	84,2	104,5
107,3	104,3	116,8	87,7	121,6
126,6	122,9	140,9	103,3	141,4
102,9	107,6	120,7	88,2	99
117,9	121,3	134,2	93,4	126,7
128,8	131,5	147,3	106,3	134,1
87,5	89	112,4	73,1	81,3
93,8	104,4	107,1	78,6	88,6
122,7	128,9	128,4	101,6	132,7
126,2	135,9	137,7	101,4	132,9
124,6	133,3	135	98,5	134,4
116,7	121,3	151	99	103,7
115,2	120,5	137,4	89,5	119,7
111,1	120,4	132,4	83,5	115
129,9	137,9	161,3	97,4	132,9
113,3	126,1	139,8	87,8	108,5
118,5	133,2	146	90,4	113,9
137,9	151,1	166,5	101,6	142
103,6	105	143,3	80	97,7
101,7	119	121	81,7	92,2
127,4	140,4	152,6	96,4	128,8
137,5	156,6	154,4	110,2	134,9
128,3	137,1	154,6	101,1	128,2
118,2	122,7	158	89,3	114,8




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24015&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]2 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=24015&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24015&T=0

As an alternative you can also use a 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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Summary of Dendrogram
LabelHeight
11.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.22206855565876
65.60267793113257
76
86.04648658313239
96.107372593841
106.1765686266729
116.45368112010501
126.81102048154313
136.8622153857191
147.01284535691469
157.66016096709536
167.71686464828818
178.29095893126965
188.85607136375944
198.94475193585276
208.95153618101385
219.06587006304414
229.07634287585039
239.39912978430005
249.66436754267965
259.8777521198984
2610.2817793422634
2710.9102682600294
2811.1657039324978
2911.4150218295894
3011.7454217764764
3111.9050409491106
3212.0474063598768
3312.0660681251185
3412.1260051129793
3512.2913149777137
3612.3211200789539
3712.5654287630785
3812.9172238594827
3913.4925905592662
4013.8837443883003
4115.1014826756714
4215.7076414524906
4316.4471882095390
4416.5576265235264
4516.6203200001141
4616.867127793433
4717.3548264180314
4817.4489871995578
4917.6846354763138
5017.6884716426138
5117.7946157752727
5217.9805592724417
5319.0960006717675
5419.9488838810722
5521.8379895155860
5622.8638541990587
5723.0728482355722
5823.1032243727837
5925.0706386629349
6026.5649895835976
6128.00457801722
6229.2728543193178
6330.5920940962434
6430.7275486798671
6531.5113788522284
6632.0615732511673
6738.1083036269985
6839.799962774732
6941.7856700368903
7043.3682830760736
7144.249656928956
7249.6756216885307
7350.0888305594831
7450.3853980081709
7552.7048133360341
7677.7036951161522
7786.9356018194598
78105.988012346484
79161.084586632303
80207.807392425105
81262.051444471932
82381.17575203832
831012.69923516734

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1.81934053986603 \tabularnewline
2 & 3.4957116585897 \tabularnewline
3 & 3.63180395946697 \tabularnewline
4 & 4.33474336033865 \tabularnewline
5 & 5.22206855565876 \tabularnewline
6 & 5.60267793113257 \tabularnewline
7 & 6 \tabularnewline
8 & 6.04648658313239 \tabularnewline
9 & 6.107372593841 \tabularnewline
10 & 6.1765686266729 \tabularnewline
11 & 6.45368112010501 \tabularnewline
12 & 6.81102048154313 \tabularnewline
13 & 6.8622153857191 \tabularnewline
14 & 7.01284535691469 \tabularnewline
15 & 7.66016096709536 \tabularnewline
16 & 7.71686464828818 \tabularnewline
17 & 8.29095893126965 \tabularnewline
18 & 8.85607136375944 \tabularnewline
19 & 8.94475193585276 \tabularnewline
20 & 8.95153618101385 \tabularnewline
21 & 9.06587006304414 \tabularnewline
22 & 9.07634287585039 \tabularnewline
23 & 9.39912978430005 \tabularnewline
24 & 9.66436754267965 \tabularnewline
25 & 9.8777521198984 \tabularnewline
26 & 10.2817793422634 \tabularnewline
27 & 10.9102682600294 \tabularnewline
28 & 11.1657039324978 \tabularnewline
29 & 11.4150218295894 \tabularnewline
30 & 11.7454217764764 \tabularnewline
31 & 11.9050409491106 \tabularnewline
32 & 12.0474063598768 \tabularnewline
33 & 12.0660681251185 \tabularnewline
34 & 12.1260051129793 \tabularnewline
35 & 12.2913149777137 \tabularnewline
36 & 12.3211200789539 \tabularnewline
37 & 12.5654287630785 \tabularnewline
38 & 12.9172238594827 \tabularnewline
39 & 13.4925905592662 \tabularnewline
40 & 13.8837443883003 \tabularnewline
41 & 15.1014826756714 \tabularnewline
42 & 15.7076414524906 \tabularnewline
43 & 16.4471882095390 \tabularnewline
44 & 16.5576265235264 \tabularnewline
45 & 16.6203200001141 \tabularnewline
46 & 16.867127793433 \tabularnewline
47 & 17.3548264180314 \tabularnewline
48 & 17.4489871995578 \tabularnewline
49 & 17.6846354763138 \tabularnewline
50 & 17.6884716426138 \tabularnewline
51 & 17.7946157752727 \tabularnewline
52 & 17.9805592724417 \tabularnewline
53 & 19.0960006717675 \tabularnewline
54 & 19.9488838810722 \tabularnewline
55 & 21.8379895155860 \tabularnewline
56 & 22.8638541990587 \tabularnewline
57 & 23.0728482355722 \tabularnewline
58 & 23.1032243727837 \tabularnewline
59 & 25.0706386629349 \tabularnewline
60 & 26.5649895835976 \tabularnewline
61 & 28.00457801722 \tabularnewline
62 & 29.2728543193178 \tabularnewline
63 & 30.5920940962434 \tabularnewline
64 & 30.7275486798671 \tabularnewline
65 & 31.5113788522284 \tabularnewline
66 & 32.0615732511673 \tabularnewline
67 & 38.1083036269985 \tabularnewline
68 & 39.799962774732 \tabularnewline
69 & 41.7856700368903 \tabularnewline
70 & 43.3682830760736 \tabularnewline
71 & 44.249656928956 \tabularnewline
72 & 49.6756216885307 \tabularnewline
73 & 50.0888305594831 \tabularnewline
74 & 50.3853980081709 \tabularnewline
75 & 52.7048133360341 \tabularnewline
76 & 77.7036951161522 \tabularnewline
77 & 86.9356018194598 \tabularnewline
78 & 105.988012346484 \tabularnewline
79 & 161.084586632303 \tabularnewline
80 & 207.807392425105 \tabularnewline
81 & 262.051444471932 \tabularnewline
82 & 381.17575203832 \tabularnewline
83 & 1012.69923516734 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24015&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]1.81934053986603[/C][/ROW]
[ROW][C]2[/C][C]3.4957116585897[/C][/ROW]
[ROW][C]3[/C][C]3.63180395946697[/C][/ROW]
[ROW][C]4[/C][C]4.33474336033865[/C][/ROW]
[ROW][C]5[/C][C]5.22206855565876[/C][/ROW]
[ROW][C]6[/C][C]5.60267793113257[/C][/ROW]
[ROW][C]7[/C][C]6[/C][/ROW]
[ROW][C]8[/C][C]6.04648658313239[/C][/ROW]
[ROW][C]9[/C][C]6.107372593841[/C][/ROW]
[ROW][C]10[/C][C]6.1765686266729[/C][/ROW]
[ROW][C]11[/C][C]6.45368112010501[/C][/ROW]
[ROW][C]12[/C][C]6.81102048154313[/C][/ROW]
[ROW][C]13[/C][C]6.8622153857191[/C][/ROW]
[ROW][C]14[/C][C]7.01284535691469[/C][/ROW]
[ROW][C]15[/C][C]7.66016096709536[/C][/ROW]
[ROW][C]16[/C][C]7.71686464828818[/C][/ROW]
[ROW][C]17[/C][C]8.29095893126965[/C][/ROW]
[ROW][C]18[/C][C]8.85607136375944[/C][/ROW]
[ROW][C]19[/C][C]8.94475193585276[/C][/ROW]
[ROW][C]20[/C][C]8.95153618101385[/C][/ROW]
[ROW][C]21[/C][C]9.06587006304414[/C][/ROW]
[ROW][C]22[/C][C]9.07634287585039[/C][/ROW]
[ROW][C]23[/C][C]9.39912978430005[/C][/ROW]
[ROW][C]24[/C][C]9.66436754267965[/C][/ROW]
[ROW][C]25[/C][C]9.8777521198984[/C][/ROW]
[ROW][C]26[/C][C]10.2817793422634[/C][/ROW]
[ROW][C]27[/C][C]10.9102682600294[/C][/ROW]
[ROW][C]28[/C][C]11.1657039324978[/C][/ROW]
[ROW][C]29[/C][C]11.4150218295894[/C][/ROW]
[ROW][C]30[/C][C]11.7454217764764[/C][/ROW]
[ROW][C]31[/C][C]11.9050409491106[/C][/ROW]
[ROW][C]32[/C][C]12.0474063598768[/C][/ROW]
[ROW][C]33[/C][C]12.0660681251185[/C][/ROW]
[ROW][C]34[/C][C]12.1260051129793[/C][/ROW]
[ROW][C]35[/C][C]12.2913149777137[/C][/ROW]
[ROW][C]36[/C][C]12.3211200789539[/C][/ROW]
[ROW][C]37[/C][C]12.5654287630785[/C][/ROW]
[ROW][C]38[/C][C]12.9172238594827[/C][/ROW]
[ROW][C]39[/C][C]13.4925905592662[/C][/ROW]
[ROW][C]40[/C][C]13.8837443883003[/C][/ROW]
[ROW][C]41[/C][C]15.1014826756714[/C][/ROW]
[ROW][C]42[/C][C]15.7076414524906[/C][/ROW]
[ROW][C]43[/C][C]16.4471882095390[/C][/ROW]
[ROW][C]44[/C][C]16.5576265235264[/C][/ROW]
[ROW][C]45[/C][C]16.6203200001141[/C][/ROW]
[ROW][C]46[/C][C]16.867127793433[/C][/ROW]
[ROW][C]47[/C][C]17.3548264180314[/C][/ROW]
[ROW][C]48[/C][C]17.4489871995578[/C][/ROW]
[ROW][C]49[/C][C]17.6846354763138[/C][/ROW]
[ROW][C]50[/C][C]17.6884716426138[/C][/ROW]
[ROW][C]51[/C][C]17.7946157752727[/C][/ROW]
[ROW][C]52[/C][C]17.9805592724417[/C][/ROW]
[ROW][C]53[/C][C]19.0960006717675[/C][/ROW]
[ROW][C]54[/C][C]19.9488838810722[/C][/ROW]
[ROW][C]55[/C][C]21.8379895155860[/C][/ROW]
[ROW][C]56[/C][C]22.8638541990587[/C][/ROW]
[ROW][C]57[/C][C]23.0728482355722[/C][/ROW]
[ROW][C]58[/C][C]23.1032243727837[/C][/ROW]
[ROW][C]59[/C][C]25.0706386629349[/C][/ROW]
[ROW][C]60[/C][C]26.5649895835976[/C][/ROW]
[ROW][C]61[/C][C]28.00457801722[/C][/ROW]
[ROW][C]62[/C][C]29.2728543193178[/C][/ROW]
[ROW][C]63[/C][C]30.5920940962434[/C][/ROW]
[ROW][C]64[/C][C]30.7275486798671[/C][/ROW]
[ROW][C]65[/C][C]31.5113788522284[/C][/ROW]
[ROW][C]66[/C][C]32.0615732511673[/C][/ROW]
[ROW][C]67[/C][C]38.1083036269985[/C][/ROW]
[ROW][C]68[/C][C]39.799962774732[/C][/ROW]
[ROW][C]69[/C][C]41.7856700368903[/C][/ROW]
[ROW][C]70[/C][C]43.3682830760736[/C][/ROW]
[ROW][C]71[/C][C]44.249656928956[/C][/ROW]
[ROW][C]72[/C][C]49.6756216885307[/C][/ROW]
[ROW][C]73[/C][C]50.0888305594831[/C][/ROW]
[ROW][C]74[/C][C]50.3853980081709[/C][/ROW]
[ROW][C]75[/C][C]52.7048133360341[/C][/ROW]
[ROW][C]76[/C][C]77.7036951161522[/C][/ROW]
[ROW][C]77[/C][C]86.9356018194598[/C][/ROW]
[ROW][C]78[/C][C]105.988012346484[/C][/ROW]
[ROW][C]79[/C][C]161.084586632303[/C][/ROW]
[ROW][C]80[/C][C]207.807392425105[/C][/ROW]
[ROW][C]81[/C][C]262.051444471932[/C][/ROW]
[ROW][C]82[/C][C]381.17575203832[/C][/ROW]
[ROW][C]83[/C][C]1012.69923516734[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24015&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24015&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of Dendrogram
LabelHeight
11.81934053986603
23.4957116585897
33.63180395946697
44.33474336033865
55.22206855565876
65.60267793113257
76
86.04648658313239
96.107372593841
106.1765686266729
116.45368112010501
126.81102048154313
136.8622153857191
147.01284535691469
157.66016096709536
167.71686464828818
178.29095893126965
188.85607136375944
198.94475193585276
208.95153618101385
219.06587006304414
229.07634287585039
239.39912978430005
249.66436754267965
259.8777521198984
2610.2817793422634
2710.9102682600294
2811.1657039324978
2911.4150218295894
3011.7454217764764
3111.9050409491106
3212.0474063598768
3312.0660681251185
3412.1260051129793
3512.2913149777137
3612.3211200789539
3712.5654287630785
3812.9172238594827
3913.4925905592662
4013.8837443883003
4115.1014826756714
4215.7076414524906
4316.4471882095390
4416.5576265235264
4516.6203200001141
4616.867127793433
4717.3548264180314
4817.4489871995578
4917.6846354763138
5017.6884716426138
5117.7946157752727
5217.9805592724417
5319.0960006717675
5419.9488838810722
5521.8379895155860
5622.8638541990587
5723.0728482355722
5823.1032243727837
5925.0706386629349
6026.5649895835976
6128.00457801722
6229.2728543193178
6330.5920940962434
6430.7275486798671
6531.5113788522284
6632.0615732511673
6738.1083036269985
6839.799962774732
6941.7856700368903
7043.3682830760736
7144.249656928956
7249.6756216885307
7350.0888305594831
7450.3853980081709
7552.7048133360341
7677.7036951161522
7786.9356018194598
78105.988012346484
79161.084586632303
80207.807392425105
81262.051444471932
82381.17575203832
831012.69923516734



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