Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
10030 17471 46737 9536 14968 44737 9953 15449 47557 9775 17582 51261 9843 18501 55457 9461 17291 56659 9230 16465 58609 8956 17109 59382 9608 18438 61773 9482 16944 63957 9962 16362 68596 9766 16965 72177 10312 18937 75406 10032 17842 76166 10411 16187 79315 10438 17655 81498 10803 19194 83580 10365 18400 84371 10488 17436 87196 9698 19526 88097 10087 21304 89233 9769 18947 89191 10381 18786 91690 10117 24304 91379 10775 23724 93150 10735 23823 93809 11601 21433 95112 10749 23900 92812 11227 25432 91524 10904 23619 89082 11418 23761 89984 10429 23844 87307 10755 26374 87683 9566 24406 87339 6849 24752 94868 7210 26005 97006 8472 27758 97832 9334 25534 97888 9523 26415 107411 9622 28217 115751 10215 29101 118399 10752 27715 119545 11766 27622 125345 11816 29065 129831 12730 31450 132645 13481 29571 132924 14905 30996 140225 14571 30937 143589 15308 34106 146909 15870 32851 145038 15950 36114 148559 16350 34383 152418 17086 38077 153209 17668 35638 149805 17947 35254 150299 18322 36683 144756 18696 38977 144677 18772 34951 140757 18947 34177 141650 19142 35299 142721 19724 36419 140737
Names of X columns:
X Y Z
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation