Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
577992 308347 121148 143119 565464 298427 114624 140353 547344 289231 109822 137149 554788 291975 112081 138301 562325 294912 113534 138709 560854 293488 112110 138619 555332 290555 109826 137528 543599 284736 107423 134523 536662 281818 105540 133593 542722 287854 108573 135647 593530 316263 128591 143541 610763 325412 139145 144024 612613 326011 129700 148607 611324 328282 132828 148881 594167 317480 126868 145447 595454 317539 128390 144170 590865 313737 126830 142148 589379 312276 124105 142492 584428 309391 122323 141703 573100 302950 119296 139116 567456 300316 116822 138461 569028 304035 119224 139870 620735 333476 139357 148703 628884 337698 144322 150034 628232 335932 133676 153670 612117 323931 128283 147508 595404 313927 121640 145150 597141 314485 122877 143955 593408 313218 117284 147608 590072 309664 116463 144839 579799 302963 112685 142096 574205 298989 113235 138941 572775 298423 111692 139093 572942 301631 113152 141526 619567 329765 129889 151492 625809 335083 131153 155217 619916 327616 123770 154530 587625 309119 112516 148533 565742 295916 105940 143923 557274 291413 104320 141075 560576 291542 103582 142261 548854 284678 99064 140435 531673 276475 94989 136169 525919 272566 92241 136107 511038 264981 89752 131063 498662 263290 90610 127765 555362 296806 109456 140731 564591 303598 110213 145981 541657 286994 97694 141834 527070 276427 91844 137625 509846 266424 87572 132515 514258 267153 89812 131111 516922 268381 89050 133603 507561 262522 85990 132207 492622 255542 85070 126488 490243 253158 83277 125933 469357 243803 79586 120927 477580 250741 84215 122597 528379 280445 99708 135437 533590 285257 100698 138649 517945 270976 90861 134576
Names of X columns:
Belgiƫ Vrouw VrouwVlaams VrouwWaals
Method
ward
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
ALL
ALL
2
3
4
5
6
7
8
9
10
15
20
Horizontal
FALSE
FALSE
TRUE
Triangle
FALSE
FALSE
TRUE
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
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') }
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation