FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_hierarchicalclustering.wasp
Title produced by softwareHierarchical Clustering
Date of computationFri, 02 Nov 2007 06:53:33 -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/2007/Nov/02/8lo7g4xamg6wsbb1194011583.htm/, Retrieved Fri, 03 May 2024 22:35:32 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=135, Retrieved Fri, 03 May 2024 22:35:32 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Hierarchical Clustering] [Identify any patt...] [2007-11-02 13:53:33] [c8ae83d0115975332f4c8aef1088e2d8] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
680.2	12710.3	2468.9
668.9	12120.8	2469.2
611.4	12469.5	2417.7
640.8	12054.6	2411.1
549.8	12112.9	2361.0
541.8	9617.2	1924.1
628.6	12645.8	2486.9
686.5	13581.3	2674.9
611.8	12162.3	2296.2
588.4	10969.7	2101.5
566.9	11880.0	2322.0
563.7	11887.6	2273.8
569.9	12926.9	2501.3
635.4	12300.0	2435.2
590.8	12092.8	2273.3
634.3	12380.8	2454.7
576.1	12196.9	2328.8
351.6	9455.0	1897.0
507.5	13168.0	2608.1
586.2	13427.9	2712.3
666.4	11980.5	2322.0
693.6	11884.8	2282.6
650.6	11691.7	2241.1
654.8	12233.8	2417.2
733.5	14341.4	2829.0
648.1	13130.7	2600.6
678.1	12421.1	2321.0
816.2	14285.8	2768.5
591.0	12864.6	2457.3
563.5	11160.2	2142.7
742.5	14316.2	2764.4
694.4	14388.7	2788.9
728.6	14013.9	2679.5
749.0	13419.0	2536.5
538.9	12769.6	2682.7
568.5	13315.5	2699.6
692.8	15332.9	3097.8
580.5	14243.0	3015.2
506.9	13824.4	2878.0
612.8	14962.9	3010.9
442.9	13202.9	2612.3
523.3	12199.0	2419.3
596.7	15508.9	3096.5
533.7	14199.8	3013.0
523.1	15169.6	3397.4
559.2	14058.0	3423.1
430.7	13786.2	3298.7
538.2	14147.9	3065.7
612.4	16541.7	3918.3
428.0	13587.5	3154.4
522.4	15582.4	3334.7
531.1	15802.8	3461.6
425.9	14130.5	3018.5
410.3	12923.2	2832.0
551.0	15612.2	3301.3
555.6	16033.7	3342.8
460.2	16036.6	3464.4
288.9	14037.8	3016.6
392.3	15330.6	3201.3
400.5	15038.3	3135.3
399.0	17401.8	3549.8

Tables (Output of Computation)





Summary of compuational 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 compuational 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=135&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]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=135&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=135&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 compuational 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
148.900306747504
253.1183584083699
359.4509041142357
463.7284865660566
569.9228145886586
671.2937584925924
773.5446123111678
879.1359589567215
984.5388076566023
1085.8237166607408
1192.453555907817
1298.7982793372442
1398.8751738304413
14105.283563272373
15107.007896904855
16114.491659084843
17116.400189676229
18139.641675663666
19149.335345982043
20154.583731356181
21165.426418688189
22168.080190840781
23196.488422050766
24197.573159111615
25200.531543653361
26217.820153600093
27222.265831832065
28245.583936771117
29249.842770557805
30251.434464622494
31257.355415719196
32285.240500351424
33285.455513171492
34287.222395639605
35305.557484212574
36323.152599711931
37329.523251260261
38352.793693254287
39380.982237415903
40385.821645887075
41481.573722532157
42506.702158223564
43566.86319575048
44578.485482322435
45669.360390407725
46754.802270294448
47778.627475676573
48917.703645468916
49959.741538123675
501142.27074748485
511634.06746123320
521825.84710423956
531930.91239375647
542120.00129587073
552878.99332592833
563853.14655445715
578479.11920455279
589799.34494342883
5925153.7698001495
6042326.6068978654

