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 computationWed, 12 Nov 2008 09:48:22 -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/12/t122650857501l7ybg1qp1t8rs.htm/, Retrieved Tue, 28 May 2024 12:28:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=24290, Retrieved Tue, 28 May 2024 12:28:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsHierarchical Clustering
Estimated Impact178

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] [Hierarchical Clus...] [2008-11-12 16:48:22] [962e6c9020896982bc8283b8971710a9] [Current]
Feedback Forum
2008-11-18 08:47:07 [Evelyn Gabriel] [reply] 
De student heeft een goede conclusie getrokken bij deze figuur. Op het word-document heeft zij ook gebruikt gemaakt van pijlen om haar redenering duidelijker te maken.
2008-11-20 12:20:02 [Hannes Van Hoof] [reply] 
Het dendogram wordt verdeeld in 2 takken. Per tak worden gelijkaardige perioden ondergebracht. In de verdeling van de perioden lijkt er geen logica te zijn.
2008-11-20 15:22:45 [Gert-Jan Geudens] [reply] 
De studente heeft een goede conclusie getrokken, al zijn de exacte waarden op de x-as nogal moeilijk te lezen.
2008-11-20 17:28:12 [Marie-Lien Loos] [reply] 
Juist conclusie. In deze situatie zien we duidelijk 2 groepen.
2008-11-24 11:19:46 [Anouk Greeve] [reply] 
Het nut van een dendrogram is dat we kunnen zien welke gegevens in 1 groep zitten en welke we dus anders moeten behandelen. We kunnen vaststellen dat de waarden van de periodes die indezelfde kluster liggen rond dezelfde hoogte liggen en dus dezelfde gegevens bevatten. Bij deze student zien we duidelijk de 2 verschillende groepen.
2008-11-24 18:24:16 [Birgit Van Dyck] [reply] 
De student heeft een goede conclusie gemaakt. Bij een dendrogram vertrekken er uit het knooppunt 2 takken, de gegevens worden telkens verder opgesplitst. de gegevens die zich onder eenzelfde tak bevinden zijn gelijkaardig. Deze methode is louter een exploratief element.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
218413	274452	45511	116222
213261	267700	43098	110924
204094	257841	39854	103753
201484	255124	35976	99983
194600	247377	26397	93302
191325	247823	21701	91496
211261	276919	41749	119321
226293	294271	58697	139261
219734	281758	60363	133739
214591	270434	54329	123913
205348	258848	47714	113438
203496	256674	44712	109416
208155	258882	42668	109406
205010	255060	40584	105645
200290	247698	38196	101328
198088	244779	33212	97686
195186	240901	25199	93093
191395	239933	21912	91382
213768	270247	44524	122257
225780	283893	58464	139183
230579	282348	61266	139887
229261	273570	55810	131822
216228	254756	48585	116805
216713	254354	45712	113706
220206	255843	43651	113012
220115	254490	41666	110452
218444	251995	39072	107005
214912	246339	33354	102841
210705	244019	26485	98173
209673	245953	23779	98181
237041	279806	54200	137277
242081	283111	64020	147579
241878	281097	67197	146571
242621	275964	60769	138920
238545	270694	54871	130340
240337	271901	51814	128140
244752	274412	49092	127059
244576	272433	45870	122860
241572	268361	42103	117702
240541	268586	35243	113537
236089	264768	27643	108366
236997	269974	26054	111078
264579	304744	58032	150739
270349	309365	66083	159129
269645	308347	69153	157928
267037	298427	61765	147768
258113	289231	55568	137507
262813	291975	54078	136919
267413	294912	52913	136151
267366	293488	51175	133001
264777	290555	45343	125554
258863	284736	37817	119647
254844	281818	30744	114158
254868	287854	28893	116193
277267	316263	60190	152803
285351	325412	69447	161761
286602	326011	71660	160942
283042	328282	64496	149470
276687	317480	58078	139208
277915	317539	53511	134588
277128	313737	50883	130322
277103	312276	48614	126611
275037	309391	45844	122401
270150	302950	41303	117352
267140	300316	31060	112135
264993	304035	27860	112879
287259	333476	57794	148729
291186	337698	66642	157230
292300	335932	70639	157221
288186	323931	64864	146681
281477	313927	58397	136524
282656	314485	54424	132111
280190	313218	44148	125326
280408	309664	42065	122716
276836	302963	38546	116615
275216	298989	35324	113719
274352	298423	26599	110737
271311	301631	24935	112093
289802	329765	51349	143565
290726	335083	58672	149946
292300	327616	61271	149147
278506	309119	53145	134339
269826	295916	46211	122683
265861	291413	40744	115614
269034	291542	41248	116566
264176	284678	39032	111272
255198	276475	35907	104609
253353	272566	33335	101802
246057	264981	23988	94542
235372	263290	23099	93051
258556	296806	46390	124129
260993	303598	51588	130374
254663	286994	51579	123946
250643	276427	45390	114971
243422	266424	39215	105531
247105	267153	38433	104919
248541	268381	37676	104782
245039	262522	36055	101281
237080	255542	32986	94545
237085	253158	30953	93248
225554	243803	23558	84031
226839	250741	22487	87486
247934	280445	43528	115867
248333	285257	47913	120327

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'George Udny Yule' @ 72.249.76.132

