Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
19 10 500857 3431 14 12 506971 3874 11 12 569323 2617 13 13 579714 3580 21 17 577992 5267 10 12 565464 3832 23 15 547344 3441 23 12 554788 3228 27 14 562325 3397 30 19 560854 3971 28 16 555332 4625 25 17 543599 4486 21 16 536662 4131 29 19 542722 4686 20 17 593530 3174 24 17 610763 4282 23 20 612613 4209 16 18 611324 4159 17 16 594167 3936 19 19 595454 3153 19 18 590865 3620 21 23 589379 4227 25 20 584428 4441 18 20 573100 4808 8 15 567456 4850 7 17 569028 5040 5 16 620735 3546 10 15 628884 4669 0 10 628232 5410 13 13 612117 5134 13 10 595404 4864 17 19 597141 3999 20 21 593408 4459 19 17 590072 4622 16 16 579799 5360 16 17 574205 4658 16 14 572775 5173 20 18 572942 4845 23 17 619567 3325 18 14 625809 4720 20 15 619916 4895 26 16 587625 5071 25 11 565742 4895 16 15 557274 3805 22 13 560576 4187 23 17 548854 4435 20 16 531673 4475 27 9 525919 4774 25 17 511038 5161 26 15 498662 4529 23 12 555362 3284 13 12 564591 4303 13 12 541657 4610 14 12 527070 4691 1 4 509846 4200 7 7 514258 3471 5 4 516922 3132 9 3 507561 4226 11 3 492622 3723 6 0 490243 3576 0 5 469357 3397
Names of X columns:
Econsit Sparen Werkloosh Woningen
Method
ward
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
5
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation