Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_hierarchicalclustering.wasp

Title produced by software

Hierarchical Clustering

Date of computation

Mon, 03 Dec 2007 03:53:04 -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/2007/Dec/03/t11966785640zgilfl2pndkct8.htm/, Retrieved Fri, 03 May 2024 21:08:17 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14349, Retrieved Fri, 03 May 2024 21:08:17 +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

ex012008

Estimated Impact

406

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

-       [Hierarchical Clustering] [omzet, aantal en ...] [2007-12-03 10:53:04] [ef257666c09b3678397177defae7fd99] [Current]
- RMPD    [Star Plot] [starplot omzet aa...] [2008-01-13 13:40:39] [0b2d8ed757c467aee7199cdee05779c9] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

589	122302.01	100.01
606	109264.65	100.73
566	103674.75	100.46
487	103890.3	100.99
442	75512.66	100.8
463	83121.3	101.24
547	125096.81	101.05
432	74206.73	101.11
513	88481.63	100.86
602	111598.17	100.92
637	146919.48	101.43
913	150790.85	101.55
576	113780.5	101.49
634	110870.76	101.11
563	118785.32	100.43
513	112820.5	99.79
483	102188.92	99.09
477	97092.73	99.69
524	114067.82	100.08
470	89690.15	99.53
427	89267.9	99.58
537	96198.64	99.41
662	129599.75	99.5
1079	169424.7	100.42
816	152510.91	99.9
705	121850.2	100.02
653	144737.64	99.92
584	121381.88	99.55
508	106894.86	99.74
446	94305.06	99.76
604	116800.42	99.86
446	77584.28	99.75
512	100680.88	99.92
533	106634.05	99.86
791	168390.77	99.66
1206	211971.89	99.5
783	136163.28	99.28
567	168950.25	99.6
473	89816.88	100.15
412	85406.93	100.28
314	66055.52	100.44
323	73311.68	100.3
438	85674.51	100.87
429	82822.59	100.45
468	94277.63	100.64
518	100991.65	100.13
555	149245.88	99.9
816	208517.17	100.11
673	40733.51	99.14
593	121352.23	99.79
569	104020.11	100.31
505	99566.82	100.43
447	101352.17	100.92
433	106628.41	101.48
549	109696.95	101.64
553	248696.37	102.41
505	105628.33	102.74
601	120449.17	102.77
706	136547.7	102.37
852	140896.42	102
643	131509.91	102.45
448	95450.31	102.51
551	133592.64	102.34
476	110332.9	102.55
416	88110.54	102.25
331	64931.25	102.56
435	98446.22	102.8
395	84212.38	103.09
405	77519.55	102.65
619	124806.02	103.29
596	102185.94	104
889	151348.79	104.01
668	124378.28	103.59
555	101433.13	103.59
620	126724.22	103.84
472	87461.88	103.61
460	95288.27	103.76
417	129055.33	104.12
582	107753.06	103.95
525	96364.03	104.03
507	71662.75	104.52
750	125666.24	104.79
899	456841.51	104.91
1075	167642.32	105.1
993	167154.73	105.22
777	139685.18	105.64
675	119275.2	105.2
655	122746.05	105.19
535	107337.43	105.23
491	112584.89	105.22
686	133183.08	105.65
637	121152.57	105.93
652	119815.6	105.65
794	122858.44	106.55
859	152077.17	107.44
1049	157221.96	107.74
1022	140435.08	107.44
762	101455.09	108.2
762	104791.29	108.86
563	77226.59	108.82
573	84477.43	108.37
473	66227.74	108.35
527	89076.23	107.61
710	108924.43	107.98
630	83926.11	107.8
706	91764.8	107.44
870	120892.76	107.46
1069	129952.42	107.18
1021	135865.14	107.75
799	105512.77	108.28
694	96486.62	108.64
521	78064.88	108.52
622	92370.22	108.58
614	98454.46	108.09
661	96703.93	108.68
630	83170.95	109.18

Summary of compuational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	5 seconds
R Server	'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 5 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=14349&T=0

