FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationMon, 10 Nov 2008 11:31:19 -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/10/t1226341954cdtyziede3rm7ky.htm/, Retrieved Sun, 19 May 2024 10:07:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23175, Retrieved Sun, 19 May 2024 10:07:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [hierarchisch] [2008-11-10 18:31:19] [1aceffc2fa350402d9e8f8edd757a2e8] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
5.6	8.9	3.4	11
5.6	8.9	3	5
5.5	8.5	3.1	6
5.4	8.1	2.5	2
5.4	7.5	2.2	7
5.4	7.1	2.3	18
5.5	6.9	2.1	19
5.7	7.1	2.8	25
5.7	7	3.1	28
5.4	6.7	2.9	26
5.6	7	2.6	27
5.8	7.3	2.7	35
6.1	7.7	2.3	43
6.8	8.4	2.3	63
6.7	8.4	2.1	80
6.7	8.8	2.2	56
6.4	9.1	2.9	48
6.3	9	2.6	43
6.3	8.6	2.7	43
6.4	7.9	1.8	42
6.3	7.7	1.3	42
6	7.8	0.9	44
6.2	9.1	1.3	52
6.3	9.4	1.3	47
6.6	9.3	1.3	47
7.5	8.7	1.3	47
7.8	8.4	1.1	49
7.9	8.6	1.4	58
7.8	9	1.2	60
7.6	9.1	1.7	65
7.5	8.7	1.8	70
7.6	8.2	1.5	63
7.5	7.9	1	64
7.3	7.9	1.6	64
7.6	9.1	1.5	69
7.5	9.4	1.8	62
7.6	9.5	1.8	56
7.9	9.1	1.6	77
7.9	9	1.9	62
8.1	9.3	1.7	59
8.2	9.9	1.6	53
8	9.8	1.3	52
7.5	9.4	1.1	54
6.8	8.3	1.9	57
6.5	8	2.6	58
6.6	8.5	2.3	48
7.6	10.4	2.4	51
8	11.1	2.2	48
8	10.9	2	50
7.7	9.9	2.9	59
7.5	9.2	2.6	58
7.6	9.2	2.3	59
7.7	9.5	2.3	58
7.9	9.6	2.6	57
7.8	9.5	3.1	52
7.5	9.1	2.8	52
7.5	8.9	2.5	64
7.1	9	2.9	63
7.5	10.1	3.1	62
7.5	10.3	3.1	58
7.6	10.2	3.2	57
7.7	9.6	2.5	55
7.7	9.2	2.6	57
7.9	9.3	2.9	53
8.1	9.4	2.6	44
8.2	9.4	2.4	44
8.2	9.2	1.7	51
8.1	9	2	45
7.9	9	2.2	48
7.3	9	1.9	44
6.9	9.8	1.6	45
6.6	10	1.6	36
6.7	9.9	1.2	37
6.9	9.3	1.2	31
7	9	1.5	32
7.1	9	1.6	59
7.2	9.1	1.7	39
7.1	9.1	1.8	34
6.9	9.1	1.8	35
7	9.2	1.8	27
6.8	8.8	1.3	32
6.4	8.3	1.3	32
6.7	8.4	1.4	34
6.7	8.1	1.1	29
6.4	7.8	1.5	28
6.3	7.9	2.2	24
6.2	7.9	2.9	27
6.5	8	3.1	23
6.8	7.9	3.5	25
6.8	7.5	3.6	20
6.5	7.2	4.4	18
6.3	6.9	4.2	26
5.9	6.6	5.2	31
5.9	6.7	5.8	29

Tables (Output of Computation)





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

\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 & 4 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=23175&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]4 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=23175&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23175&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 computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001