\begin{tabular}{lllllllll}
\hline
Summary of Dendrogram \tabularnewline
Label & Height \tabularnewline
1 & 48.900306747504 \tabularnewline
2 & 53.1183584083699 \tabularnewline
3 & 59.4509041142357 \tabularnewline
4 & 63.7284865660566 \tabularnewline
5 & 69.9228145886586 \tabularnewline
6 & 71.2937584925924 \tabularnewline
7 & 73.5446123111678 \tabularnewline
8 & 79.1359589567215 \tabularnewline
9 & 84.5388076566023 \tabularnewline
10 & 85.8237166607408 \tabularnewline
11 & 92.453555907817 \tabularnewline
12 & 98.7982793372442 \tabularnewline
13 & 98.8751738304413 \tabularnewline
14 & 105.283563272373 \tabularnewline
15 & 107.007896904855 \tabularnewline
16 & 114.491659084843 \tabularnewline
17 & 116.400189676229 \tabularnewline
18 & 139.641675663666 \tabularnewline
19 & 149.335345982043 \tabularnewline
20 & 154.583731356181 \tabularnewline
21 & 165.426418688189 \tabularnewline
22 & 168.080190840781 \tabularnewline
23 & 196.488422050766 \tabularnewline
24 & 197.573159111615 \tabularnewline
25 & 200.531543653361 \tabularnewline
26 & 217.820153600093 \tabularnewline
27 & 222.265831832065 \tabularnewline
28 & 245.583936771117 \tabularnewline
29 & 249.842770557805 \tabularnewline
30 & 251.434464622494 \tabularnewline
31 & 257.355415719196 \tabularnewline
32 & 285.240500351424 \tabularnewline
33 & 285.455513171492 \tabularnewline
34 & 287.222395639605 \tabularnewline
35 & 305.557484212574 \tabularnewline
36 & 323.152599711931 \tabularnewline
37 & 329.523251260261 \tabularnewline
38 & 352.793693254287 \tabularnewline
39 & 380.982237415903 \tabularnewline
40 & 385.821645887075 \tabularnewline
41 & 481.573722532157 \tabularnewline
42 & 506.702158223564 \tabularnewline
43 & 566.86319575048 \tabularnewline
44 & 578.485482322435 \tabularnewline
45 & 669.360390407725 \tabularnewline
46 & 754.802270294448 \tabularnewline
47 & 778.627475676573 \tabularnewline
48 & 917.703645468916 \tabularnewline
49 & 959.741538123675 \tabularnewline
50 & 1142.27074748485 \tabularnewline
51 & 1634.06746123320 \tabularnewline
52 & 1825.84710423956 \tabularnewline
53 & 1930.91239375647 \tabularnewline
54 & 2120.00129587073 \tabularnewline
55 & 2878.99332592833 \tabularnewline
56 & 3853.14655445715 \tabularnewline
57 & 8479.11920455279 \tabularnewline
58 & 9799.34494342883 \tabularnewline
59 & 25153.7698001495 \tabularnewline
60 & 42326.6068978654 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=135&T=1

