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 computationThu, 13 Nov 2008 10:54:36 -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/13/t1226598964ur2lnnapc1mwwws.htm/, Retrieved Sun, 19 May 2024 10:21:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24739, Retrieved Sun, 19 May 2024 10:21:56 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Hierarchical clus...] [2008-11-13 17:54:36] [5bd06487453d0eec7a1bf04bf9f25085] [Current]
F RMPD    [Bivariate Kernel Density Estimation] [Bivariate density] [2008-11-13 18:53:01] [5262baed313b307078ce11eb68e9efe6]
F    D    [Hierarchical Clustering] [Hierarchical clus...] [2008-11-13 18:40:30] [5262baed313b307078ce11eb68e9efe6]
F RMPD    [Bivariate Kernel Density Estimation] [Bivariate density] [2008-11-13 18:57:05] [5262baed313b307078ce11eb68e9efe6]
F RMPD    [Partial Correlation] [Partial correlation] [2008-11-13 19:02:44] [5262baed313b307078ce11eb68e9efe6]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
493	116	377
481	111	370
462	104	358
457	100	357
442	93	349
439	91	348
488	119	369
521	139	381
501	134	368
485	124	361
464	113	351
460	109	351
467	109	358
460	106	354
448	101	347
443	98	345
436	93	343
431	91	340
484	122	362
510	139	370
513	140	373
503	132	371
471	117	354
471	114	357
476	113	363
475	110	364
470	107	363
461	103	358
455	98	357
456	98	357
517	137	380
525	148	378
523	147	376
519	139	380
509	130	379
512	128	384
519	127	392
517	123	394
510	118	392
509	114	396
501	108	392
507	111	396
569	151	419
580	159	421
578	158	420
565	148	418
547	138	410
555	137	418
562	136	426
561	133	428
555	126	430
544	120	424
537	114	423
543	116	427
594	153	441
611	162	449
613	161	452
611	149	462
594	139	455
595	135	461
591	130	461
589	127	463
584	122	462
573	117	456
567	112	455
569	113	456
621	149	472
629	157	472
628	157	471
612	147	465
595	137	459
597	132	465
593	125	468
590	123	467
580	117	463
574	114	460
573	111	462
573	112	461
620	144	476
626	150	476
620	149	471
588	134	453
566	123	443
557	116	442
561	117	444
549	111	438
532	105	427
526	102	424
511	95	416
499	93	406
555	124	431
565	130	434
542	124	418
527	115	412
510	106	404
514	105	409
517	105	412
508	101	406
493	95	398
490	93	397
469	84	385
478	87	390
528	116	413
534	120	413
518	117	401
506	109	397

Tables (Output of Computation)





Summary of computational 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 computational 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=24739&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]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=24739&T=0

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






