Home » date » 2008 » Nov » 12 »

various EDA topics Q2

*Unverified author*
R Software Module: rwasp_hierarchicalclustering.wasp (opens new window with default values)
Title produced by software: Hierarchical Clustering
Date of computation: Wed, 12 Nov 2008 11:44:29 -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/12/t1226515515mk4h5p6umogvac4.htm/, Retrieved Wed, 12 Nov 2008 18:45:15 +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/12/t1226515515mk4h5p6umogvac4.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:
Severijns Britt
 
Dataseries X:
» Textbox « » Textfile « » CSV «
116222 344744 31899 492865 110924 338653 31384 480961 103753 327532 30650 461935 99983 326225 30400 456608 93302 318672 30003 441977 91496 317756 29896 439148 119321 337302 31557 488180 139261 349420 31883 520564 133739 336923 30830 501492 123913 330758 30354 485025 113438 321002 29756 464196 109416 320820 29934 460170 109406 327032 30599 467037 105645 324047 30378 460070 101328 316735 29925 447988 97686 315710 29471 442867 93093 313427 29567 436087 91382 310527 29419 431328 122257 330962 30796 484015 139183 339015 31475 509673 139887 341332 31708 512927 131822 339092 31917 502831 116805 323308 30871 470984 113706 325849 31512 471067 113012 330675 32362 476049 110452 332225 31928 474605 107005 331735 31699 470439 102841 328047 30363 461251 98173 326165 30386 454724 98181 327081 30364 455626 137277 346764 32806 516847 147579 344190 33423 525192 146571 343333 33071 522975 138920 345777 33888 518585 130340 344094 34805 509239 128140 348609 35489 512238 127059 354846 37259 519164 122860 356427 37722 517009 117702 353467 38764 509933 113537 355996 39594 509127 108366 352487 40004 500857 111078 355178 40715 506971 150739 374556 44028 569323 159129 375021 45564 579714 157928 375787 44277 577992 147768 372720 44976 565464 137507 364431 45406 547344 136919 370490 47379 554788 136151 376974 49200 562325 133001 377632 50221 560854 125554 378205 51573 555332 119647 370861 53091 543599 114158 369167 53337 536662 116193 371551 54978 542722 152803 382842 57885 593530 161761 381903 67099 610763 160942 384502 67169 612613 149470 392058 69796 611324 139208 384359 70600 594167 134588 388884 71982 595454 130322 386586 73957 590865 126611 387495 75273 589379 122401 385705 76322 584428 117352 378670 77078 573100 112135 377367 77954 567456 112879 376911 79238 569028 148729 389827 82179 620735 157230 387820 83834 628884 157221 387267 83744 628232 146681 380575 84861 612117 136524 372402 86478 595404 132111 376740 88290 597141 125326 377795 90287 593408 122716 376126 91230 590072 116615 370804 92380 579799 113719 367980 92506 574205 110737 367866 94172 572775 112093 366121 94728 572942 143565 379421 96581 619567 149946 378519 97344 625809 149147 372423 98346 619916 134339 355072 98214 587625 122683 344693 98366 565742 115614 342892 98768 557274 116566 344178 99832 560576 111272 337606 99976 548854 104609 327103 99961 531673 101802 323953 100164 525919 94542 316532 99964 511038 93051 306307 99304 498662 124129 327225 104008 555362 130374 329573 104644 564591 123946 313761 103950 541657 114971 307836 104263 527070 105531 300074 104241 509846 104919 304198 105141 514258 104782 306122 106018 516922 101281 300414 105866 507561 94545 292133 105944 492622 93248 290616 106379 490243 84031 280244 105082 469357 87486 285179 104915 477580 115867 305486 107026 528379 120327 305957 107306 533590
 
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 time4 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Summary of Dendrogram
LabelHeight
1859.705763619158
21283.43055908764
31285.7713638124
41999.85399467061
52209.36914072773
62284.90393671156
72578.9164391271
82605.66805253470
92796.18581036811
102804.45823645138
113135.66005810579
123294.38340209515
133351.05834028595
143369.56080224115
153403.9051103108
163480.71573099557
173552.57399641443
183682.62759453084
193820.39264997722
203958.90969838919
214059.34132588035
224062.86967548800
234077.70767702555
244090.97958929154
254305.56082293585
264649.2801593365
274984.08527214373
284998.95549090007
295102.93542973062
305290.39903977006
315520.67775877584
325831.59549351633
335889.57400836427
346377.03802717218
356383.22379366414
366677.82344780094
376736.93684102798
387138.03012041838
397292.01078397943
408369.31371530829
418575.02594748261
428932.89488005599
439231.5165182407
449321.18552885975
459330.23868933695
469377.26049019384
479816.47034325475
4810122.2868800018
4910194.9432563404
5011360.9040022629
5111405.7908976099
5211619.8738973113
5311624.7402046557
5412656.0127402690
5513086.5142799754
5613259.6443672086
5713364.5073669244
5813593.0808194382
5913679.9833942010
6015187.8868941546
6116136.1297094440
6218899.8160827252
6319006.0738217819
6419561.7663011172
6519639.3343489589
6620247.4861403751
6720428.7684774631
6820558.7116148443
6920650.7693847215
7020796.8202410109
7122224.9802067932
7225507.3634836792
7325520.3147569515
7425863.2256402882
7527149.8947250659
7628439.7236861846
7731863.346132451
7831972.4989600627
7933812.2232875745
8035823.1023129956
8136502.2418324199
8239178.6091678858
8350248.0370926284
8451970.3960943451
8552635.4887545891
8654266.1439152676
8759764.2131589394
8865954.3192554011
8973133.8195993697
9079848.4850096052
9198010.8836697785
92109912.576661638
93113039.824259602
94126918.217342389
95135616.498796359
96190527.347222519
97236237.710670613
98296052.669107166
99439379.675976635
100516394.295088344
101798427.304006475
1021330765.13198652
1033205469.01139512
 
Charts produced by software:
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226515515mk4h5p6umogvac4/19igy1226515463.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226515515mk4h5p6umogvac4/19igy1226515463.ps (open in new window)


http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226515515mk4h5p6umogvac4/2ktg61226515463.png (open in new window)
http://127.0.0.1/wessadotnet/public_html/freestatisticsdotorg/blog/date/2008/Nov/12/t1226515515mk4h5p6umogvac4/2ktg61226515463.ps (open in new window)


 
Parameters (Session):
 
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