\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 & 1 seconds \tabularnewline
R Server & 'George Udny Yule' @ 72.249.76.132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24290&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]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'George Udny Yule' @ 72.249.76.132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24290&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24290&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 time1 seconds
R Server'George Udny Yule' @ 72.249.76.132






Summary of Dendrogram
LabelHeight
12040.0730379082
22737.13938264020
33353.34012590432
43390.98496015538
53482.51058864148
63511.79654877671
73521.25559992455
83561.68232721561
93869.51276002548
103899.58946557198
114105.42458218392
124272.55883517126
134342.04583117221
144509.52791320777
154588.57581391002
164881.53961368747
174913.91666596006
185268.09880317368
195388.93264014313
205406.85731270948
215546.13207560008
225653.34431995788
235673.21601915527
245736.60395536759
255760.09887067922
265810.70099041415
276019.84991507263
286079.53147865853
296097.96490642575
306148.72059862863
316611.60752011188
326633.34742042055
336696.07508223436
347035.27014406696
357174.52332911393
367596.28157594977
377929.13204581687
387951.65309857013
398094.4679256885
408105.6316172101
418155.17322716971
428192.76229363455
438289.05199645894
448344.0269654406
458611.89158847037
468702.55574213547
479076.65821787021
489105.640439648
499148.86319252172
509578.5475934507
519992.40626676077
5210319.4150820456
5310684.8231763917
5410866.8975333349
5510956.3729399834
5612153.7560683856
5712302.8099895460
5812309.2000671544
5913031.3070888643
6013101.0956324425
6113151.5166309498
6213371.8349467577
6313436.5020999616
6413671.837445842
6514579.7099628461
6614807.0733248819
6716141.8417454025
6816179.5721638043
6917575.5777596794
7017824.0528494242
7118752.2205992266
7219192.0541297939
7320172.4254497739
7421675.7981141257
7521814.937479131
7623309.4593544805
7723454.2419272419
7824688.671306668
7926560.3487531581
8027247.2227288113
8127642.1500602986
8228761.0087476715
8331891.4484715602
8438788.6749427849
8541129.7592017329
8641374.1274867442
8743262.4372891776
8845256.1885169818
8947392.5158515471
9049591.4428462478
9154961.9804853927
9270526.2765159506
9379147.0212139397
94109277.653414856
95110844.613429732
96128687.106062930
97147392.282069404
98199749.255474574
99204196.659008121
100360153.132290764
101393127.82036405
102768496.473033851
1031899868.63011881

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 2040.0730379082 \tabularnewline
2 & 2737.13938264020 \tabularnewline
3 & 3353.34012590432 \tabularnewline
4 & 3390.98496015538 \tabularnewline
5 & 3482.51058864148 \tabularnewline
6 & 3511.79654877671 \tabularnewline
7 & 3521.25559992455 \tabularnewline
8 & 3561.68232721561 \tabularnewline
9 & 3869.51276002548 \tabularnewline
10 & 3899.58946557198 \tabularnewline
11 & 4105.42458218392 \tabularnewline
12 & 4272.55883517126 \tabularnewline
13 & 4342.04583117221 \tabularnewline
14 & 4509.52791320777 \tabularnewline
15 & 4588.57581391002 \tabularnewline
16 & 4881.53961368747 \tabularnewline
17 & 4913.91666596006 \tabularnewline
18 & 5268.09880317368 \tabularnewline
19 & 5388.93264014313 \tabularnewline
20 & 5406.85731270948 \tabularnewline
21 & 5546.13207560008 \tabularnewline
22 & 5653.34431995788 \tabularnewline
23 & 5673.21601915527 \tabularnewline
24 & 5736.60395536759 \tabularnewline
25 & 5760.09887067922 \tabularnewline
26 & 5810.70099041415 \tabularnewline
27 & 6019.84991507263 \tabularnewline
28 & 6079.53147865853 \tabularnewline
29 & 6097.96490642575 \tabularnewline
30 & 6148.72059862863 \tabularnewline
31 & 6611.60752011188 \tabularnewline
32 & 6633.34742042055 \tabularnewline
33 & 6696.07508223436 \tabularnewline
34 & 7035.27014406696 \tabularnewline
35 & 7174.52332911393 \tabularnewline
36 & 7596.28157594977 \tabularnewline
37 & 7929.13204581687 \tabularnewline
38 & 7951.65309857013 \tabularnewline
39 & 8094.4679256885 \tabularnewline
40 & 8105.6316172101 \tabularnewline
41 & 8155.17322716971 \tabularnewline
42 & 8192.76229363455 \tabularnewline
43 & 8289.05199645894 \tabularnewline
44 & 8344.0269654406 \tabularnewline
45 & 8611.89158847037 \tabularnewline
46 & 8702.55574213547 \tabularnewline
47 & 9076.65821787021 \tabularnewline
48 & 9105.640439648 \tabularnewline
49 & 9148.86319252172 \tabularnewline
50 & 9578.5475934507 \tabularnewline
51 & 9992.40626676077 \tabularnewline
52 & 10319.4150820456 \tabularnewline
53 & 10684.8231763917 \tabularnewline
54 & 10866.8975333349 \tabularnewline
55 & 10956.3729399834 \tabularnewline
56 & 12153.7560683856 \tabularnewline
57 & 12302.8099895460 \tabularnewline
58 & 12309.2000671544 \tabularnewline
59 & 13031.3070888643 \tabularnewline
60 & 13101.0956324425 \tabularnewline
61 & 13151.5166309498 \tabularnewline
62 & 13371.8349467577 \tabularnewline
63 & 13436.5020999616 \tabularnewline
64 & 13671.837445842 \tabularnewline
65 & 14579.7099628461 \tabularnewline
66 & 14807.0733248819 \tabularnewline
67 & 16141.8417454025 \tabularnewline
68 & 16179.5721638043 \tabularnewline
69 & 17575.5777596794 \tabularnewline
70 & 17824.0528494242 \tabularnewline
71 & 18752.2205992266 \tabularnewline
72 & 19192.0541297939 \tabularnewline
73 & 20172.4254497739 \tabularnewline
74 & 21675.7981141257 \tabularnewline
75 & 21814.937479131 \tabularnewline
76 & 23309.4593544805 \tabularnewline
77 & 23454.2419272419 \tabularnewline
78 & 24688.671306668 \tabularnewline
79 & 26560.3487531581 \tabularnewline
80 & 27247.2227288113 \tabularnewline
81 & 27642.1500602986 \tabularnewline
82 & 28761.0087476715 \tabularnewline
83 & 31891.4484715602 \tabularnewline
84 & 38788.6749427849 \tabularnewline
85 & 41129.7592017329 \tabularnewline
86 & 41374.1274867442 \tabularnewline
87 & 43262.4372891776 \tabularnewline
88 & 45256.1885169818 \tabularnewline
89 & 47392.5158515471 \tabularnewline
90 & 49591.4428462478 \tabularnewline
91 & 54961.9804853927 \tabularnewline
92 & 70526.2765159506 \tabularnewline
93 & 79147.0212139397 \tabularnewline
94 & 109277.653414856 \tabularnewline
95 & 110844.613429732 \tabularnewline
96 & 128687.106062930 \tabularnewline
97 & 147392.282069404 \tabularnewline
98 & 199749.255474574 \tabularnewline
99 & 204196.659008121 \tabularnewline
100 & 360153.132290764 \tabularnewline
101 & 393127.82036405 \tabularnewline
102 & 768496.473033851 \tabularnewline
103 & 1899868.63011881 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=24290&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]2040.0730379082[/C][/ROW]
[ROW][C]2[/C][C]2737.13938264020[/C][/ROW]
[ROW][C]3[/C][C]3353.34012590432[/C][/ROW]
[ROW][C]4[/C][C]3390.98496015538[/C][/ROW]
[ROW][C]5[/C][C]3482.51058864148[/C][/ROW]
[ROW][C]6[/C][C]3511.79654877671[/C][/ROW]
[ROW][C]7[/C][C]3521.25559992455[/C][/ROW]
[ROW][C]8[/C][C]3561.68232721561[/C][/ROW]
[ROW][C]9[/C][C]3869.51276002548[/C][/ROW]
[ROW][C]10[/C][C]3899.58946557198[/C][/ROW]
[ROW][C]11[/C][C]4105.42458218392[/C][/ROW]
[ROW][C]12[/C][C]4272.55883517126[/C][/ROW]
[ROW][C]13[/C][C]4342.04583117221[/C][/ROW]
[ROW][C]14[/C][C]4509.52791320777[/C][/ROW]
[ROW][C]15[/C][C]4588.57581391002[/C][/ROW]
[ROW][C]16[/C][C]4881.53961368747[/C][/ROW]
[ROW][C]17[/C][C]4913.91666596006[/C][/ROW]
[ROW][C]18[/C][C]5268.09880317368[/C][/ROW]
[ROW][C]19[/C][C]5388.93264014313[/C][/ROW]
[ROW][C]20[/C][C]5406.85731270948[/C][/ROW]
[ROW][C]21[/C][C]5546.13207560008[/C][/ROW]
[ROW][C]22[/C][C]5653.34431995788[/C][/ROW]
[ROW][C]23[/C][C]5673.21601915527[/C][/ROW]
[ROW][C]24[/C][C]5736.60395536759[/C][/ROW]
[ROW][C]25[/C][C]5760.09887067922[/C][/ROW]
[ROW][C]26[/C][C]5810.70099041415[/C][/ROW]
[ROW][C]27[/C][C]6019.84991507263[/C][/ROW]
[ROW][C]28[/C][C]6079.53147865853[/C][/ROW]
[ROW][C]29[/C][C]6097.96490642575[/C][/ROW]
[ROW][C]30[/C][C]6148.72059862863[/C][/ROW]
[ROW][C]31[/C][C]6611.60752011188[/C][/ROW]
[ROW][C]32[/C][C]6633.34742042055[/C][/ROW]
[ROW][C]33[/C][C]6696.07508223436[/C][/ROW]
[ROW][C]34[/C][C]7035.27014406696[/C][/ROW]
[ROW][C]35[/C][C]7174.52332911393[/C][/ROW]
[ROW][C]36[/C][C]7596.28157594977[/C][/ROW]
[ROW][C]37[/C][C]7929.13204581687[/C][/ROW]
[ROW][C]38[/C][C]7951.65309857013[/C][/ROW]
[ROW][C]39[/C][C]8094.4679256885[/C][/ROW]
[ROW][C]40[/C][C]8105.6316172101[/C][/ROW]
[ROW][C]41[/C][C]8155.17322716971[/C][/ROW]
[ROW][C]42[/C][C]8192.76229363455[/C][/ROW]
[ROW][C]43[/C][C]8289.05199645894[/C][/ROW]
[ROW][C]44[/C][C]8344.0269654406[/C][/ROW]
[ROW][C]45[/C][C]8611.89158847037[/C][/ROW]
[ROW][C]46[/C][C]8702.55574213547[/C][/ROW]
[ROW][C]47[/C][C]9076.65821787021[/C][/ROW]
[ROW][C]48[/C][C]9105.640439648[/C][/ROW]
[ROW][C]49[/C][C]9148.86319252172[/C][/ROW]
[ROW][C]50[/C][C]9578.5475934507[/C][/ROW]
[ROW][C]51[/C][C]9992.40626676077[/C][/ROW]
[ROW][C]52[/C][C]10319.4150820456[/C][/ROW]
[ROW][C]53[/C][C]10684.8231763917[/C][/ROW]
[ROW][C]54[/C][C]10866.8975333349[/C][/ROW]
[ROW][C]55[/C][C]10956.3729399834[/C][/ROW]
[ROW][C]56[/C][C]12153.7560683856[/C][/ROW]
[ROW][C]57[/C][C]12302.8099895460[/C][/ROW]
[ROW][C]58[/C][C]12309.2000671544[/C][/ROW]
[ROW][C]59[/C][C]13031.3070888643[/C][/ROW]
[ROW][C]60[/C][C]13101.0956324425[/C][/ROW]
[ROW][C]61[/C][C]13151.5166309498[/C][/ROW]
[ROW][C]62[/C][C]13371.8349467577[/C][/ROW]
[ROW][C]63[/C][C]13436.5020999616[/C][/ROW]
[ROW][C]64[/C][C]13671.837445842[/C][/ROW]
[ROW][C]65[/C][C]14579.7099628461[/C][/ROW]
[ROW][C]66[/C][C]14807.0733248819[/C][/ROW]
[ROW][C]67[/C][C]16141.8417454025[/C][/ROW]
[ROW][C]68[/C][C]16179.5721638043[/C][/ROW]
[ROW][C]69[/C][C]17575.5777596794[/C][/ROW]
[ROW][C]70[/C][C]17824.0528494242[/C][/ROW]
[ROW][C]71[/C][C]18752.2205992266[/C][/ROW]
[ROW][C]72[/C][C]19192.0541297939[/C][/ROW]
[ROW][C]73[/C][C]20172.4254497739[/C][/ROW]
[ROW][C]74[/C][C]21675.7981141257[/C][/ROW]
[ROW][C]75[/C][C]21814.937479131[/C][/ROW]
[ROW][C]76[/C][C]23309.4593544805[/C][/ROW]
[ROW][C]77[/C][C]23454.2419272419[/C][/ROW]
[ROW][C]78[/C][C]24688.671306668[/C][/ROW]
[ROW][C]79[/C][C]26560.3487531581[/C][/ROW]
[ROW][C]80[/C][C]27247.2227288113[/C][/ROW]
[ROW][C]81[/C][C]27642.1500602986[/C][/ROW]
[ROW][C]82[/C][C]28761.0087476715[/C][/ROW]
[ROW][C]83[/C][C]31891.4484715602[/C][/ROW]
[ROW][C]84[/C][C]38788.6749427849[/C][/ROW]
[ROW][C]85[/C][C]41129.7592017329[/C][/ROW]
[ROW][C]86[/C][C]41374.1274867442[/C][/ROW]
[ROW][C]87[/C][C]43262.4372891776[/C][/ROW]
[ROW][C]88[/C][C]45256.1885169818[/C][/ROW]
[ROW][C]89[/C][C]47392.5158515471[/C][/ROW]
[ROW][C]90[/C][C]49591.4428462478[/C][/ROW]
[ROW][C]91[/C][C]54961.9804853927[/C][/ROW]
[ROW][C]92[/C][C]70526.2765159506[/C][/ROW]
[ROW][C]93[/C][C]79147.0212139397[/C][/ROW]
[ROW][C]94[/C][C]109277.653414856[/C][/ROW]
[ROW][C]95[/C][C]110844.613429732[/C][/ROW]
[ROW][C]96[/C][C]128687.106062930[/C][/ROW]
[ROW][C]97[/C][C]147392.282069404[/C][/ROW]
[ROW][C]98[/C][C]199749.255474574[/C][/ROW]
[ROW][C]99[/C][C]204196.659008121[/C][/ROW]
[ROW][C]100[/C][C]360153.132290764[/C][/ROW]
[ROW][C]101[/C][C]393127.82036405[/C][/ROW]
[ROW][C]102[/C][C]768496.473033851[/C][/ROW]
[ROW][C]103[/C][C]1899868.63011881[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=24290&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=24290&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
12040.0730379082
22737.13938264020
33353.34012590432
43390.98496015538
53482.51058864148
63511.79654877671
73521.25559992455
83561.68232721561
93869.51276002548
103899.58946557198
114105.42458218392
124272.55883517126
134342.04583117221
144509.52791320777
154588.57581391002
164881.53961368747
174913.91666596006
185268.09880317368
195388.93264014313
205406.85731270948
215546.13207560008
225653.34431995788
235673.21601915527
245736.60395536759
255760.09887067922
265810.70099041415
276019.84991507263
286079.53147865853
296097.96490642575
306148.72059862863
316611.60752011188
326633.34742042055
336696.07508223436
347035.27014406696
357174.52332911393
367596.28157594977
377929.13204581687
387951.65309857013
398094.4679256885
408105.6316172101
418155.17322716971
428192.76229363455
438289.05199645894
448344.0269654406
458611.89158847037
468702.55574213547
479076.65821787021
489105.640439648
499148.86319252172
509578.5475934507
519992.40626676077
5210319.4150820456
5310684.8231763917
5410866.8975333349
5510956.3729399834
5612153.7560683856
5712302.8099895460
5812309.2000671544
5913031.3070888643
6013101.0956324425
6113151.5166309498
6213371.8349467577
6313436.5020999616
6413671.837445842
6514579.7099628461
6614807.0733248819
6716141.8417454025
6816179.5721638043
6917575.5777596794
7017824.0528494242
7118752.2205992266
7219192.0541297939
7320172.4254497739
7421675.7981141257
7521814.937479131
7623309.4593544805
7723454.2419272419
7824688.671306668
7926560.3487531581
8027247.2227288113
8127642.1500602986
8228761.0087476715
8331891.4484715602
8438788.6749427849
8541129.7592017329
8641374.1274867442
8743262.4372891776
8845256.1885169818
8947392.5158515471
9049591.4428462478
9154961.9804853927
9270526.2765159506
9379147.0212139397
94109277.653414856
95110844.613429732
96128687.106062930
97147392.282069404
98199749.255474574
99204196.659008121
100360153.132290764
101393127.82036405
102768496.473033851
1031899868.63011881


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