Summary of Dendrogram
LabelHeight
11
21.41421356237310
31.41421356237310
41.41421356237310
51.41421356237310
61.73205080756888
72.23606797749979
82.23606797749979
92.44948974278318
102.44948974278318
112.44948974278318
122.44948974278318
132.82842712474619
143
153.04299673483065
163.3166247903554
173.65602689891371
183.74165738677394
193.74165738677394
203.74165738677394
213.74165738677394
223.74165738677394
233.74165738677394
244.12310562561766
254.12310562561766
264.19531255396809
274.24264068711928
284.24264068711928
294.24264068711928
304.35889894354067
314.58257569495584
324.89897948556636
335.09901951359278
345.09901951359278
355.53125745811468
365.74456264653803
376.16441400296898
386.16441400296898
396.16441400296898
406.16441400296898
416.48074069840786
426.96564801457551
437.34846922834953
448.09190611531691
458.20407816807507
468.48528137423857
479.00353107304067
489.47161567483146
499.89949493661167
5010.0035541233253
5110.0436084811547
5210.4783014776451
5310.7009376651595
5410.7238052947636
5510.9198183276202
5611.352162112529
5711.3578166916005
5811.7688290727508
5911.9339157331054
6012.2642459334231
6112.3828431695042
6213.2567139436797
6313.5432442106297
6414.0367549301043
6514.3180005190900
6614.4328855830626
6714.7017043493017
6815.1172612831014
6916.6511101865354
7019.1887274389745
7119.6176303718507
7221.0466606673232
7321.5136604490006
7422.1209977377159
7522.3529657729801
7622.9261441364216
7724.4873530190255
7825.3853212333016
7926.5044481470131
8026.6336278201362
8127.0038179354249
8228.2189872358057
8336.5424602768386
8437.2045360954518
8539.0686494559738
8639.5824941977336
8740.7455027169033
8841.9742545325414
8948.030064668399
9053.5915919270773
9157.9344083137191
9270.4703066696427
9374.7229657882031
9487.5786186610769
95114.544243689187
96133.288365382396
97137.743542236795
98144.620610233962
99217.481031826518
100238.692627276993
101349.535292878498
102386.419423258650
103858.378118614952
1041734.59640264382
1053010.53634079378

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 1 \tabularnewline
2 & 1.41421356237310 \tabularnewline
3 & 1.41421356237310 \tabularnewline
4 & 1.41421356237310 \tabularnewline
5 & 1.41421356237310 \tabularnewline
6 & 1.73205080756888 \tabularnewline
7 & 2.23606797749979 \tabularnewline
8 & 2.23606797749979 \tabularnewline
9 & 2.44948974278318 \tabularnewline
10 & 2.44948974278318 \tabularnewline
11 & 2.44948974278318 \tabularnewline
12 & 2.44948974278318 \tabularnewline
13 & 2.82842712474619 \tabularnewline
14 & 3 \tabularnewline
15 & 3.04299673483065 \tabularnewline
16 & 3.3166247903554 \tabularnewline
17 & 3.65602689891371 \tabularnewline
18 & 3.74165738677394 \tabularnewline
19 & 3.74165738677394 \tabularnewline
20 & 3.74165738677394 \tabularnewline
21 & 3.74165738677394 \tabularnewline
22 & 3.74165738677394 \tabularnewline
23 & 3.74165738677394 \tabularnewline
24 & 4.12310562561766 \tabularnewline
25 & 4.12310562561766 \tabularnewline
26 & 4.19531255396809 \tabularnewline
27 & 4.24264068711928 \tabularnewline
28 & 4.24264068711928 \tabularnewline
29 & 4.24264068711928 \tabularnewline
30 & 4.35889894354067 \tabularnewline
31 & 4.58257569495584 \tabularnewline
32 & 4.89897948556636 \tabularnewline
33 & 5.09901951359278 \tabularnewline
34 & 5.09901951359278 \tabularnewline
35 & 5.53125745811468 \tabularnewline
36 & 5.74456264653803 \tabularnewline
37 & 6.16441400296898 \tabularnewline
38 & 6.16441400296898 \tabularnewline
39 & 6.16441400296898 \tabularnewline
40 & 6.16441400296898 \tabularnewline
41 & 6.48074069840786 \tabularnewline
42 & 6.96564801457551 \tabularnewline
43 & 7.34846922834953 \tabularnewline
44 & 8.09190611531691 \tabularnewline
45 & 8.20407816807507 \tabularnewline
46 & 8.48528137423857 \tabularnewline
47 & 9.00353107304067 \tabularnewline
48 & 9.47161567483146 \tabularnewline
49 & 9.89949493661167 \tabularnewline
50 & 10.0035541233253 \tabularnewline
51 & 10.0436084811547 \tabularnewline
52 & 10.4783014776451 \tabularnewline
53 & 10.7009376651595 \tabularnewline
54 & 10.7238052947636 \tabularnewline
55 & 10.9198183276202 \tabularnewline
56 & 11.352162112529 \tabularnewline
57 & 11.3578166916005 \tabularnewline
58 & 11.7688290727508 \tabularnewline
59 & 11.9339157331054 \tabularnewline
60 & 12.2642459334231 \tabularnewline
61 & 12.3828431695042 \tabularnewline
62 & 13.2567139436797 \tabularnewline
63 & 13.5432442106297 \tabularnewline
64 & 14.0367549301043 \tabularnewline
65 & 14.3180005190900 \tabularnewline
66 & 14.4328855830626 \tabularnewline
67 & 14.7017043493017 \tabularnewline
68 & 15.1172612831014 \tabularnewline
69 & 16.6511101865354 \tabularnewline
70 & 19.1887274389745 \tabularnewline
71 & 19.6176303718507 \tabularnewline
72 & 21.0466606673232 \tabularnewline
73 & 21.5136604490006 \tabularnewline
74 & 22.1209977377159 \tabularnewline
75 & 22.3529657729801 \tabularnewline
76 & 22.9261441364216 \tabularnewline
77 & 24.4873530190255 \tabularnewline
78 & 25.3853212333016 \tabularnewline
79 & 26.5044481470131 \tabularnewline
80 & 26.6336278201362 \tabularnewline
81 & 27.0038179354249 \tabularnewline
82 & 28.2189872358057 \tabularnewline
83 & 36.5424602768386 \tabularnewline
84 & 37.2045360954518 \tabularnewline
85 & 39.0686494559738 \tabularnewline
86 & 39.5824941977336 \tabularnewline
87 & 40.7455027169033 \tabularnewline
88 & 41.9742545325414 \tabularnewline
89 & 48.030064668399 \tabularnewline
90 & 53.5915919270773 \tabularnewline
91 & 57.9344083137191 \tabularnewline
92 & 70.4703066696427 \tabularnewline
93 & 74.7229657882031 \tabularnewline
94 & 87.5786186610769 \tabularnewline
95 & 114.544243689187 \tabularnewline
96 & 133.288365382396 \tabularnewline
97 & 137.743542236795 \tabularnewline
98 & 144.620610233962 \tabularnewline
99 & 217.481031826518 \tabularnewline
100 & 238.692627276993 \tabularnewline
101 & 349.535292878498 \tabularnewline
102 & 386.419423258650 \tabularnewline
103 & 858.378118614952 \tabularnewline
104 & 1734.59640264382 \tabularnewline
105 & 3010.53634079378 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24739&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.41421356237310[/C][/ROW]
[ROW][C]3[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]4[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]5[/C][C]1.41421356237310[/C][/ROW]
[ROW][C]6[/C][C]1.73205080756888[/C][/ROW]
[ROW][C]7[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]8[/C][C]2.23606797749979[/C][/ROW]
[ROW][C]9[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]10[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]11[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]12[/C][C]2.44948974278318[/C][/ROW]
[ROW][C]13[/C][C]2.82842712474619[/C][/ROW]
[ROW][C]14[/C][C]3[/C][/ROW]
[ROW][C]15[/C][C]3.04299673483065[/C][/ROW]
[ROW][C]16[/C][C]3.3166247903554[/C][/ROW]
[ROW][C]17[/C][C]3.65602689891371[/C][/ROW]
[ROW][C]18[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]19[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]20[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]21[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]22[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]23[/C][C]3.74165738677394[/C][/ROW]
[ROW][C]24[/C][C]4.12310562561766[/C][/ROW]
[ROW][C]25[/C][C]4.12310562561766[/C][/ROW]
[ROW][C]26[/C][C]4.19531255396809[/C][/ROW]
[ROW][C]27[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]28[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]29[/C][C]4.24264068711928[/C][/ROW]
[ROW][C]30[/C][C]4.35889894354067[/C][/ROW]
[ROW][C]31[/C][C]4.58257569495584[/C][/ROW]
[ROW][C]32[/C][C]4.89897948556636[/C][/ROW]
[ROW][C]33[/C][C]5.09901951359278[/C][/ROW]
[ROW][C]34[/C][C]5.09901951359278[/C][/ROW]
[ROW][C]35[/C][C]5.53125745811468[/C][/ROW]
[ROW][C]36[/C][C]5.74456264653803[/C][/ROW]
[ROW][C]37[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]38[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]39[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]40[/C][C]6.16441400296898[/C][/ROW]
[ROW][C]41[/C][C]6.48074069840786[/C][/ROW]
[ROW][C]42[/C][C]6.96564801457551[/C][/ROW]
[ROW][C]43[/C][C]7.34846922834953[/C][/ROW]
[ROW][C]44[/C][C]8.09190611531691[/C][/ROW]
[ROW][C]45[/C][C]8.20407816807507[/C][/ROW]
[ROW][C]46[/C][C]8.48528137423857[/C][/ROW]
[ROW][C]47[/C][C]9.00353107304067[/C][/ROW]
[ROW][C]48[/C][C]9.47161567483146[/C][/ROW]
[ROW][C]49[/C][C]9.89949493661167[/C][/ROW]
[ROW][C]50[/C][C]10.0035541233253[/C][/ROW]
[ROW][C]51[/C][C]10.0436084811547[/C][/ROW]
[ROW][C]52[/C][C]10.4783014776451[/C][/ROW]
[ROW][C]53[/C][C]10.7009376651595[/C][/ROW]
[ROW][C]54[/C][C]10.7238052947636[/C][/ROW]
[ROW][C]55[/C][C]10.9198183276202[/C][/ROW]
[ROW][C]56[/C][C]11.352162112529[/C][/ROW]
[ROW][C]57[/C][C]11.3578166916005[/C][/ROW]
[ROW][C]58[/C][C]11.7688290727508[/C][/ROW]
[ROW][C]59[/C][C]11.9339157331054[/C][/ROW]
[ROW][C]60[/C][C]12.2642459334231[/C][/ROW]
[ROW][C]61[/C][C]12.3828431695042[/C][/ROW]
[ROW][C]62[/C][C]13.2567139436797[/C][/ROW]
[ROW][C]63[/C][C]13.5432442106297[/C][/ROW]
[ROW][C]64[/C][C]14.0367549301043[/C][/ROW]
[ROW][C]65[/C][C]14.3180005190900[/C][/ROW]
[ROW][C]66[/C][C]14.4328855830626[/C][/ROW]
[ROW][C]67[/C][C]14.7017043493017[/C][/ROW]
[ROW][C]68[/C][C]15.1172612831014[/C][/ROW]
[ROW][C]69[/C][C]16.6511101865354[/C][/ROW]
[ROW][C]70[/C][C]19.1887274389745[/C][/ROW]
[ROW][C]71[/C][C]19.6176303718507[/C][/ROW]
[ROW][C]72[/C][C]21.0466606673232[/C][/ROW]
[ROW][C]73[/C][C]21.5136604490006[/C][/ROW]
[ROW][C]74[/C][C]22.1209977377159[/C][/ROW]
[ROW][C]75[/C][C]22.3529657729801[/C][/ROW]
[ROW][C]76[/C][C]22.9261441364216[/C][/ROW]
[ROW][C]77[/C][C]24.4873530190255[/C][/ROW]
[ROW][C]78[/C][C]25.3853212333016[/C][/ROW]
[ROW][C]79[/C][C]26.5044481470131[/C][/ROW]
[ROW][C]80[/C][C]26.6336278201362[/C][/ROW]
[ROW][C]81[/C][C]27.0038179354249[/C][/ROW]
[ROW][C]82[/C][C]28.2189872358057[/C][/ROW]
[ROW][C]83[/C][C]36.5424602768386[/C][/ROW]
[ROW][C]84[/C][C]37.2045360954518[/C][/ROW]
[ROW][C]85[/C][C]39.0686494559738[/C][/ROW]
[ROW][C]86[/C][C]39.5824941977336[/C][/ROW]
[ROW][C]87[/C][C]40.7455027169033[/C][/ROW]
[ROW][C]88[/C][C]41.9742545325414[/C][/ROW]
[ROW][C]89[/C][C]48.030064668399[/C][/ROW]
[ROW][C]90[/C][C]53.5915919270773[/C][/ROW]
[ROW][C]91[/C][C]57.9344083137191[/C][/ROW]
[ROW][C]92[/C][C]70.4703066696427[/C][/ROW]
[ROW][C]93[/C][C]74.7229657882031[/C][/ROW]
[ROW][C]94[/C][C]87.5786186610769[/C][/ROW]
[ROW][C]95[/C][C]114.544243689187[/C][/ROW]
[ROW][C]96[/C][C]133.288365382396[/C][/ROW]
[ROW][C]97[/C][C]137.743542236795[/C][/ROW]
[ROW][C]98[/C][C]144.620610233962[/C][/ROW]
[ROW][C]99[/C][C]217.481031826518[/C][/ROW]
[ROW][C]100[/C][C]238.692627276993[/C][/ROW]
[ROW][C]101[/C][C]349.535292878498[/C][/ROW]
[ROW][C]102[/C][C]386.419423258650[/C][/ROW]
[ROW][C]103[/C][C]858.378118614952[/C][/ROW]
[ROW][C]104[/C][C]1734.59640264382[/C][/ROW]
[ROW][C]105[/C][C]3010.53634079378[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24739&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24739&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.41421356237310
31.41421356237310
41.41421356237310
51.41421356237310
61.73205080756888
72.23606797749979
82.23606797749979
92.44948974278318
102.44948974278318
112.44948974278318
122.44948974278318
132.82842712474619
143
153.04299673483065
163.3166247903554
173.65602689891371
183.74165738677394
193.74165738677394
203.74165738677394
213.74165738677394
223.74165738677394
233.74165738677394
244.12310562561766
254.12310562561766
264.19531255396809
274.24264068711928
284.24264068711928
294.24264068711928
304.35889894354067
314.58257569495584
324.89897948556636
335.09901951359278
345.09901951359278
355.53125745811468
365.74456264653803
376.16441400296898
386.16441400296898
396.16441400296898
406.16441400296898
416.48074069840786
426.96564801457551
437.34846922834953
448.09190611531691
458.20407816807507
468.48528137423857
479.00353107304067
489.47161567483146
499.89949493661167
5010.0035541233253
5110.0436084811547
5210.4783014776451
5310.7009376651595
5410.7238052947636
5510.9198183276202
5611.352162112529
5711.3578166916005
5811.7688290727508
5911.9339157331054
6012.2642459334231
6112.3828431695042
6213.2567139436797
6313.5432442106297
6414.0367549301043
6514.3180005190900
6614.4328855830626
6714.7017043493017
6815.1172612831014
6916.6511101865354
7019.1887274389745
7119.6176303718507
7221.0466606673232
7321.5136604490006
7422.1209977377159
7522.3529657729801
7622.9261441364216
7724.4873530190255
7825.3853212333016
7926.5044481470131
8026.6336278201362
8127.0038179354249
8228.2189872358057
8336.5424602768386
8437.2045360954518
8539.0686494559738
8639.5824941977336
8740.7455027169033
8841.9742545325414
8948.030064668399
9053.5915919270773
9157.9344083137191
9270.4703066696427
9374.7229657882031
9487.5786186610769
95114.544243689187
96133.288365382396
97137.743542236795
98144.620610233962
99217.481031826518
100238.692627276993
101349.535292878498
102386.419423258650
103858.378118614952
1041734.59640264382
1053010.53634079378


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