[TABLE]
[ROW][C]Summary of Dendrogram[/C][/ROW]
[ROW][C]Label[/C][C]Height[/C][/ROW]
[ROW][C]1[/C][C]48.900306747504[/C][/ROW]
[ROW][C]2[/C][C]53.1183584083699[/C][/ROW]
[ROW][C]3[/C][C]59.4509041142357[/C][/ROW]
[ROW][C]4[/C][C]63.7284865660566[/C][/ROW]
[ROW][C]5[/C][C]69.9228145886586[/C][/ROW]
[ROW][C]6[/C][C]71.2937584925924[/C][/ROW]
[ROW][C]7[/C][C]73.5446123111678[/C][/ROW]
[ROW][C]8[/C][C]79.1359589567215[/C][/ROW]
[ROW][C]9[/C][C]84.5388076566023[/C][/ROW]
[ROW][C]10[/C][C]85.8237166607408[/C][/ROW]
[ROW][C]11[/C][C]92.453555907817[/C][/ROW]
[ROW][C]12[/C][C]98.7982793372442[/C][/ROW]
[ROW][C]13[/C][C]98.8751738304413[/C][/ROW]
[ROW][C]14[/C][C]105.283563272373[/C][/ROW]
[ROW][C]15[/C][C]107.007896904855[/C][/ROW]
[ROW][C]16[/C][C]114.491659084843[/C][/ROW]
[ROW][C]17[/C][C]116.400189676229[/C][/ROW]
[ROW][C]18[/C][C]139.641675663666[/C][/ROW]
[ROW][C]19[/C][C]149.335345982043[/C][/ROW]
[ROW][C]20[/C][C]154.583731356181[/C][/ROW]
[ROW][C]21[/C][C]165.426418688189[/C][/ROW]
[ROW][C]22[/C][C]168.080190840781[/C][/ROW]
[ROW][C]23[/C][C]196.488422050766[/C][/ROW]
[ROW][C]24[/C][C]197.573159111615[/C][/ROW]
[ROW][C]25[/C][C]200.531543653361[/C][/ROW]
[ROW][C]26[/C][C]217.820153600093[/C][/ROW]
[ROW][C]27[/C][C]222.265831832065[/C][/ROW]
[ROW][C]28[/C][C]245.583936771117[/C][/ROW]
[ROW][C]29[/C][C]249.842770557805[/C][/ROW]
[ROW][C]30[/C][C]251.434464622494[/C][/ROW]
[ROW][C]31[/C][C]257.355415719196[/C][/ROW]
[ROW][C]32[/C][C]285.240500351424[/C][/ROW]
[ROW][C]33[/C][C]285.455513171492[/C][/ROW]
[ROW][C]34[/C][C]287.222395639605[/C][/ROW]
[ROW][C]35[/C][C]305.557484212574[/C][/ROW]
[ROW][C]36[/C][C]323.152599711931[/C][/ROW]
[ROW][C]37[/C][C]329.523251260261[/C][/ROW]
[ROW][C]38[/C][C]352.793693254287[/C][/ROW]
[ROW][C]39[/C][C]380.982237415903[/C][/ROW]
[ROW][C]40[/C][C]385.821645887075[/C][/ROW]
[ROW][C]41[/C][C]481.573722532157[/C][/ROW]
[ROW][C]42[/C][C]506.702158223564[/C][/ROW]
[ROW][C]43[/C][C]566.86319575048[/C][/ROW]
[ROW][C]44[/C][C]578.485482322435[/C][/ROW]
[ROW][C]45[/C][C]669.360390407725[/C][/ROW]
[ROW][C]46[/C][C]754.802270294448[/C][/ROW]
[ROW][C]47[/C][C]778.627475676573[/C][/ROW]
[ROW][C]48[/C][C]917.703645468916[/C][/ROW]
[ROW][C]49[/C][C]959.741538123675[/C][/ROW]
[ROW][C]50[/C][C]1142.27074748485[/C][/ROW]
[ROW][C]51[/C][C]1634.06746123320[/C][/ROW]
[ROW][C]52[/C][C]1825.84710423956[/C][/ROW]
[ROW][C]53[/C][C]1930.91239375647[/C][/ROW]
[ROW][C]54[/C][C]2120.00129587073[/C][/ROW]
[ROW][C]55[/C][C]2878.99332592833[/C][/ROW]
[ROW][C]56[/C][C]3853.14655445715[/C][/ROW]
[ROW][C]57[/C][C]8479.11920455279[/C][/ROW]
[ROW][C]58[/C][C]9799.34494342883[/C][/ROW]
[ROW][C]59[/C][C]25153.7698001495[/C][/ROW]
[ROW][C]60[/C][C]42326.6068978654[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=135&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=135&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
148.900306747504
253.1183584083699
359.4509041142357
463.7284865660566
569.9228145886586
671.2937584925924
773.5446123111678
879.1359589567215
984.5388076566023
1085.8237166607408
1192.453555907817
1298.7982793372442
1398.8751738304413
14105.283563272373
15107.007896904855
16114.491659084843
17116.400189676229
18139.641675663666
19149.335345982043
20154.583731356181
21165.426418688189
22168.080190840781
23196.488422050766
24197.573159111615
25200.531543653361
26217.820153600093
27222.265831832065
28245.583936771117
29249.842770557805
30251.434464622494
31257.355415719196
32285.240500351424
33285.455513171492
34287.222395639605
35305.557484212574
36323.152599711931
37329.523251260261
38352.793693254287
39380.982237415903
40385.821645887075
41481.573722532157
42506.702158223564
43566.86319575048
44578.485482322435
45669.360390407725
46754.802270294448
47778.627475676573
48917.703645468916
49959.741538123675
501142.27074748485
511634.06746123320
521825.84710423956
531930.91239375647
542120.00129587073
552878.99332592833
563853.14655445715
578479.11920455279
589799.34494342883
5925153.7698001495
6042326.6068978654


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