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 computationTue, 11 Nov 2008 07:05: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/2008/Nov/11/t1226412519wvgbi7kyymdeksi.htm/, Retrieved Sun, 19 May 2024 07:18:56 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=23492, Retrieved Sun, 19 May 2024 07:18:56 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Hierarchical Clustering] [Various EDA Topic...] [2008-11-11 14:05:20] [620b6ad5c4696049e39cb73ce029682c] [Current]
Feedback Forum
2008-11-14 10:23:35 [Ciska Tanghe] [reply] 
Via het dendogram kunnen we observaties onderscheiden die als gemeenschappelijk gezien worden. Hier worden de observaties in twee takken gesplitst en verder onderverdeelt tot we bij 1 observatie komen. Heel wat observaties kunnen als gemeenschappelijk gezien worden.
2008-11-24 18:01:00 [Jan Cavents] [reply] 
in het dendrogram kunnen we de clusters achterhalen. de clusters worden gegroepeerd op gelijkaardige eigenschappen.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1045,9	1593	0,8721	4,5
1401,9	1477,9	0,8552	4,7
1027,6	1733,7	0,8564	4,75
1703,8	1569,7	0,8973	4,75
1481,3	1843,7	0,9383	4,75
1422,7	1950,3	0,9217	4,75
1304,7	1657,5	0,9095	4,75
1246,1	1772,1	0,892	4,75
1417,8	1568,3	0,8742	4,58
1459,1	1809,8	0,8532	4,5
1156,4	1646,7	0,8607	4,5
1304,5	1808,5	0,9005	4,49
1336,9	1763,9	0,9111	4,03
1372,3	1625,5	0,9059	3,75
975,5	1538,8	0,8883	3,39
1180,8	1342,4	0,8924	3,25
1361,3	1645,1	0,8833	3,25
1428,1	1619,9	0,87	3,25
1355,9	1338,1	0,8758	3,25
1781,2	1505,5	0,8858	3,25
1697	1529,1	0,917	3,25
1852	1511,9	0,9554	3,25
1844,1	1656,7	0,9922	3,25
1967,2	1694,4	0,9778	3,25
1747,1	1662,3	0,9808	3,25
1863,9	1588,7	0,9811	3,25
1559,3	1483,3	1,0014	3,25
1675	1585,6	1,0183	2,85
2237,5	1658,9	1,0622	2,75
1965,2	1584,4	1,0773	2,75
1871,5	1470,6	1,0807	2,55
1752,2	1618,7	1,0848	2,5
1360,7	1407,6	1,1582	2,5
1444,3	1473,9	1,1663	2,1
1621,6	1515,3	1,1372	2
1368	1485,4	1,1139	2
1553,9	1496,1	1,1222	2
1695,3	1493,5	1,1692	2
1397,1	1298,4	1,1702	2
1848,4	1375,3	1,2286	2
1809,2	1507,9	1,2613	2
1551,1	1455,3	1,2646	2
1546,6	1363,3	1,2262	2
1467,9	1392,8	1,1985	2
1662,4	1348,8	1,2007	2
1972,3	1880,3	1,2138	2
1673,5	1669,2	1,2266	2
1762	1543,6	1,2176	2
2019,8	1701,2	1,2218	2
1754,3	1516,5	1,249	2
1400,4	1466,8	1,2991	2
1453,6	1484,1	1,3408	2
1740,9	1577,2	1,3119	2
1694,6	1684,5	1,3014	2
1541,2	1414,7	1,3201	2
1482,3	1674,5	1,2938	2
1632,1	1598,7	1,2694	2
1837,3	1739,1	1,2165	2
1797	1674,6	1,2037	2
2066,2	1671,8	1,2292	2
1983,8	1802	1,2256	2
1601,7	1526,8	1,2015	2
1660,3	1580,9	1,1786	2
1954	1634,8	1,1856	2,21
1991,9	1610,3	1,2103	2,25
1881,4	1712	1,1938	2,25
2345,5	1678,8	1,202	2,45
1773,1	1708,1	1,2271	2,5
1719,2	1680,6	1,277	2,5
2240,9	2056	1,265	2,64
1816,4	1624	1,2684	2,75
2171,3	2021,4	1,2811	2,93
1823,3	1861,1	1,2727	3
2022,5	1750,8	1,2611	3,17
1991	1767,5	1,2881	3,25
1920	1710,3	1,3213	3,39
2168,4	2151,5	1,2999	3,5
2013,5	2047,9	1,3074	3,5
1790,8	1915,4	1,3242	3,65
1855,7	1984,7	1,3516	3,75
2074	1896,5	1,3511	3,75
2535,8	2170,8	1,3419	3,9
1837,2	2139,9	1,3716	4
1805,1	2330,5	1,3622	4
1785,7	2121,8	1,3896	4
2250	2226,8	1,4227	4
1959,7	1857,9	1,4684	4
1890,8	2155,9	1,457	4
2405,7	2341,7	1,4718	4
2090,3	2290,2	1,4748	4
1666,5	2006,5	1,5527	4
1803,5	2111,9	1,575	4
1793,8	1731,3	1,5557	4
1488,8	1762,2	1,5553	4
1545	1863,2	1,577	4,18
1369,9	1943,5	1,4975	4,25
1451,6	1975,2	1,4369	4,25

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23492&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Summary of Dendrogram
LabelHeight
111.5302665715066
213.8047256492114
313.9490893122095
415.4573023548742
520.3687106405879
622.4813369433403
722.9839973566391
824.9122579337965
925.7795426871772
1028.1329610999269
1128.1726993019838
1231.1301779301051
1335.2655129871947
1435.6633720340631
1537.2017162104115
1637.9525281524171
1738.1541011038132
1838.6544416108937
1940.4736453767965
2040.5230766602193
2141.7896288599216
2242.8591447236175
2343.9037961456637
2444.2801220798038
2545.6776280041993
2646.9890916410238
2749.6872261702139
2852.1072816064509
2952.6347690945825
3054.9441003025444
3155.1283204202704
3255.937172731199
3357.2291811173283
3463.2863741436498
3565.1098233079864
3671.4650695334922
3772.3852109029949
3874.2762056862895
3977.7264714187514
4078.4672749382898
4181.0128424126517
4281.1992427051352
4381.9320977684893
4488.2825357086792
4588.8539946341188
4693.0987947436962
47101.374086111812
48101.516424424151
49102.374874530380
50109.818575587375
51110.527109081135
52111.035647788627
53111.929881576374
54113.676925133847
55115.17598346574
56116.605127210698
57127.386579903197
58133.368265814836
59140.499674937595
60141.250623625962
61151.984219489065
62155.430056676597
63158.567731298477
64183.656323558882
65194.423737141212
66195.64116579808
67198.229555432800
68214.78558348737
69216.422451432605
70219.872691930392
71224.984066614386
72231.533848275424
73234.834897626026
74244.847878445762
75288.098965940868
76311.344465810703
77315.582044341469
78348.600651502825
79389.174582784162
80403.83039589531
81454.295850036313
82507.332521393584
83560.698062638709
84614.207481351393
85755.120420562977
86806.897565964837
87938.311506821412
88977.52853169423
891011.51704364708
901046.74537339903
911618.62939014278
922296.92442092311
932593.30099827492
943564.94550253035
957035.60095892096
9612535.9084782997

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 11.5302665715066 \tabularnewline
2 & 13.8047256492114 \tabularnewline
3 & 13.9490893122095 \tabularnewline
4 & 15.4573023548742 \tabularnewline
5 & 20.3687106405879 \tabularnewline
6 & 22.4813369433403 \tabularnewline
7 & 22.9839973566391 \tabularnewline
8 & 24.9122579337965 \tabularnewline
9 & 25.7795426871772 \tabularnewline
10 & 28.1329610999269 \tabularnewline
11 & 28.1726993019838 \tabularnewline
12 & 31.1301779301051 \tabularnewline
13 & 35.2655129871947 \tabularnewline
14 & 35.6633720340631 \tabularnewline
15 & 37.2017162104115 \tabularnewline
16 & 37.9525281524171 \tabularnewline
17 & 38.1541011038132 \tabularnewline
18 & 38.6544416108937 \tabularnewline
19 & 40.4736453767965 \tabularnewline
20 & 40.5230766602193 \tabularnewline
21 & 41.7896288599216 \tabularnewline
22 & 42.8591447236175 \tabularnewline
23 & 43.9037961456637 \tabularnewline
24 & 44.2801220798038 \tabularnewline
25 & 45.6776280041993 \tabularnewline
26 & 46.9890916410238 \tabularnewline
27 & 49.6872261702139 \tabularnewline
28 & 52.1072816064509 \tabularnewline
29 & 52.6347690945825 \tabularnewline
30 & 54.9441003025444 \tabularnewline
31 & 55.1283204202704 \tabularnewline
32 & 55.937172731199 \tabularnewline
33 & 57.2291811173283 \tabularnewline
34 & 63.2863741436498 \tabularnewline
35 & 65.1098233079864 \tabularnewline
36 & 71.4650695334922 \tabularnewline
37 & 72.3852109029949 \tabularnewline
38 & 74.2762056862895 \tabularnewline
39 & 77.7264714187514 \tabularnewline
40 & 78.4672749382898 \tabularnewline
41 & 81.0128424126517 \tabularnewline
42 & 81.1992427051352 \tabularnewline
43 & 81.9320977684893 \tabularnewline
44 & 88.2825357086792 \tabularnewline
45 & 88.8539946341188 \tabularnewline
46 & 93.0987947436962 \tabularnewline
47 & 101.374086111812 \tabularnewline
48 & 101.516424424151 \tabularnewline
49 & 102.374874530380 \tabularnewline
50 & 109.818575587375 \tabularnewline
51 & 110.527109081135 \tabularnewline
52 & 111.035647788627 \tabularnewline
53 & 111.929881576374 \tabularnewline
54 & 113.676925133847 \tabularnewline
55 & 115.17598346574 \tabularnewline
56 & 116.605127210698 \tabularnewline
57 & 127.386579903197 \tabularnewline
58 & 133.368265814836 \tabularnewline
59 & 140.499674937595 \tabularnewline
60 & 141.250623625962 \tabularnewline
61 & 151.984219489065 \tabularnewline
62 & 155.430056676597 \tabularnewline
63 & 158.567731298477 \tabularnewline
64 & 183.656323558882 \tabularnewline
65 & 194.423737141212 \tabularnewline
66 & 195.64116579808 \tabularnewline
67 & 198.229555432800 \tabularnewline
68 & 214.78558348737 \tabularnewline
69 & 216.422451432605 \tabularnewline
70 & 219.872691930392 \tabularnewline
71 & 224.984066614386 \tabularnewline
72 & 231.533848275424 \tabularnewline
73 & 234.834897626026 \tabularnewline
74 & 244.847878445762 \tabularnewline
75 & 288.098965940868 \tabularnewline
76 & 311.344465810703 \tabularnewline
77 & 315.582044341469 \tabularnewline
78 & 348.600651502825 \tabularnewline
79 & 389.174582784162 \tabularnewline
80 & 403.83039589531 \tabularnewline
81 & 454.295850036313 \tabularnewline
82 & 507.332521393584 \tabularnewline
83 & 560.698062638709 \tabularnewline
84 & 614.207481351393 \tabularnewline
85 & 755.120420562977 \tabularnewline
86 & 806.897565964837 \tabularnewline
87 & 938.311506821412 \tabularnewline
88 & 977.52853169423 \tabularnewline
89 & 1011.51704364708 \tabularnewline
90 & 1046.74537339903 \tabularnewline
91 & 1618.62939014278 \tabularnewline
92 & 2296.92442092311 \tabularnewline
93 & 2593.30099827492 \tabularnewline
94 & 3564.94550253035 \tabularnewline
95 & 7035.60095892096 \tabularnewline
96 & 12535.9084782997 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=23492&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]11.5302665715066[/C][/ROW]
[ROW][C]2[/C][C]13.8047256492114[/C][/ROW]
[ROW][C]3[/C][C]13.9490893122095[/C][/ROW]
[ROW][C]4[/C][C]15.4573023548742[/C][/ROW]
[ROW][C]5[/C][C]20.3687106405879[/C][/ROW]
[ROW][C]6[/C][C]22.4813369433403[/C][/ROW]
[ROW][C]7[/C][C]22.9839973566391[/C][/ROW]
[ROW][C]8[/C][C]24.9122579337965[/C][/ROW]
[ROW][C]9[/C][C]25.7795426871772[/C][/ROW]
[ROW][C]10[/C][C]28.1329610999269[/C][/ROW]
[ROW][C]11[/C][C]28.1726993019838[/C][/ROW]
[ROW][C]12[/C][C]31.1301779301051[/C][/ROW]
[ROW][C]13[/C][C]35.2655129871947[/C][/ROW]
[ROW][C]14[/C][C]35.6633720340631[/C][/ROW]
[ROW][C]15[/C][C]37.2017162104115[/C][/ROW]
[ROW][C]16[/C][C]37.9525281524171[/C][/ROW]
[ROW][C]17[/C][C]38.1541011038132[/C][/ROW]
[ROW][C]18[/C][C]38.6544416108937[/C][/ROW]
[ROW][C]19[/C][C]40.4736453767965[/C][/ROW]
[ROW][C]20[/C][C]40.5230766602193[/C][/ROW]
[ROW][C]21[/C][C]41.7896288599216[/C][/ROW]
[ROW][C]22[/C][C]42.8591447236175[/C][/ROW]
[ROW][C]23[/C][C]43.9037961456637[/C][/ROW]
[ROW][C]24[/C][C]44.2801220798038[/C][/ROW]
[ROW][C]25[/C][C]45.6776280041993[/C][/ROW]
[ROW][C]26[/C][C]46.9890916410238[/C][/ROW]
[ROW][C]27[/C][C]49.6872261702139[/C][/ROW]
[ROW][C]28[/C][C]52.1072816064509[/C][/ROW]
[ROW][C]29[/C][C]52.6347690945825[/C][/ROW]
[ROW][C]30[/C][C]54.9441003025444[/C][/ROW]
[ROW][C]31[/C][C]55.1283204202704[/C][/ROW]
[ROW][C]32[/C][C]55.937172731199[/C][/ROW]
[ROW][C]33[/C][C]57.2291811173283[/C][/ROW]
[ROW][C]34[/C][C]63.2863741436498[/C][/ROW]
[ROW][C]35[/C][C]65.1098233079864[/C][/ROW]
[ROW][C]36[/C][C]71.4650695334922[/C][/ROW]
[ROW][C]37[/C][C]72.3852109029949[/C][/ROW]
[ROW][C]38[/C][C]74.2762056862895[/C][/ROW]
[ROW][C]39[/C][C]77.7264714187514[/C][/ROW]
[ROW][C]40[/C][C]78.4672749382898[/C][/ROW]
[ROW][C]41[/C][C]81.0128424126517[/C][/ROW]
[ROW][C]42[/C][C]81.1992427051352[/C][/ROW]
[ROW][C]43[/C][C]81.9320977684893[/C][/ROW]
[ROW][C]44[/C][C]88.2825357086792[/C][/ROW]
[ROW][C]45[/C][C]88.8539946341188[/C][/ROW]
[ROW][C]46[/C][C]93.0987947436962[/C][/ROW]
[ROW][C]47[/C][C]101.374086111812[/C][/ROW]
[ROW][C]48[/C][C]101.516424424151[/C][/ROW]
[ROW][C]49[/C][C]102.374874530380[/C][/ROW]
[ROW][C]50[/C][C]109.818575587375[/C][/ROW]
[ROW][C]51[/C][C]110.527109081135[/C][/ROW]
[ROW][C]52[/C][C]111.035647788627[/C][/ROW]
[ROW][C]53[/C][C]111.929881576374[/C][/ROW]
[ROW][C]54[/C][C]113.676925133847[/C][/ROW]
[ROW][C]55[/C][C]115.17598346574[/C][/ROW]
[ROW][C]56[/C][C]116.605127210698[/C][/ROW]
[ROW][C]57[/C][C]127.386579903197[/C][/ROW]
[ROW][C]58[/C][C]133.368265814836[/C][/ROW]
[ROW][C]59[/C][C]140.499674937595[/C][/ROW]
[ROW][C]60[/C][C]141.250623625962[/C][/ROW]
[ROW][C]61[/C][C]151.984219489065[/C][/ROW]
[ROW][C]62[/C][C]155.430056676597[/C][/ROW]
[ROW][C]63[/C][C]158.567731298477[/C][/ROW]
[ROW][C]64[/C][C]183.656323558882[/C][/ROW]
[ROW][C]65[/C][C]194.423737141212[/C][/ROW]
[ROW][C]66[/C][C]195.64116579808[/C][/ROW]
[ROW][C]67[/C][C]198.229555432800[/C][/ROW]
[ROW][C]68[/C][C]214.78558348737[/C][/ROW]
[ROW][C]69[/C][C]216.422451432605[/C][/ROW]
[ROW][C]70[/C][C]219.872691930392[/C][/ROW]
[ROW][C]71[/C][C]224.984066614386[/C][/ROW]
[ROW][C]72[/C][C]231.533848275424[/C][/ROW]
[ROW][C]73[/C][C]234.834897626026[/C][/ROW]
[ROW][C]74[/C][C]244.847878445762[/C][/ROW]
[ROW][C]75[/C][C]288.098965940868[/C][/ROW]
[ROW][C]76[/C][C]311.344465810703[/C][/ROW]
[ROW][C]77[/C][C]315.582044341469[/C][/ROW]
[ROW][C]78[/C][C]348.600651502825[/C][/ROW]
[ROW][C]79[/C][C]389.174582784162[/C][/ROW]
[ROW][C]80[/C][C]403.83039589531[/C][/ROW]
[ROW][C]81[/C][C]454.295850036313[/C][/ROW]
[ROW][C]82[/C][C]507.332521393584[/C][/ROW]
[ROW][C]83[/C][C]560.698062638709[/C][/ROW]
[ROW][C]84[/C][C]614.207481351393[/C][/ROW]
[ROW][C]85[/C][C]755.120420562977[/C][/ROW]
[ROW][C]86[/C][C]806.897565964837[/C][/ROW]
[ROW][C]87[/C][C]938.311506821412[/C][/ROW]
[ROW][C]88[/C][C]977.52853169423[/C][/ROW]
[ROW][C]89[/C][C]1011.51704364708[/C][/ROW]
[ROW][C]90[/C][C]1046.74537339903[/C][/ROW]
[ROW][C]91[/C][C]1618.62939014278[/C][/ROW]
[ROW][C]92[/C][C]2296.92442092311[/C][/ROW]
[ROW][C]93[/C][C]2593.30099827492[/C][/ROW]
[ROW][C]94[/C][C]3564.94550253035[/C][/ROW]
[ROW][C]95[/C][C]7035.60095892096[/C][/ROW]
[ROW][C]96[/C][C]12535.9084782997[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=23492&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=23492&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
111.5302665715066
213.8047256492114
313.9490893122095
415.4573023548742
520.3687106405879
622.4813369433403
722.9839973566391
824.9122579337965
925.7795426871772
1028.1329610999269
1128.1726993019838
1231.1301779301051
1335.2655129871947
1435.6633720340631
1537.2017162104115
1637.9525281524171
1738.1541011038132
1838.6544416108937
1940.4736453767965
2040.5230766602193
2141.7896288599216
2242.8591447236175
2343.9037961456637
2444.2801220798038
2545.6776280041993
2646.9890916410238
2749.6872261702139
2852.1072816064509
2952.6347690945825
3054.9441003025444
3155.1283204202704
3255.937172731199
3357.2291811173283
3463.2863741436498
3565.1098233079864
3671.4650695334922
3772.3852109029949
3874.2762056862895
3977.7264714187514
4078.4672749382898
4181.0128424126517
4281.1992427051352
4381.9320977684893
4488.2825357086792
4588.8539946341188
4693.0987947436962
47101.374086111812
48101.516424424151
49102.374874530380
50109.818575587375
51110.527109081135
52111.035647788627
53111.929881576374
54113.676925133847
55115.17598346574
56116.605127210698
57127.386579903197
58133.368265814836
59140.499674937595
60141.250623625962
61151.984219489065
62155.430056676597
63158.567731298477
64183.656323558882
65194.423737141212
66195.64116579808
67198.229555432800
68214.78558348737
69216.422451432605
70219.872691930392
71224.984066614386
72231.533848275424
73234.834897626026
74244.847878445762
75288.098965940868
76311.344465810703
77315.582044341469
78348.600651502825
79389.174582784162
80403.83039589531
81454.295850036313
82507.332521393584
83560.698062638709
84614.207481351393
85755.120420562977
86806.897565964837
87938.311506821412
88977.52853169423
891011.51704364708
901046.74537339903
911618.62939014278
922296.92442092311
932593.30099827492
943564.94550253035
957035.60095892096
9612535.9084782997


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