[TABLE]
[ROW][C]Summary of compuational 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]5 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=14349&T=0

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

Summary of Dendrogram
Label	Height
1	30.9867729846223
2	35.1735596719982
3	76.677134140495
4	100.172022042085
5	113.145872660031
6	126.767019764616
7	135.002409237765
8	153.541846087636
9	162.488535287872
10	165.889109045771
11	174.405177962122
12	178.757829758587
13	179.267625911652
14	216.337398061452
15	219.801359640924
16	234.527816047480
17	236.697184182660
18	268.840853480272
19	282.994151212519
20	291.991045239411
21	299.579441384078
22	310.827986191709
23	314.78576153992
24	315.944307117567
25	319.317053882178
26	325.819468837465
27	332.115773655443
28	355.834527414079
29	381.579874338245
30	383.560582177064
31	410.480380046477
32	418.280928683109
33	431.248593852805
34	435.93146158541
35	447.345118631871
36	466.463585073903
37	491.69521982629
38	494.437076380804
39	502.542701966699
40	510.001715529082
41	518.801584615927
42	518.880008356496
43	538.594570433084
44	558.461364106777
45	560.588488287086
46	602.655684450094
47	611.220644284859
48	635.358238015577
49	672.932808672689
50	698.179573290399
51	810.694108152404
52	882.498798339179
53	899.275824235909
54	901.662996135477
55	957.81967949057
56	960.055380560584
57	979.996899055769
58	986.581017840459
59	995.750154228308
60	1063.91999487946
61	1065.93741978598
62	1146.23242315108
63	1153.09763335857
64	1160.12838181163
65	1171.08477361361
66	1433.91121705076
67	1540.92844076292
68	1570.28435957225
69	1954.6453589709
70	2039.55434019059
71	2057.21963177948
72	2181.34314015749
73	2181.89918779489
74	2295.77648893106
75	2361.90811733739
76	2435.00520414780
77	2731.45938154113
78	2812.47108049444
79	3292.05452853674
80	3345.47169321191
81	3392.08717916778
82	3476.6637241039
83	3515.21058978676
84	3548.42262905147
85	3601.36963093323
86	4339.21974868529
87	4601.51568421573
88	5706.47126989624
89	7579.79676840479
90	8173.86740700864
91	8731.50385675072
92	9005.70845235119
93	9764.13170776786
94	10799.3044217961
95	11112.0042775241
96	11213.8103387178
97	11923.8484029408
98	13664.6355538191
99	23353.6083186733
100	29913.6730870444
101	34197.2735730481
102	34372.0380806422
103	36587.7715432875
104	40699.0939477648
105	50114.6760812051
106	54219.8916099705
107	93983.944764424
108	128796.872646762
109	132559.570732984
110	145600.124293717
111	252102.876361324
112	496163.050486097
113	514824.391271528
114	599686.494882499
115	1568425.50235510

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 30.9867729846223 \tabularnewline
2 & 35.1735596719982 \tabularnewline
3 & 76.677134140495 \tabularnewline
4 & 100.172022042085 \tabularnewline
5 & 113.145872660031 \tabularnewline
6 & 126.767019764616 \tabularnewline
7 & 135.002409237765 \tabularnewline
8 & 153.541846087636 \tabularnewline
9 & 162.488535287872 \tabularnewline
10 & 165.889109045771 \tabularnewline
11 & 174.405177962122 \tabularnewline
12 & 178.757829758587 \tabularnewline
13 & 179.267625911652 \tabularnewline
14 & 216.337398061452 \tabularnewline
15 & 219.801359640924 \tabularnewline
16 & 234.527816047480 \tabularnewline
17 & 236.697184182660 \tabularnewline
18 & 268.840853480272 \tabularnewline
19 & 282.994151212519 \tabularnewline
20 & 291.991045239411 \tabularnewline
21 & 299.579441384078 \tabularnewline
22 & 310.827986191709 \tabularnewline
23 & 314.78576153992 \tabularnewline
24 & 315.944307117567 \tabularnewline
25 & 319.317053882178 \tabularnewline
26 & 325.819468837465 \tabularnewline
27 & 332.115773655443 \tabularnewline
28 & 355.834527414079 \tabularnewline
29 & 381.579874338245 \tabularnewline
30 & 383.560582177064 \tabularnewline
31 & 410.480380046477 \tabularnewline
32 & 418.280928683109 \tabularnewline
33 & 431.248593852805 \tabularnewline
34 & 435.93146158541 \tabularnewline
35 & 447.345118631871 \tabularnewline
36 & 466.463585073903 \tabularnewline
37 & 491.69521982629 \tabularnewline
38 & 494.437076380804 \tabularnewline
39 & 502.542701966699 \tabularnewline
40 & 510.001715529082 \tabularnewline
41 & 518.801584615927 \tabularnewline
42 & 518.880008356496 \tabularnewline
43 & 538.594570433084 \tabularnewline
44 & 558.461364106777 \tabularnewline
45 & 560.588488287086 \tabularnewline
46 & 602.655684450094 \tabularnewline
47 & 611.220644284859 \tabularnewline
48 & 635.358238015577 \tabularnewline
49 & 672.932808672689 \tabularnewline
50 & 698.179573290399 \tabularnewline
51 & 810.694108152404 \tabularnewline
52 & 882.498798339179 \tabularnewline
53 & 899.275824235909 \tabularnewline
54 & 901.662996135477 \tabularnewline
55 & 957.81967949057 \tabularnewline
56 & 960.055380560584 \tabularnewline
57 & 979.996899055769 \tabularnewline
58 & 986.581017840459 \tabularnewline
59 & 995.750154228308 \tabularnewline
60 & 1063.91999487946 \tabularnewline
61 & 1065.93741978598 \tabularnewline
62 & 1146.23242315108 \tabularnewline
63 & 1153.09763335857 \tabularnewline
64 & 1160.12838181163 \tabularnewline
65 & 1171.08477361361 \tabularnewline
66 & 1433.91121705076 \tabularnewline
67 & 1540.92844076292 \tabularnewline
68 & 1570.28435957225 \tabularnewline
69 & 1954.6453589709 \tabularnewline
70 & 2039.55434019059 \tabularnewline
71 & 2057.21963177948 \tabularnewline
72 & 2181.34314015749 \tabularnewline
73 & 2181.89918779489 \tabularnewline
74 & 2295.77648893106 \tabularnewline
75 & 2361.90811733739 \tabularnewline
76 & 2435.00520414780 \tabularnewline
77 & 2731.45938154113 \tabularnewline
78 & 2812.47108049444 \tabularnewline
79 & 3292.05452853674 \tabularnewline
80 & 3345.47169321191 \tabularnewline
81 & 3392.08717916778 \tabularnewline
82 & 3476.6637241039 \tabularnewline
83 & 3515.21058978676 \tabularnewline
84 & 3548.42262905147 \tabularnewline
85 & 3601.36963093323 \tabularnewline
86 & 4339.21974868529 \tabularnewline
87 & 4601.51568421573 \tabularnewline
88 & 5706.47126989624 \tabularnewline
89 & 7579.79676840479 \tabularnewline
90 & 8173.86740700864 \tabularnewline
91 & 8731.50385675072 \tabularnewline
92 & 9005.70845235119 \tabularnewline
93 & 9764.13170776786 \tabularnewline
94 & 10799.3044217961 \tabularnewline
95 & 11112.0042775241 \tabularnewline
96 & 11213.8103387178 \tabularnewline
97 & 11923.8484029408 \tabularnewline
98 & 13664.6355538191 \tabularnewline
99 & 23353.6083186733 \tabularnewline
100 & 29913.6730870444 \tabularnewline
101 & 34197.2735730481 \tabularnewline
102 & 34372.0380806422 \tabularnewline
103 & 36587.7715432875 \tabularnewline
104 & 40699.0939477648 \tabularnewline
105 & 50114.6760812051 \tabularnewline
106 & 54219.8916099705 \tabularnewline
107 & 93983.944764424 \tabularnewline
108 & 128796.872646762 \tabularnewline
109 & 132559.570732984 \tabularnewline
110 & 145600.124293717 \tabularnewline
111 & 252102.876361324 \tabularnewline
112 & 496163.050486097 \tabularnewline
113 & 514824.391271528 \tabularnewline
114 & 599686.494882499 \tabularnewline
115 & 1568425.50235510 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14349&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]30.9867729846223[/C][/ROW]
[ROW][C]2[/C][C]35.1735596719982[/C][/ROW]
[ROW][C]3[/C][C]76.677134140495[/C][/ROW]
[ROW][C]4[/C][C]100.172022042085[/C][/ROW]
[ROW][C]5[/C][C]113.145872660031[/C][/ROW]
[ROW][C]6[/C][C]126.767019764616[/C][/ROW]
[ROW][C]7[/C][C]135.002409237765[/C][/ROW]
[ROW][C]8[/C][C]153.541846087636[/C][/ROW]
[ROW][C]9[/C][C]162.488535287872[/C][/ROW]
[ROW][C]10[/C][C]165.889109045771[/C][/ROW]
[ROW][C]11[/C][C]174.405177962122[/C][/ROW]
[ROW][C]12[/C][C]178.757829758587[/C][/ROW]
[ROW][C]13[/C][C]179.267625911652[/C][/ROW]
[ROW][C]14[/C][C]216.337398061452[/C][/ROW]
[ROW][C]15[/C][C]219.801359640924[/C][/ROW]
[ROW][C]16[/C][C]234.527816047480[/C][/ROW]
[ROW][C]17[/C][C]236.697184182660[/C][/ROW]
[ROW][C]18[/C][C]268.840853480272[/C][/ROW]
[ROW][C]19[/C][C]282.994151212519[/C][/ROW]
[ROW][C]20[/C][C]291.991045239411[/C][/ROW]
[ROW][C]21[/C][C]299.579441384078[/C][/ROW]
[ROW][C]22[/C][C]310.827986191709[/C][/ROW]
[ROW][C]23[/C][C]314.78576153992[/C][/ROW]
[ROW][C]24[/C][C]315.944307117567[/C][/ROW]
[ROW][C]25[/C][C]319.317053882178[/C][/ROW]
[ROW][C]26[/C][C]325.819468837465[/C][/ROW]
[ROW][C]27[/C][C]332.115773655443[/C][/ROW]
[ROW][C]28[/C][C]355.834527414079[/C][/ROW]
[ROW][C]29[/C][C]381.579874338245[/C][/ROW]
[ROW][C]30[/C][C]383.560582177064[/C][/ROW]
[ROW][C]31[/C][C]410.480380046477[/C][/ROW]
[ROW][C]32[/C][C]418.280928683109[/C][/ROW]
[ROW][C]33[/C][C]431.248593852805[/C][/ROW]
[ROW][C]34[/C][C]435.93146158541[/C][/ROW]
[ROW][C]35[/C][C]447.345118631871[/C][/ROW]
[ROW][C]36[/C][C]466.463585073903[/C][/ROW]
[ROW][C]37[/C][C]491.69521982629[/C][/ROW]
[ROW][C]38[/C][C]494.437076380804[/C][/ROW]
[ROW][C]39[/C][C]502.542701966699[/C][/ROW]
[ROW][C]40[/C][C]510.001715529082[/C][/ROW]
[ROW][C]41[/C][C]518.801584615927[/C][/ROW]
[ROW][C]42[/C][C]518.880008356496[/C][/ROW]
[ROW][C]43[/C][C]538.594570433084[/C][/ROW]
[ROW][C]44[/C][C]558.461364106777[/C][/ROW]
[ROW][C]45[/C][C]560.588488287086[/C][/ROW]
[ROW][C]46[/C][C]602.655684450094[/C][/ROW]
[ROW][C]47[/C][C]611.220644284859[/C][/ROW]
[ROW][C]48[/C][C]635.358238015577[/C][/ROW]
[ROW][C]49[/C][C]672.932808672689[/C][/ROW]
[ROW][C]50[/C][C]698.179573290399[/C][/ROW]
[ROW][C]51[/C][C]810.694108152404[/C][/ROW]
[ROW][C]52[/C][C]882.498798339179[/C][/ROW]
[ROW][C]53[/C][C]899.275824235909[/C][/ROW]
[ROW][C]54[/C][C]901.662996135477[/C][/ROW]
[ROW][C]55[/C][C]957.81967949057[/C][/ROW]
[ROW][C]56[/C][C]960.055380560584[/C][/ROW]
[ROW][C]57[/C][C]979.996899055769[/C][/ROW]
[ROW][C]58[/C][C]986.581017840459[/C][/ROW]
[ROW][C]59[/C][C]995.750154228308[/C][/ROW]
[ROW][C]60[/C][C]1063.91999487946[/C][/ROW]
[ROW][C]61[/C][C]1065.93741978598[/C][/ROW]
[ROW][C]62[/C][C]1146.23242315108[/C][/ROW]
[ROW][C]63[/C][C]1153.09763335857[/C][/ROW]
[ROW][C]64[/C][C]1160.12838181163[/C][/ROW]
[ROW][C]65[/C][C]1171.08477361361[/C][/ROW]
[ROW][C]66[/C][C]1433.91121705076[/C][/ROW]
[ROW][C]67[/C][C]1540.92844076292[/C][/ROW]
[ROW][C]68[/C][C]1570.28435957225[/C][/ROW]
[ROW][C]69[/C][C]1954.6453589709[/C][/ROW]
[ROW][C]70[/C][C]2039.55434019059[/C][/ROW]
[ROW][C]71[/C][C]2057.21963177948[/C][/ROW]
[ROW][C]72[/C][C]2181.34314015749[/C][/ROW]
[ROW][C]73[/C][C]2181.89918779489[/C][/ROW]
[ROW][C]74[/C][C]2295.77648893106[/C][/ROW]
[ROW][C]75[/C][C]2361.90811733739[/C][/ROW]
[ROW][C]76[/C][C]2435.00520414780[/C][/ROW]
[ROW][C]77[/C][C]2731.45938154113[/C][/ROW]
[ROW][C]78[/C][C]2812.47108049444[/C][/ROW]
[ROW][C]79[/C][C]3292.05452853674[/C][/ROW]
[ROW][C]80[/C][C]3345.47169321191[/C][/ROW]
[ROW][C]81[/C][C]3392.08717916778[/C][/ROW]
[ROW][C]82[/C][C]3476.6637241039[/C][/ROW]
[ROW][C]83[/C][C]3515.21058978676[/C][/ROW]
[ROW][C]84[/C][C]3548.42262905147[/C][/ROW]
[ROW][C]85[/C][C]3601.36963093323[/C][/ROW]
[ROW][C]86[/C][C]4339.21974868529[/C][/ROW]
[ROW][C]87[/C][C]4601.51568421573[/C][/ROW]
[ROW][C]88[/C][C]5706.47126989624[/C][/ROW]
[ROW][C]89[/C][C]7579.79676840479[/C][/ROW]
[ROW][C]90[/C][C]8173.86740700864[/C][/ROW]
[ROW][C]91[/C][C]8731.50385675072[/C][/ROW]
[ROW][C]92[/C][C]9005.70845235119[/C][/ROW]
[ROW][C]93[/C][C]9764.13170776786[/C][/ROW]
[ROW][C]94[/C][C]10799.3044217961[/C][/ROW]
[ROW][C]95[/C][C]11112.0042775241[/C][/ROW]
[ROW][C]96[/C][C]11213.8103387178[/C][/ROW]
[ROW][C]97[/C][C]11923.8484029408[/C][/ROW]
[ROW][C]98[/C][C]13664.6355538191[/C][/ROW]
[ROW][C]99[/C][C]23353.6083186733[/C][/ROW]
[ROW][C]100[/C][C]29913.6730870444[/C][/ROW]
[ROW][C]101[/C][C]34197.2735730481[/C][/ROW]
[ROW][C]102[/C][C]34372.0380806422[/C][/ROW]
[ROW][C]103[/C][C]36587.7715432875[/C][/ROW]
[ROW][C]104[/C][C]40699.0939477648[/C][/ROW]
[ROW][C]105[/C][C]50114.6760812051[/C][/ROW]
[ROW][C]106[/C][C]54219.8916099705[/C][/ROW]
[ROW][C]107[/C][C]93983.944764424[/C][/ROW]
[ROW][C]108[/C][C]128796.872646762[/C][/ROW]
[ROW][C]109[/C][C]132559.570732984[/C][/ROW]
[ROW][C]110[/C][C]145600.124293717[/C][/ROW]
[ROW][C]111[/C][C]252102.876361324[/C][/ROW]
[ROW][C]112[/C][C]496163.050486097[/C][/ROW]
[ROW][C]113[/C][C]514824.391271528[/C][/ROW]
[ROW][C]114[/C][C]599686.494882499[/C][/ROW]
[ROW][C]115[/C][C]1568425.50235510[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14349&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14349&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	30.9867729846223
2	35.1735596719982
3	76.677134140495
4	100.172022042085
5	113.145872660031
6	126.767019764616
7	135.002409237765
8	153.541846087636
9	162.488535287872
10	165.889109045771
11	174.405177962122
12	178.757829758587
13	179.267625911652
14	216.337398061452
15	219.801359640924
16	234.527816047480
17	236.697184182660
18	268.840853480272
19	282.994151212519
20	291.991045239411
21	299.579441384078
22	310.827986191709
23	314.78576153992
24	315.944307117567
25	319.317053882178
26	325.819468837465
27	332.115773655443
28	355.834527414079
29	381.579874338245
30	383.560582177064
31	410.480380046477
32	418.280928683109
33	431.248593852805
34	435.93146158541
35	447.345118631871
36	466.463585073903
37	491.69521982629
38	494.437076380804
39	502.542701966699
40	510.001715529082
41	518.801584615927
42	518.880008356496
43	538.594570433084
44	558.461364106777
45	560.588488287086
46	602.655684450094
47	611.220644284859
48	635.358238015577
49	672.932808672689
50	698.179573290399
51	810.694108152404
52	882.498798339179
53	899.275824235909
54	901.662996135477
55	957.81967949057
56	960.055380560584
57	979.996899055769
58	986.581017840459
59	995.750154228308
60	1063.91999487946
61	1065.93741978598
62	1146.23242315108
63	1153.09763335857
64	1160.12838181163
65	1171.08477361361
66	1433.91121705076
67	1540.92844076292
68	1570.28435957225
69	1954.6453589709
70	2039.55434019059
71	2057.21963177948
72	2181.34314015749
73	2181.89918779489
74	2295.77648893106
75	2361.90811733739
76	2435.00520414780
77	2731.45938154113
78	2812.47108049444
79	3292.05452853674
80	3345.47169321191
81	3392.08717916778
82	3476.6637241039
83	3515.21058978676
84	3548.42262905147
85	3601.36963093323
86	4339.21974868529
87	4601.51568421573
88	5706.47126989624
89	7579.79676840479
90	8173.86740700864
91	8731.50385675072
92	9005.70845235119
93	9764.13170776786
94	10799.3044217961
95	11112.0042775241
96	11213.8103387178
97	11923.8484029408
98	13664.6355538191
99	23353.6083186733
100	29913.6730870444
101	34197.2735730481
102	34372.0380806422
103	36587.7715432875
104	40699.0939477648
105	50114.6760812051
106	54219.8916099705
107	93983.944764424
108	128796.872646762
109	132559.570732984
110	145600.124293717
111	252102.876361324
112	496163.050486097
113	514824.391271528
114	599686.494882499
115	1568425.50235510

Figure 1

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