Home » date » 2008 » Nov » 08 »

taak 5 - EDA - Q2

*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: Sat, 08 Nov 2008 03:50:43 -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/08/t1226141492xz6338z7el6g4mv.htm/, Retrieved Sat, 08 Nov 2008 10:51:32 +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/08/t1226141492xz6338z7el6g4mv.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 «
217859 258778 88827 565464 208679 252791 85874 547344 213188 256389 85211 554788 216234 258961 87130 562325 213587 258647 88620 560854 209465 256304 89563 555332 204045 250498 89056 543599 200237 247883 88542 536662 203666 249552 89504 542722 241476 262626 89428 593530 260307 264416 86040 610763 243324 273049 96240 612613 244460 272441 94423 611324 233575 267564 93028 594167 237217 265952 92285 595454 235243 263937 91685 590865 230354 264765 94260 589379 227184 263386 93858 584428 221678 258985 92437 573100 217142 257334 92980 567456 219452 257477 92099 569028 256446 271486 92803 620735 265845 274488 88551 628884 248624 281274 98334 628232 241114 272674 98329 612117 229245 269704 96455 595404 231805 268227 97109 597141 219277 276444 97687 593408 219313 272247 98512 590072 212610 268516 98673 579799 214771 263406 96028 574205 211142 263619 98014 572775 211457 265905 95580 572942 240048 281681 97838 619567 240636 287413 97760 625809 230580 289423 99913 619916 208795 281242 97588 587625 197922 273878 93942 565742 194596 269022 93656 557274 194581 272630 93365 560576 185686 270287 92881 548854 178106 260447 93120 531673 172608 262248 91063 525919 167302 252806 90930 511038 168053 238663 91946 498662 202300 258438 94624 555362 202388 266719 95484 564591 182516 263279 95862 541657 173476 258064 95530 527070 166444 248828 94574 509846 171297 248284 94677 514258 169701 253376 93845 516922 164182 251846 91533 507561 161914 239494 91214 492622 159612 239709 90922 490243 151001 228793 89563 469357 158114 229521 89945 477580 186530 249999 91850 528379 187069 254016 92505 533590 174330 251178 92437 517945
 
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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Summary of Dendrogram
LabelHeight
11417.17677090757
22573.55202006876
32933.23950607515
43330.2153083547
53358.16408175658
63389.56427878275
73489.98767906135
84251.01470239754
94684.26134594178
104709.83815427975
114807.19648027829
124899.56875653358
135411.82390696519
145424.53924310628
155680.17642383186
165696.10303433562
175753.5896621153
185764.31169412216
196051.82170920459
206221.05700246875
216287.93845389727
226634.03014765534
237247.45093149283
248418.0121138457
258495.30552717205
268654.4209511671
279336.65929239224
289867.194085822
2910517.4652760628
3010903.5960123255
3110947.3345614355
3212225.5143378833
3312324.5282563895
3412473.0319413011
3512686.1986217521
3613484.7658489126
3713800.3482365882
3816179.9942624856
3917709.9800185915
4017801.9287312568
4118479.4796158738
4218574.9860524771
4319204.5964908900
4419571.1878624219
4527708.1200556013
4635067.9168438107
4738143.7269428334
4843441.6143480441
4945725.918947501
5046394.9609383262
5161132.904602755
5262396.2944014722
5387092.1566297657
54106695.672411251
55123789.366772106
56218047.742796767
57222251.279791108
58688911.075806323
591392129.63524787
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/08/t1226141492xz6338z7el6g4mv/1tjvt1226141438.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/08/t1226141492xz6338z7el6g4mv/1tjvt1226141438.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/08/t1226141492xz6338z7el6g4mv/2u4s61226141438.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/08/t1226141492xz6338z7el6g4mv/2u4s61226141438.ps (open in new window)


 
Parameters (Session):
par1 = 50 ; par2 = 50 ; par3 = Y ; par4 = Y ; par5 = Brussel ; par6 = Vlaanderen ; par7 = België ;
 
Parameters (R input):
par1 = ward ; par2 = ALL ; par3 = FALSE ; par4 = FALSE ; par5 = Brussel ; par6 = Vlaanderen ; par7 = België ;
 
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