Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_hierarchicalclustering.wasp

Title produced by software

Hierarchical Clustering

Date of computation

Wed, 05 Nov 2008 04:27:56 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Nov/05/t1225884662i2f6wg9w1psr5ny.htm/, Retrieved Sun, 19 May 2024 10:51:02 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=21688, Retrieved Sun, 19 May 2024 10:51:02 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

beste investering

Estimated Impact

186

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-       [Hierarchical Clustering] [hierarchical] [2008-11-05 11:27:56] [35c75b0726318bf2908e4a56ed2df1a9] [Current]
F    D    [Hierarchical Clustering] [Part2 Q3] [2008-11-05 14:57:11] [b478325fa744e3f2fc16a7222294469c] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

100.00	100.00	100.00	100.00	100.00
100.39	100.37	100.35	100.33	100.31
100.15	100.26	100.38	100.50	100.61
100.21	100.37	100.52	100.68	100.84
100.03	100.18	100.34	100.49	100.64
99.58	99.78	99.97	100.17	100.36
99.40	99.64	99.88	100.13	100.37
99.77	100.01	100.26	100.50	100.75
100.41	100.67	100.93	101.19	101.45
100.12	100.50	100.88	101.25	101.63
99.83	100.28	100.73	101.18	101.63
99.73	100.24	100.74	101.25	101.75
98.74	99.49	100.25	101.00	101.76
98.44	99.36	100.29	101.22	102.14
98.79	99.68	100.57	101.46	102.35
99.60	100.42	101.24	102.05	102.87
99.82	100.75	101.69	102.62	103.55
99.85	100.87	101.89	102.90	103.92
100.01	101.04	102.07	103.10	104.13
100.28	101.36	102.43	103.51	104.58
100.63	101.57	102.51	103.45	104.39
101.14	101.93	102.71	103.50	104.29
101.51	102.37	103.22	104.08	104.93
102.41	103.10	103.79	104.48	105.17
102.46	103.22	103.99	104.75	105.52
102.09	102.96	103.83	104.70	105.57
101.99	102.77	103.55	104.33	105.11
101.52	102.38	103.24	104.11	104.97
102.44	103.10	103.77	104.43	105.09
103.42	103.90	104.37	104.85	105.33
103.63	104.12	104.61	105.11	105.60
103.28	103.75	104.21	104.68	105.14
103.98	104.37	104.77	105.16	105.56
103.56	103.94	104.33	104.71	105.09
103.42	103.78	104.14	104.51	104.87
103.92	104.15	104.37	104.59	104.81
103.81	104.01	104.20	104.40	104.60
103.09	103.33	103.58	103.83	104.07
102.60	103.05	103.51	103.96	104.41
102.77	103.08	103.39	103.71	104.02
102.60	102.86	103.11	103.37	103.62
102.88	103.08	103.28	103.48	103.68
102.17	102.50	102.83	103.15	103.48
101.85	102.20	102.56	102.91	103.27
101.66	102.14	102.62	103.10	103.58
101.91	102.28	102.66	103.03	103.41
102.13	102.43	102.72	103.02	103.31
102.71	102.82	102.92	103.02	103.13
103.17	103.22	103.26	103.31	103.36
102.89	102.95	103.02	103.08	103.14
102.94	103.14	103.33	103.53	103.73
103.33	103.45	103.57	103.68	103.80
103.75	103.68	103.61	103.54	103.46
104.11	103.98	103.85	103.72	103.60
104.77	104.49	104.22	103.94	103.67
104.62	104.39	104.15	103.92	103.68
105.00	104.76	104.52	104.28	104.04
105.74	105.51	105.27	105.03	104.79
105.94	105.77	105.60	105.43	105.26
106.37	106.18	105.99	105.80	105.62
106.65	106.44	106.23	106.03	105.82
107.08	106.74	106.40	106.05	105.71
106.77	106.51	106.25	106.00	105.74
107.21	106.97	106.74	106.50	106.26
107.34	107.15	106.96	106.78	106.59
107.12	106.93	106.74	106.55	106.36
106.86	106.73	106.59	106.46	106.33
106.92	106.78	106.65	106.51	106.37
106.95	106.75	106.56	106.36	106.17
107.23	106.96	106.69	106.42	106.16
106.94	106.80	106.66	106.51	106.37
106.62	106.51	106.40	106.29	106.18
105.94	105.97	105.99	106.01	106.03
105.91	105.95	105.99	106.03	106.08
106.52	106.45	106.38	106.31	106.24
106.85	106.63	106.41	106.19	105.97
107.22	106.99	106.75	106.52	106.28
107.28	107.09	106.90	106.71	106.52
107.86	107.57	107.29	107.00	106.72
107.68	107.46	107.24	107.02	106.80
108.07	107.82	107.56	107.31	107.06
107.87	107.66	107.45	107.23	107.02
107.65	107.50	107.35	107.19	107.04
108.16	107.89	107.63	107.36	107.09
108.60	108.24	107.88	107.51	107.15
108.92	108.57	108.21	107.86	107.50
109.66	109.22	108.78	108.34	107.90
109.87	109.40	108.94	108.48	108.02
109.54	109.10	108.66	108.22	107.78
109.06	108.72	108.38	108.04	107.70

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 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=21688&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=21688&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=21688&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	2 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Summary of Dendrogram
Label	Height
1	0.0299999999999917
2	0.0374165738677358
3	0.0556776436282904
4	0.0648074069840745
5	0.100995049383620
6	0.121243556529820
7	0.134164078649990
8	0.143527000944077
9	0.145945195193266
10	0.152970585407785
11	0.163300979821645
12	0.164316767251545
13	0.176068168616588
14	0.183468083190345
15	0.194679223339306
16	0.231948270094860
17	0.232379000772445
18	0.234103949421772
19	0.248596057893118
20	0.250998007960231
21	0.253771550808995
22	0.268328157299979
23	0.293257565972305
24	0.316227766016834
25	0.32929890875376
26	0.356651090002537
27	0.375233260785878
28	0.378681924575238
29	0.389230009120564
30	0.390256326021763
31	0.409267638593615
32	0.4135214625627
33	0.430346953964598
34	0.46100232915938
35	0.461194102304
36	0.463357313528128
37	0.48487111689602
38	0.508723893679078
39	0.547585436975212
40	0.548908006864532
41	0.555728689588056
42	0.573759531511236
43	0.579454755524286
44	0.5884185316805
45	0.589913722268332
46	0.594868748143212
47	0.685127189444694
48	0.770384067202799
49	0.772916554357583
50	0.776931204703164
51	0.787010512536164
52	0.799346901101809
53	0.816828616579093
54	0.871059575723716
55	0.89520203285896
56	0.90609935637555
57	0.94001867100631
58	0.961468904871025
59	0.984369290194267
60	1.01225549530763
61	1.02808640647760
62	1.03029301129982
63	1.08599465229288
64	1.28985922882375
65	1.37608026260372
66	1.44950354164891
67	1.88053848723569
68	2.01187015093102
69	2.09543557282688
70	2.22055097151029
71	2.42317860065757
72	2.46738313497844
73	2.47612233218159
74	2.51610705543429
75	3.01082863237282
76	4.00420962811647
77	4.33399374944441
78	4.75065421973945
79	6.83522687067898
80	8.08107479694255
81	8.17049499412734
82	9.00252795970705
83	11.1322070511096
84	12.9060730880405
85	20.6236375216549
86	29.9377708011934
87	33.6455573326673
88	105.896280145051
89	284.448889595672

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 0.0299999999999917 \tabularnewline
2 & 0.0374165738677358 \tabularnewline
3 & 0.0556776436282904 \tabularnewline
4 & 0.0648074069840745 \tabularnewline
5 & 0.100995049383620 \tabularnewline
6 & 0.121243556529820 \tabularnewline
7 & 0.134164078649990 \tabularnewline
8 & 0.143527000944077 \tabularnewline
9 & 0.145945195193266 \tabularnewline
10 & 0.152970585407785 \tabularnewline
11 & 0.163300979821645 \tabularnewline
12 & 0.164316767251545 \tabularnewline
13 & 0.176068168616588 \tabularnewline
14 & 0.183468083190345 \tabularnewline
15 & 0.194679223339306 \tabularnewline
16 & 0.231948270094860 \tabularnewline
17 & 0.232379000772445 \tabularnewline
18 & 0.234103949421772 \tabularnewline
19 & 0.248596057893118 \tabularnewline
20 & 0.250998007960231 \tabularnewline
21 & 0.253771550808995 \tabularnewline
22 & 0.268328157299979 \tabularnewline
23 & 0.293257565972305 \tabularnewline
24 & 0.316227766016834 \tabularnewline
25 & 0.32929890875376 \tabularnewline
26 & 0.356651090002537 \tabularnewline
27 & 0.375233260785878 \tabularnewline
28 & 0.378681924575238 \tabularnewline
29 & 0.389230009120564 \tabularnewline
30 & 0.390256326021763 \tabularnewline
31 & 0.409267638593615 \tabularnewline
32 & 0.4135214625627 \tabularnewline
33 & 0.430346953964598 \tabularnewline
34 & 0.46100232915938 \tabularnewline
35 & 0.461194102304 \tabularnewline
36 & 0.463357313528128 \tabularnewline
37 & 0.48487111689602 \tabularnewline
38 & 0.508723893679078 \tabularnewline
39 & 0.547585436975212 \tabularnewline
40 & 0.548908006864532 \tabularnewline
41 & 0.555728689588056 \tabularnewline
42 & 0.573759531511236 \tabularnewline
43 & 0.579454755524286 \tabularnewline
44 & 0.5884185316805 \tabularnewline
45 & 0.589913722268332 \tabularnewline
46 & 0.594868748143212 \tabularnewline
47 & 0.685127189444694 \tabularnewline
48 & 0.770384067202799 \tabularnewline
49 & 0.772916554357583 \tabularnewline
50 & 0.776931204703164 \tabularnewline
51 & 0.787010512536164 \tabularnewline
52 & 0.799346901101809 \tabularnewline
53 & 0.816828616579093 \tabularnewline
54 & 0.871059575723716 \tabularnewline
55 & 0.89520203285896 \tabularnewline
56 & 0.90609935637555 \tabularnewline
57 & 0.94001867100631 \tabularnewline
58 & 0.961468904871025 \tabularnewline
59 & 0.984369290194267 \tabularnewline
60 & 1.01225549530763 \tabularnewline
61 & 1.02808640647760 \tabularnewline
62 & 1.03029301129982 \tabularnewline
63 & 1.08599465229288 \tabularnewline
64 & 1.28985922882375 \tabularnewline
65 & 1.37608026260372 \tabularnewline
66 & 1.44950354164891 \tabularnewline
67 & 1.88053848723569 \tabularnewline
68 & 2.01187015093102 \tabularnewline
69 & 2.09543557282688 \tabularnewline
70 & 2.22055097151029 \tabularnewline
71 & 2.42317860065757 \tabularnewline
72 & 2.46738313497844 \tabularnewline
73 & 2.47612233218159 \tabularnewline
74 & 2.51610705543429 \tabularnewline
75 & 3.01082863237282 \tabularnewline
76 & 4.00420962811647 \tabularnewline
77 & 4.33399374944441 \tabularnewline
78 & 4.75065421973945 \tabularnewline
79 & 6.83522687067898 \tabularnewline
80 & 8.08107479694255 \tabularnewline
81 & 8.17049499412734 \tabularnewline
82 & 9.00252795970705 \tabularnewline
83 & 11.1322070511096 \tabularnewline
84 & 12.9060730880405 \tabularnewline
85 & 20.6236375216549 \tabularnewline
86 & 29.9377708011934 \tabularnewline
87 & 33.6455573326673 \tabularnewline
88 & 105.896280145051 \tabularnewline
89 & 284.448889595672 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=21688&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]0.0299999999999917[/C][/ROW]
[ROW][C]2[/C][C]0.0374165738677358[/C][/ROW]
[ROW][C]3[/C][C]0.0556776436282904[/C][/ROW]
[ROW][C]4[/C][C]0.0648074069840745[/C][/ROW]
[ROW][C]5[/C][C]0.100995049383620[/C][/ROW]
[ROW][C]6[/C][C]0.121243556529820[/C][/ROW]
[ROW][C]7[/C][C]0.134164078649990[/C][/ROW]
[ROW][C]8[/C][C]0.143527000944077[/C][/ROW]
[ROW][C]9[/C][C]0.145945195193266[/C][/ROW]
[ROW][C]10[/C][C]0.152970585407785[/C][/ROW]
[ROW][C]11[/C][C]0.163300979821645[/C][/ROW]
[ROW][C]12[/C][C]0.164316767251545[/C][/ROW]
[ROW][C]13[/C][C]0.176068168616588[/C][/ROW]
[ROW][C]14[/C][C]0.183468083190345[/C][/ROW]
[ROW][C]15[/C][C]0.194679223339306[/C][/ROW]
[ROW][C]16[/C][C]0.231948270094860[/C][/ROW]
[ROW][C]17[/C][C]0.232379000772445[/C][/ROW]
[ROW][C]18[/C][C]0.234103949421772[/C][/ROW]
[ROW][C]19[/C][C]0.248596057893118[/C][/ROW]
[ROW][C]20[/C][C]0.250998007960231[/C][/ROW]
[ROW][C]21[/C][C]0.253771550808995[/C][/ROW]
[ROW][C]22[/C][C]0.268328157299979[/C][/ROW]
[ROW][C]23[/C][C]0.293257565972305[/C][/ROW]
[ROW][C]24[/C][C]0.316227766016834[/C][/ROW]
[ROW][C]25[/C][C]0.32929890875376[/C][/ROW]
[ROW][C]26[/C][C]0.356651090002537[/C][/ROW]
[ROW][C]27[/C][C]0.375233260785878[/C][/ROW]
[ROW][C]28[/C][C]0.378681924575238[/C][/ROW]
[ROW][C]29[/C][C]0.389230009120564[/C][/ROW]
[ROW][C]30[/C][C]0.390256326021763[/C][/ROW]
[ROW][C]31[/C][C]0.409267638593615[/C][/ROW]
[ROW][C]32[/C][C]0.4135214625627[/C][/ROW]
[ROW][C]33[/C][C]0.430346953964598[/C][/ROW]
[ROW][C]34[/C][C]0.46100232915938[/C][/ROW]
[ROW][C]35[/C][C]0.461194102304[/C][/ROW]
[ROW][C]36[/C][C]0.463357313528128[/C][/ROW]
[ROW][C]37[/C][C]0.48487111689602[/C][/ROW]
[ROW][C]38[/C][C]0.508723893679078[/C][/ROW]
[ROW][C]39[/C][C]0.547585436975212[/C][/ROW]
[ROW][C]40[/C][C]0.548908006864532[/C][/ROW]
[ROW][C]41[/C][C]0.555728689588056[/C][/ROW]
[ROW][C]42[/C][C]0.573759531511236[/C][/ROW]
[ROW][C]43[/C][C]0.579454755524286[/C][/ROW]
[ROW][C]44[/C][C]0.5884185316805[/C][/ROW]
[ROW][C]45[/C][C]0.589913722268332[/C][/ROW]
[ROW][C]46[/C][C]0.594868748143212[/C][/ROW]
[ROW][C]47[/C][C]0.685127189444694[/C][/ROW]
[ROW][C]48[/C][C]0.770384067202799[/C][/ROW]
[ROW][C]49[/C][C]0.772916554357583[/C][/ROW]
[ROW][C]50[/C][C]0.776931204703164[/C][/ROW]
[ROW][C]51[/C][C]0.787010512536164[/C][/ROW]
[ROW][C]52[/C][C]0.799346901101809[/C][/ROW]
[ROW][C]53[/C][C]0.816828616579093[/C][/ROW]
[ROW][C]54[/C][C]0.871059575723716[/C][/ROW]
[ROW][C]55[/C][C]0.89520203285896[/C][/ROW]
[ROW][C]56[/C][C]0.90609935637555[/C][/ROW]
[ROW][C]57[/C][C]0.94001867100631[/C][/ROW]
[ROW][C]58[/C][C]0.961468904871025[/C][/ROW]
[ROW][C]59[/C][C]0.984369290194267[/C][/ROW]
[ROW][C]60[/C][C]1.01225549530763[/C][/ROW]
[ROW][C]61[/C][C]1.02808640647760[/C][/ROW]
[ROW][C]62[/C][C]1.03029301129982[/C][/ROW]
[ROW][C]63[/C][C]1.08599465229288[/C][/ROW]
[ROW][C]64[/C][C]1.28985922882375[/C][/ROW]
[ROW][C]65[/C][C]1.37608026260372[/C][/ROW]
[ROW][C]66[/C][C]1.44950354164891[/C][/ROW]
[ROW][C]67[/C][C]1.88053848723569[/C][/ROW]
[ROW][C]68[/C][C]2.01187015093102[/C][/ROW]
[ROW][C]69[/C][C]2.09543557282688[/C][/ROW]
[ROW][C]70[/C][C]2.22055097151029[/C][/ROW]
[ROW][C]71[/C][C]2.42317860065757[/C][/ROW]
[ROW][C]72[/C][C]2.46738313497844[/C][/ROW]
[ROW][C]73[/C][C]2.47612233218159[/C][/ROW]
[ROW][C]74[/C][C]2.51610705543429[/C][/ROW]
[ROW][C]75[/C][C]3.01082863237282[/C][/ROW]
[ROW][C]76[/C][C]4.00420962811647[/C][/ROW]
[ROW][C]77[/C][C]4.33399374944441[/C][/ROW]
[ROW][C]78[/C][C]4.75065421973945[/C][/ROW]
[ROW][C]79[/C][C]6.83522687067898[/C][/ROW]
[ROW][C]80[/C][C]8.08107479694255[/C][/ROW]
[ROW][C]81[/C][C]8.17049499412734[/C][/ROW]
[ROW][C]82[/C][C]9.00252795970705[/C][/ROW]
[ROW][C]83[/C][C]11.1322070511096[/C][/ROW]
[ROW][C]84[/C][C]12.9060730880405[/C][/ROW]
[ROW][C]85[/C][C]20.6236375216549[/C][/ROW]
[ROW][C]86[/C][C]29.9377708011934[/C][/ROW]
[ROW][C]87[/C][C]33.6455573326673[/C][/ROW]
[ROW][C]88[/C][C]105.896280145051[/C][/ROW]
[ROW][C]89[/C][C]284.448889595672[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=21688&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=21688&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
Label	Height
1	0.0299999999999917
2	0.0374165738677358
3	0.0556776436282904
4	0.0648074069840745
5	0.100995049383620
6	0.121243556529820
7	0.134164078649990
8	0.143527000944077
9	0.145945195193266
10	0.152970585407785
11	0.163300979821645
12	0.164316767251545
13	0.176068168616588
14	0.183468083190345
15	0.194679223339306
16	0.231948270094860
17	0.232379000772445
18	0.234103949421772
19	0.248596057893118
20	0.250998007960231
21	0.253771550808995
22	0.268328157299979
23	0.293257565972305
24	0.316227766016834
25	0.32929890875376
26	0.356651090002537
27	0.375233260785878
28	0.378681924575238
29	0.389230009120564
30	0.390256326021763
31	0.409267638593615
32	0.4135214625627
33	0.430346953964598
34	0.46100232915938
35	0.461194102304
36	0.463357313528128
37	0.48487111689602
38	0.508723893679078
39	0.547585436975212
40	0.548908006864532
41	0.555728689588056
42	0.573759531511236
43	0.579454755524286
44	0.5884185316805
45	0.589913722268332
46	0.594868748143212
47	0.685127189444694
48	0.770384067202799
49	0.772916554357583
50	0.776931204703164
51	0.787010512536164
52	0.799346901101809
53	0.816828616579093
54	0.871059575723716
55	0.89520203285896
56	0.90609935637555
57	0.94001867100631
58	0.961468904871025
59	0.984369290194267
60	1.01225549530763
61	1.02808640647760
62	1.03029301129982
63	1.08599465229288
64	1.28985922882375
65	1.37608026260372
66	1.44950354164891
67	1.88053848723569
68	2.01187015093102
69	2.09543557282688
70	2.22055097151029
71	2.42317860065757
72	2.46738313497844
73	2.47612233218159
74	2.51610705543429
75	3.01082863237282
76	4.00420962811647
77	4.33399374944441
78	4.75065421973945
79	6.83522687067898
80	8.08107479694255
81	8.17049499412734
82	9.00252795970705
83	11.1322070511096
84	12.9060730880405
85	20.6236375216549
86	29.9377708011934
87	33.6455573326673
88	105.896280145051
89	284.448889595672

Figure 1

PNG link

Postscript link

PDF link

Figure 2

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code