Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
299.63 154.783 301.606 305.945 187.646 268.225 382.252 237.863 362.082 348.846 215.54 310.984 335.367 231.745 350.907 373.617 199.548 365.759 312.612 164.147 357.504 312.232 159.388 432.236 337.161 203.514 394.335 331.476 224.901 404.182 350.103 211.539 371.721 345.127 211.16 387.012 297.256 181.712 280.042 295.979 203.908 357.111 361.007 240.774 359.451 321.803 232.819 341.206 354.937 255.221 349.156 349.432 246.7 430.298 290.979 206.263 354.447 349.576 211.679 400.785 327.625 236.601 358.974 349.377 237.43 352.853 336.777 233.767 374.229 339.134 219.52 364.568 323.321 222.625 352.411 318.86 216.238 376.47 373.583 248.587 357.475 333.03 221.376 299.497 408.556 242.453 361.805 414.646 246.539 343.188 291.514 189.351 335.597 348.857 185.956 330.985 349.368 213.175 336.723 375.765 228.732 348.076 364.136 212.93 317.518 349.53 218.254 345.737 348.167 227.103 342.568 332.856 219.026 352.951 360.551 264.529 400.269 346.969 262.057 428.121 392.815 258.779 475.804 372.02 231.928 392.732 371.027 211.167 388.22 342.672 205.439 410.643 367.343 224.883 428.044 390.786 228.624 530.799 343.785 209.435 463.074 362.6 215.607 477.686 349.468 287.356 440.586 340.624 306.015 424.757 369.536 338.546 511.061 407.782 344.16 511.421 392.239 328.412 454.39 404.824 342.006 498.403 373.669 277.668 516.143 344.902 290.477 463.642 396.7 314.967 498.391 398.911 324.627 533.752 366.009 290.646 404.341 392.484 315.033 435.645
Names of X columns:
dieren planten mineralen
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