Summary of Dendrogram
LabelHeight
10.223606797749979
20.316227766016838
30.346410161513775
40.412310562561766
50.447213595499958
60.469041575982344
70.547722557505166
80.574456264653803
90.58309518948453
100.632455532033676
110.705252728096028
120.787400787401181
130.769142270551173
140.851611783716754
150.871779788708134
160.9
170.9
180.926241528074395
190.934901951359278
200.955019867201297
210.851578945050111
220.968269224654479
231.01871133293986
241.00017451425986
251.02592335003503
261.02905400660581
271.04403065089105
281.06425718600190
290.94978470946149
301.06770782520313
311.07395301857720
321.08627804912002
331.08627804912002
341.10453610171873
351.12249721603218
361.12654097027768
371.15639794928788
381.15758369027902
391.16189500386223
401.16261102132562
411.09951889466403
421.16817498307274
431.01662396429348
441.19259833927652
451.19711725777657
461.22358610469991
471.24143548358242
481.24429900981065
491.25013925348526
501.18009246915324
511.27582742672131
521.28543043245315
531.30942325260026
541.08911305235127
551.36381816969859
561.43561036132703
571.38004342495139
581.48027383069272
591.51491832482525
601.57555461153352
611.58934976651378
621.59262441768236
631.60707706595153
641.71258640336062
651.71786571051420
661.83703428461281
671.70982393567288
681.85648314157984
691.87312087481748
701.96618728688287
711.97005614906337
722.01951682191979
732.09045449603669
742.15690567930802
752.17702191519945
762.19544984001001
771.73667694080545
782.36440766963955
792.72360556314328
803.3436506994601
813.37779073799443
823.49363512378028
833.82674811154072
844.07932583958403
854.42745811659374
865.03242815155576
875.03800059659232
887.71010139982277
897.94206420783854
908.30521311059531
9117.2715723317589
9219.1593678284676
9325.1186639887694

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.223606797749979 \tabularnewline
2 & 0.316227766016838 \tabularnewline
3 & 0.346410161513775 \tabularnewline
4 & 0.412310562561766 \tabularnewline
5 & 0.447213595499958 \tabularnewline
6 & 0.469041575982344 \tabularnewline
7 & 0.547722557505166 \tabularnewline
8 & 0.574456264653803 \tabularnewline
9 & 0.58309518948453 \tabularnewline
10 & 0.632455532033676 \tabularnewline
11 & 0.705252728096028 \tabularnewline
12 & 0.787400787401181 \tabularnewline
13 & 0.769142270551173 \tabularnewline
14 & 0.851611783716754 \tabularnewline
15 & 0.871779788708134 \tabularnewline
16 & 0.9 \tabularnewline
17 & 0.9 \tabularnewline
18 & 0.926241528074395 \tabularnewline
19 & 0.934901951359278 \tabularnewline
20 & 0.955019867201297 \tabularnewline
21 & 0.851578945050111 \tabularnewline
22 & 0.968269224654479 \tabularnewline
23 & 1.01871133293986 \tabularnewline
24 & 1.00017451425986 \tabularnewline
25 & 1.02592335003503 \tabularnewline
26 & 1.02905400660581 \tabularnewline
27 & 1.04403065089105 \tabularnewline
28 & 1.06425718600190 \tabularnewline
29 & 0.94978470946149 \tabularnewline
30 & 1.06770782520313 \tabularnewline
31 & 1.07395301857720 \tabularnewline
32 & 1.08627804912002 \tabularnewline
33 & 1.08627804912002 \tabularnewline
34 & 1.10453610171873 \tabularnewline
35 & 1.12249721603218 \tabularnewline
36 & 1.12654097027768 \tabularnewline
37 & 1.15639794928788 \tabularnewline
38 & 1.15758369027902 \tabularnewline
39 & 1.16189500386223 \tabularnewline
40 & 1.16261102132562 \tabularnewline
41 & 1.09951889466403 \tabularnewline
42 & 1.16817498307274 \tabularnewline
43 & 1.01662396429348 \tabularnewline
44 & 1.19259833927652 \tabularnewline
45 & 1.19711725777657 \tabularnewline
46 & 1.22358610469991 \tabularnewline
47 & 1.24143548358242 \tabularnewline
48 & 1.24429900981065 \tabularnewline
49 & 1.25013925348526 \tabularnewline
50 & 1.18009246915324 \tabularnewline
51 & 1.27582742672131 \tabularnewline
52 & 1.28543043245315 \tabularnewline
53 & 1.30942325260026 \tabularnewline
54 & 1.08911305235127 \tabularnewline
55 & 1.36381816969859 \tabularnewline
56 & 1.43561036132703 \tabularnewline
57 & 1.38004342495139 \tabularnewline
58 & 1.48027383069272 \tabularnewline
59 & 1.51491832482525 \tabularnewline
60 & 1.57555461153352 \tabularnewline
61 & 1.58934976651378 \tabularnewline
62 & 1.59262441768236 \tabularnewline
63 & 1.60707706595153 \tabularnewline
64 & 1.71258640336062 \tabularnewline
65 & 1.71786571051420 \tabularnewline
66 & 1.83703428461281 \tabularnewline
67 & 1.70982393567288 \tabularnewline
68 & 1.85648314157984 \tabularnewline
69 & 1.87312087481748 \tabularnewline
70 & 1.96618728688287 \tabularnewline
71 & 1.97005614906337 \tabularnewline
72 & 2.01951682191979 \tabularnewline
73 & 2.09045449603669 \tabularnewline
74 & 2.15690567930802 \tabularnewline
75 & 2.17702191519945 \tabularnewline
76 & 2.19544984001001 \tabularnewline
77 & 1.73667694080545 \tabularnewline
78 & 2.36440766963955 \tabularnewline
79 & 2.72360556314328 \tabularnewline
80 & 3.3436506994601 \tabularnewline
81 & 3.37779073799443 \tabularnewline
82 & 3.49363512378028 \tabularnewline
83 & 3.82674811154072 \tabularnewline
84 & 4.07932583958403 \tabularnewline
85 & 4.42745811659374 \tabularnewline
86 & 5.03242815155576 \tabularnewline
87 & 5.03800059659232 \tabularnewline
88 & 7.71010139982277 \tabularnewline
89 & 7.94206420783854 \tabularnewline
90 & 8.30521311059531 \tabularnewline
91 & 17.2715723317589 \tabularnewline
92 & 19.1593678284676 \tabularnewline
93 & 25.1186639887694 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23175&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.223606797749979[/C][/ROW]
[ROW][C]2[/C][C]0.316227766016838[/C][/ROW]
[ROW][C]3[/C][C]0.346410161513775[/C][/ROW]
[ROW][C]4[/C][C]0.412310562561766[/C][/ROW]
[ROW][C]5[/C][C]0.447213595499958[/C][/ROW]
[ROW][C]6[/C][C]0.469041575982344[/C][/ROW]
[ROW][C]7[/C][C]0.547722557505166[/C][/ROW]
[ROW][C]8[/C][C]0.574456264653803[/C][/ROW]
[ROW][C]9[/C][C]0.58309518948453[/C][/ROW]
[ROW][C]10[/C][C]0.632455532033676[/C][/ROW]
[ROW][C]11[/C][C]0.705252728096028[/C][/ROW]
[ROW][C]12[/C][C]0.787400787401181[/C][/ROW]
[ROW][C]13[/C][C]0.769142270551173[/C][/ROW]
[ROW][C]14[/C][C]0.851611783716754[/C][/ROW]
[ROW][C]15[/C][C]0.871779788708134[/C][/ROW]
[ROW][C]16[/C][C]0.9[/C][/ROW]
[ROW][C]17[/C][C]0.9[/C][/ROW]
[ROW][C]18[/C][C]0.926241528074395[/C][/ROW]
[ROW][C]19[/C][C]0.934901951359278[/C][/ROW]
[ROW][C]20[/C][C]0.955019867201297[/C][/ROW]
[ROW][C]21[/C][C]0.851578945050111[/C][/ROW]
[ROW][C]22[/C][C]0.968269224654479[/C][/ROW]
[ROW][C]23[/C][C]1.01871133293986[/C][/ROW]
[ROW][C]24[/C][C]1.00017451425986[/C][/ROW]
[ROW][C]25[/C][C]1.02592335003503[/C][/ROW]
[ROW][C]26[/C][C]1.02905400660581[/C][/ROW]
[ROW][C]27[/C][C]1.04403065089105[/C][/ROW]
[ROW][C]28[/C][C]1.06425718600190[/C][/ROW]
[ROW][C]29[/C][C]0.94978470946149[/C][/ROW]
[ROW][C]30[/C][C]1.06770782520313[/C][/ROW]
[ROW][C]31[/C][C]1.07395301857720[/C][/ROW]
[ROW][C]32[/C][C]1.08627804912002[/C][/ROW]
[ROW][C]33[/C][C]1.08627804912002[/C][/ROW]
[ROW][C]34[/C][C]1.10453610171873[/C][/ROW]
[ROW][C]35[/C][C]1.12249721603218[/C][/ROW]
[ROW][C]36[/C][C]1.12654097027768[/C][/ROW]
[ROW][C]37[/C][C]1.15639794928788[/C][/ROW]
[ROW][C]38[/C][C]1.15758369027902[/C][/ROW]
[ROW][C]39[/C][C]1.16189500386223[/C][/ROW]
[ROW][C]40[/C][C]1.16261102132562[/C][/ROW]
[ROW][C]41[/C][C]1.09951889466403[/C][/ROW]
[ROW][C]42[/C][C]1.16817498307274[/C][/ROW]
[ROW][C]43[/C][C]1.01662396429348[/C][/ROW]
[ROW][C]44[/C][C]1.19259833927652[/C][/ROW]
[ROW][C]45[/C][C]1.19711725777657[/C][/ROW]
[ROW][C]46[/C][C]1.22358610469991[/C][/ROW]
[ROW][C]47[/C][C]1.24143548358242[/C][/ROW]
[ROW][C]48[/C][C]1.24429900981065[/C][/ROW]
[ROW][C]49[/C][C]1.25013925348526[/C][/ROW]
[ROW][C]50[/C][C]1.18009246915324[/C][/ROW]
[ROW][C]51[/C][C]1.27582742672131[/C][/ROW]
[ROW][C]52[/C][C]1.28543043245315[/C][/ROW]
[ROW][C]53[/C][C]1.30942325260026[/C][/ROW]
[ROW][C]54[/C][C]1.08911305235127[/C][/ROW]
[ROW][C]55[/C][C]1.36381816969859[/C][/ROW]
[ROW][C]56[/C][C]1.43561036132703[/C][/ROW]
[ROW][C]57[/C][C]1.38004342495139[/C][/ROW]
[ROW][C]58[/C][C]1.48027383069272[/C][/ROW]
[ROW][C]59[/C][C]1.51491832482525[/C][/ROW]
[ROW][C]60[/C][C]1.57555461153352[/C][/ROW]
[ROW][C]61[/C][C]1.58934976651378[/C][/ROW]
[ROW][C]62[/C][C]1.59262441768236[/C][/ROW]
[ROW][C]63[/C][C]1.60707706595153[/C][/ROW]
[ROW][C]64[/C][C]1.71258640336062[/C][/ROW]
[ROW][C]65[/C][C]1.71786571051420[/C][/ROW]
[ROW][C]66[/C][C]1.83703428461281[/C][/ROW]
[ROW][C]67[/C][C]1.70982393567288[/C][/ROW]
[ROW][C]68[/C][C]1.85648314157984[/C][/ROW]
[ROW][C]69[/C][C]1.87312087481748[/C][/ROW]
[ROW][C]70[/C][C]1.96618728688287[/C][/ROW]
[ROW][C]71[/C][C]1.97005614906337[/C][/ROW]
[ROW][C]72[/C][C]2.01951682191979[/C][/ROW]
[ROW][C]73[/C][C]2.09045449603669[/C][/ROW]
[ROW][C]74[/C][C]2.15690567930802[/C][/ROW]
[ROW][C]75[/C][C]2.17702191519945[/C][/ROW]
[ROW][C]76[/C][C]2.19544984001001[/C][/ROW]
[ROW][C]77[/C][C]1.73667694080545[/C][/ROW]
[ROW][C]78[/C][C]2.36440766963955[/C][/ROW]
[ROW][C]79[/C][C]2.72360556314328[/C][/ROW]
[ROW][C]80[/C][C]3.3436506994601[/C][/ROW]
[ROW][C]81[/C][C]3.37779073799443[/C][/ROW]
[ROW][C]82[/C][C]3.49363512378028[/C][/ROW]
[ROW][C]83[/C][C]3.82674811154072[/C][/ROW]
[ROW][C]84[/C][C]4.07932583958403[/C][/ROW]
[ROW][C]85[/C][C]4.42745811659374[/C][/ROW]
[ROW][C]86[/C][C]5.03242815155576[/C][/ROW]
[ROW][C]87[/C][C]5.03800059659232[/C][/ROW]
[ROW][C]88[/C][C]7.71010139982277[/C][/ROW]
[ROW][C]89[/C][C]7.94206420783854[/C][/ROW]
[ROW][C]90[/C][C]8.30521311059531[/C][/ROW]
[ROW][C]91[/C][C]17.2715723317589[/C][/ROW]
[ROW][C]92[/C][C]19.1593678284676[/C][/ROW]
[ROW][C]93[/C][C]25.1186639887694[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23175&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23175&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.223606797749979
20.316227766016838
30.346410161513775
40.412310562561766
50.447213595499958
60.469041575982344
70.547722557505166
80.574456264653803
90.58309518948453
100.632455532033676
110.705252728096028
120.787400787401181
130.769142270551173
140.851611783716754
150.871779788708134
160.9
170.9
180.926241528074395
190.934901951359278
200.955019867201297
210.851578945050111
220.968269224654479
231.01871133293986
241.00017451425986
251.02592335003503
261.02905400660581
271.04403065089105
281.06425718600190
290.94978470946149
301.06770782520313
311.07395301857720
321.08627804912002
331.08627804912002
341.10453610171873
351.12249721603218
361.12654097027768
371.15639794928788
381.15758369027902
391.16189500386223
401.16261102132562
411.09951889466403
421.16817498307274
431.01662396429348
441.19259833927652
451.19711725777657
461.22358610469991
471.24143548358242
481.24429900981065
491.25013925348526
501.18009246915324
511.27582742672131
521.28543043245315
531.30942325260026
541.08911305235127
551.36381816969859
561.43561036132703
571.38004342495139
581.48027383069272
591.51491832482525
601.57555461153352
611.58934976651378
621.59262441768236
631.60707706595153
641.71258640336062
651.71786571051420
661.83703428461281
671.70982393567288
681.85648314157984
691.87312087481748
701.96618728688287
711.97005614906337
722.01951682191979
732.09045449603669
742.15690567930802
752.17702191519945
762.19544984001001
771.73667694080545
782.36440766963955
792.72360556314328
803.3436506994601
813.37779073799443
823.49363512378028
833.82674811154072
844.07932583958403
854.42745811659374
865.03242815155576
875.03800059659232
887.71010139982277
897.94206420783854
908.30521311059531
9117.2715723317589
9219.1593678284676
9325.1186639887694






Summary of Cut Dendrogram
LabelHeight
135.1234995710451

\begin{tabular}{lllllllll}
\hline
Summary of Cut Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 35.1234995710451 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23175&T=2

[TABLE]
[ROW][C]Summary of Cut Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]35.1234995710451[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23175&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23175&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
135.1234995710451


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = centroid ; par2 = 2 ; par3 = FALSE ; par4 = FALSE ;
Parameters (R input):
par1 = centroid ; par2 = 2 ; 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')
}