Wessa.net

Send output to:

Data X:
6.666 10.326 17.717 32.323 1.292 6.540 10.016 17.192 31.567 1.171 6.644 10.501 18.713 35.804 0.528 6.675 10.733 19.698 39.054 0.125 4.892 6.121 9.234 15.628 1.139 4.917 6.105 8.888 14.255 0.517 5.101 7.029 12.147 23.776 0.611 11.283 27.201 70.735 198.288 1.354 18.945 84.771 450.542 2726.565 0.785 9.706 18.910 36.986 72.637 0.722 20.060 94.304 506.611 3007.964 0.771 20.484 98.483 540.601 3275.551 0.438 19.329 87.499 457.852 2674.927 1.539 10.017 22.310 53.040 130.715 0.708 9.853 21.543 50.029 120.000 0.661 9.589 20.336 45.947 107.554 1.378 9.682 20.984 48.788 118.214 0.306 15.249 46.558 142.305 435.467 0.449 15.013 45.116 135.702 408.549 0.806 24.583 139.945 924.190 6861.264 0.845 25.160 146.356 983.675 7408.179 0.535 24.737 143.946 949.662 6880.863 1.576 26.365 163.132 1123.024 8359.727 0.521 14.236 47.378 168.707 618.355 0.389 36.412 303.616 2794.064 27354.148 0.597 35.494 289.767 2629.530 25490.021 0.884 30.837 214.550 1703.755 15152.138 0.595 48.889 525.474 6005.084 71075.570 0.637 10.696 27.217 75.157 214.362 1.366 11.4431604 31.2633655 92.70369347 283.6840754 0.694 10.88991867 28.66144143 82.28690993 244.5881513 0.292 8.727 17.612 39.318 94.368 0.639 8.831 18.088 40.355 95.214 1.234 9.043 19.760 49.610 137.489 0.375 9.138 19.728 47.395 122.971 0.684 14.609 50.154 185.182 707.823 0.744 13.990 45.378 158.008 568.147 1.416 15.109 53.591 204.900 811.218 0.458 19.783 79.146 319.666 1301.489 0.843 20.339 84.458 356.648 1526.348 0.532 20.505 86.218 369.846 1611.747 0.556 14.844 50.715 198.476 864.531 1.465 15.383 54.886 223.100 999.835 0.674 14.949 46.386 148.986 493.193 0.472 14.898 45.169 139.302 436.593 0.782 15.102 47.078 150.874 494.856 0.806 29.294 198.938 1511.097 12289.382 0.847
Names of X columns:
1 2 3 4 5
Method


# of (top) clusters to display


Horizontal


Triangle


Chart options


Title:
Label y-axis:
Label x-axis:

R Code
par4 <- 'FALSE' par3 <- 'FALSE' par2 <- 'ALL' par1 <- 'single' 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') }

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
R Framework error message	The field 'Names of X columns' contains a hard return which cannot be interpreted. Please, resubmit your request without hard returns in the 'Names of X columns'.
R Engine error message	Error in array(list(6.666, 10.326, 17.717, 32.323, 1.292, 6.54, 10.016, : length of 'dimnames' [1] not equal to array extent Execution halted