Home » date » 2008 » Nov » 11 »

*The author of this computation has been verified*
R Software Module: rwasp_hierarchicalclustering.wasp (opens new window with default values)
Title produced by software: Hierarchical Clustering
Date of computation: Tue, 11 Nov 2008 14:15:39 -0700
 
Cite this page as follows:
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL http://www.freestatistics.org/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l.htm/, Retrieved Tue, 11 Nov 2008 21:18:57 +0000
 
BibTeX entries for LaTeX users:
@Manual{KEY,
    author = {{YOUR NAME}},
    publisher = {Office for Research Development and Education},
    title = {Statistical Computations at FreeStatistics.org, URL http://www.freestatistics.org/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l.htm/},
    year = {2008},
}
@Manual{R,
    title = {R: A Language and Environment for Statistical Computing},
    author = {{R Development Core Team}},
    organization = {R Foundation for Statistical Computing},
    address = {Vienna, Austria},
    year = {2008},
    note = {{ISBN} 3-900051-07-0},
    url = {http://www.R-project.org},
}
 
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
 
Feedback Forum:

Post a new message
 
Original text written by user:
 
IsPrivate?
No (this computation is public)
 
User-defined keywords:
 
Dataseries X:
» Textbox « » Textfile « » CSV «
227.3 266.4 1943.2 348.3 222.9 304.4 1932.7 331.9 263.6 250.2 2243.7 375.7 208.6 219 1823.4 325.6 242 279.6 1964.6 356.8 245.6 258.8 2125.9 375.6 199.5 266.1 1819.4 295 213.6 266.1 1695.9 282.3 241.9 263.2 1985.7 359.4 242 273.1 1942.1 371.3 230.6 234.9 1866.5 345.7 193.9 277.4 1611.4 272.6 235.5 283.7 1965.5 351.7 228.3 295.9 1983.6 335.2 227.3 328.3 2093.9 362.3 215.7 350.5 2000.1 354.1 219.3 379.9 2011.4 363.5 218 308.8 1984.1 373.8 215.4 324 1929.8 341.4 193.6 340.5 1743.7 286.2 225.7 343.6 2042.1 377 235.8 450.5 2202.8 403.9 211.9 377.2 1891.1 355.8 199.1 383.6 1791.5 291.5 222.5 355.2 2092.9 363 217.9 336 2166.8 349.2 229 388 2279.1 378.8 244.3 393.1 2413.5 401.6 220.8 343.2 2182.4 373.2 234.3 380.5 2330.8 403.9 215.2 408.2 2367.8 382 201.7 342.2 2141 313.3 258.6 356.7 2489.7 420.5 271 403.3 2587.1 450.4 228.7 298.7 2276 375.1 230.3 348 2271.5 343 243.9 340.3 2496.1 405.5 231.3 313.4 2389.1 403.3 276.6 278.7 2673 464.3 256.9 298.7 2489.3 439.6 238 295.8 2362.1 409.5 256.7 292.1 2738.4 449.1 233.8 363.2 2416.5 408.3 199.9 261.2 2251.7 339.4 263.9 259.3 2538.8 443.8 255.6 288.8 2528.8 441.1 237.7 284.5 2279.9 399.7 229.2 257.4 2151.3 348.2 223.9 231.7 2360.5 390.5 235.2 293 2336.1 388.6 290.2 349.3 2820.8 466.7 269.6 310.8 2517.2 440.9 246.3 361.7 2420.6 412.9 287.7 475.9 2777.1 478.1 234.3 422.7 2692.2 421.7 238.3 458.4 2352.1 384 296.7 435.3 2822.6 514.2 282.5 440.7 2819.6 499.3 292.5 382.5 2833.1 469.5 298.9 489.3 2782.3 422.3 284.7 552.9 2664.2 456 309.5 651.5 2799.4 492.2 356.3 643.5 3309.4 549.8 302.6 587.9 2711.5 472.5 345.3 722.9 3061.1 545.2 353.9 566 2865.3 505 297.2 760.6 2639.4 462.8 299.6 642.4 2710.1 439.3 355.8 903.1 3286.8 524.5 348.3 1025.5 3165.4 558 340.5 792.6 2993.4 546.2 310.1 758.4 2737 435.7 323.5 744 3028.9 514 307.9 653.1 3094.9 497.4 354.5 549 3309.4 557.8 298 575.2 2979.6 504.8 306.6 736 3155.8 525.6 302.3 716.4 3138.1 538.1 291.7 747.2 2915.4 480.1 280.7 708.3 2725.1 435.7 311.5 810.4 2912.1 494.1 334 704.1 3266.9 550.1 320.8 619.4 2966.7 491.7 266.4 573.4 2625.1 380.6 318.9 514.4 3156.5 458.3 306.4 507.2 3022 460.3 338.9 608.1 3281.6 511 330.3 632.7 3412.7 521 314.4 715.3 3254 503.7 316 617 3188.1 517.7 310 690.8 3357.6 489.4 272.4 608.5 2851.7 429.4 327.6 712.3 3250.6 515.5 343.9 746.5 3519.2 563.9 315.8 676.4 3181.6 487.8 279.8 681.7 2856.5 384.8 323.7 628.9 3338 490.6 300.6 642.4 3318 483.9 326.8 776 3636 499.8 314.7 767.8 3368 515.3 293.1 611.8 3188 483.4 313.9 716.7 3214.1 521.9 304.7 718.4 3459.2 507.7 269.9 638.1 2821.4 402.5 332.2 630.2 3389.5 537.5 346.5 712.5 3562 572.9 295.8 591.1 3079.1 475 297.9 728.4 3082.9 423.7 304.3 557.3 3127.4 496.1 306.7 597.9 3344.9 507.6 359.2 706.4 3866.1 605.1 325.3 712.6 3460.2 545.3 302.4 711.3 3313.9 506 351.2 553.3 3827.1 599.9 310.8 762.1 3492.5 542.1 289.6 833.1 3287.4 459.3 355.8 798.4 3826.3 599.1 335.5 885.7 4133.4 572.4 332 880.3 3971.7 540.8 310.7 850.8 3588.5 475.9 297.1 747.4 3588.8 532.8 291.9 801 3569.6 538.1 326 983.8 4222.7 599.4 311.8 1004.2 3999.1 588.5 294.5 870.4 3924.7 563.9 330 846.5 3923 619 297.7 889.9 3748.4 537.1 290.3 1103.9 3680.1 503.3 338 1200.9 4146 623.1 319 1182.2 4009.8 595.7 316.3 1073.9 4071.2 611 304.3 1029.8 3651 511.2 305.6 986.4 4073.8 571.9 304 1071.3 3810.6 563.5 353.8 1251.2 4437.9 659.1 308.7 1114.6 3901.6 577.1 325.2 1197.5 4238.9 631.6 337.2 1305.5 4330.3 662.4 304.6 1279.9 3894.1 576.6 320.8 1109.9 4113.9 540.3 327.1 1024.9 4267.9 669.7 360.4 1024.6 4382.2 697.5 346.3 815.2 4277.8 656.5 325.2 853.8 3822.8 525.9 322.9 952.3 4384.2 644.7 337 967.7 4160.6 632 367.8 1065.7 4858.7 732.3 329.7 994.1 4252.6 661.8 333.7 1150 4488.3 683.4 338.1 1110.6 4484.6 736.5 331.1 1129.7 4560.5 662 316 1142.7 4472.2 614.6 343.1 1225.7 4128.9 672.7 374.4 1527.6 4696.4 779.6 343.7 1345.5 4448.7 689.5 283 1508.5 3599.4 521.3 362.7 1608.3 5335.2 718 359.2 1437.8 5031.5 708.8 337.4 1501.2 4998.7 685.2 389.9 1419.3 5439.7 771.1 326.2 1440.7 4797.4 666.3 348.1 1619.2 5110.3 677.9
 
Output produced by software:

Enter (or paste) a matrix (table) containing all data (time) series. Every column represents a different variable and must be delimited by a space or Tab. Every row represents a period in time (or category) and must be delimited by hard returns. The easiest way to enter data is to copy and paste a block of spreadsheet cells. Please, do not use commas or spaces to seperate groups of digits!


Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time6 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Summary of Dendrogram
LabelHeight
19.26714627056248
214.0167756634684
318.2767612010444
421.4897650056952
523.2178810402673
627.3521479960898
727.4045616640734
828.1280998291744
928.5411982929941
1028.641752739663
1129.5328630511844
1229.6582197712539
1330.0501247917542
1433.0661458292315
1533.4976118551756
1634.0697813318489
1735.1258047106464
1835.382198914143
1935.5901671813999
2039.6542007316865
2139.7984817218063
2240.8269518823045
2341.5686179707722
2441.9846400484749
2543.2753971674437
2649.6627782726182
2750.2405214941086
2850.2702695437372
2950.4239102485223
3050.6049973637775
3151.6067824999775
3253.0235796603737
3353.5113512281797
3454.136217082467
3554.2318172293719
3654.5958789653578
3754.7579218013247
3855.1044023998453
3957.4171577143977
4058.254785211174
4158.6999148210626
4259.1264209384547
4359.2956996754403
4461.6215206331447
4561.9209173058669
4663.1885274397182
4763.6784893036889
4864.8135016798198
4965.1680136263182
5066.3703246940981
5167.7729296991062
5271.3005610076107
5371.9639098056433
5472.7968405907834
5573.7605704822675
5674.4633565816855
5774.5679555841516
5875.6366755623313
5976.6300814377739
6078.278988240779
6178.8094537476313
6280.3887409260778
6381.2159467099905
6484.2338108124064
6585.2402233100083
6686.6523145874014
6787.8650101007222
6888.0347658598579
6990.0707461471409
7090.2110303676884
7190.2357935447473
7290.5827109364187
7390.6422302174045
7492.334407250474
7593.7097723430789
7695.8032613113108
7797.0843962745816
7897.1623917362954
79100.176344513064
80100.476863008356
81101.798526511929
82102.088324033087
83109.867274807102
84111.982625082499
85116.335033416422
86116.588807353022
87117.423421854415
88118.519092288524
89124.787684710326
90128.886701463785
91130.203175532848
92132.129517201561
93132.160325101495
94133.108722972760
95135.597717636205
96136.18664631224
97136.503540726495
98138.475475866638
99139.936240913109
100141.732328939448
101145.792864729974
102159.146279047633
103174.830288442951
104178.745229049989
105181.418687019833
106182.798607262737
107191.090558942378
108192.860493370076
109193.044290732458
110200.95397523742
111204.866784145389
112211.841684174348
113216.182632471819
114223.776657914993
115224.055127145085
116226.339249735345
117226.464038532615
118229.374991552325
119230.451785660630
120234.157701689311
121243.73549837299
122248.491408137433
123265.035837946888
124277.067497065626
125301.957082497688
126336.434339327839
127339.453606303361
128354.632556108183
129354.801054682285
130357.617766933067
131364.674510808159
132407.944308888872
133410.173187236708
134423.818008658448
135458.136974059843
136461.985747662481
137476.455727933872
138493.590847138328
139503.382466886695
140526.068394119978
141617.369546076642
142630.162888675591
143705.083580091815
144764.964262746911
145842.43132968759
146885.5493048525
147984.479080707386
1481053.42439895782
1491194.05320304138
1501523.93122178635
1511580.09550205377
1521776.92841878408
1531937.68181095058
1542023.03361175798
1553038.44136331821
1564406.74087107895
1576466.28998942215
1588957.00273914894
15910012.6599250631
16038622.1209895936
16169987.8065116257
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l/14xhs1226438130.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l/14xhs1226438130.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l/2yaa81226438130.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/11/t1226438337npzp5swbyublq0l/2yaa81226438130.ps (open in new window)


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




Copyright

Creative Commons License

This work is licensed under a Creative Commons Attribution-Noncommercial-Share Alike 3.0 License.

Software written by Ed van Stee & Patrick Wessa


Disclaimer

Information provided on this web site is provided "AS IS" without warranty of any kind, either express or implied, including, without limitation, warranties of merchantability, fitness for a particular purpose, and noninfringement. We use reasonable efforts to include accurate and timely information and periodically update the information, and software without notice. However, we make no warranties or representations as to the accuracy or completeness of such information (or software), and we assume no liability or responsibility for errors or omissions in the content of this web site, or any software bugs in online applications. Your use of this web site is AT YOUR OWN RISK. Under no circumstances and under no legal theory shall we be liable to you or any other person for any direct, indirect, special, incidental, exemplary, or consequential damages arising from your access to, or use of, this web site.


Privacy Policy

We may request personal information to be submitted to our servers in order to be able to:

  • personalize online software applications according to your needs
  • enforce strict security rules with respect to the data that you upload (e.g. statistical data)
  • manage user sessions of online applications
  • alert you about important changes or upgrades in resources or applications

We NEVER allow other companies to directly offer registered users information about their products and services. Banner references and hyperlinks of third parties NEVER contain any personal data of the visitor.

We do NOT sell, nor transmit by any means, personal information, nor statistical data series uploaded by you to third parties.

We carefully protect your data from loss, misuse, alteration, and destruction. However, at any time, and under any circumstance you are solely responsible for managing your passwords, and keeping them secret.

We store a unique ANONYMOUS USER ID in the form of a small 'Cookie' on your computer. This allows us to track your progress when using this website which is necessary to create state-dependent features. The cookie is used for NO OTHER PURPOSE. At any time you may opt to disallow cookies from this website - this will not affect other features of this website.

We examine cookies that are used by third-parties (banner and online ads) very closely: abuse from third-parties automatically results in termination of the advertising contract without refund. We have very good reason to believe that the cookies that are produced by third parties (banner ads) do NOT cause any privacy or security risk.

FreeStatistics.org is safe. There is no need to download any software to use the applications and services contained in this website. Hence, your system's security is not compromised by their use, and your personal data - other than data you submit in the account application form, and the user-agent information that is transmitted by your browser - is never transmitted to our servers.

As a general rule, we do not log on-line behavior of individuals (other than normal logging of webserver 'hits'). However, in cases of abuse, hacking, unauthorized access, Denial of Service attacks, illegal copying, hotlinking, non-compliance with international webstandards (such as robots.txt), or any other harmful behavior, our system engineers are empowered to log, track, identify, publish, and ban misbehaving individuals - even if this leads to ban entire blocks of IP addresses, or disclosing user's identity.

FreeStatistics.org is powered by