Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
0.9554 24.67 692.4 935.9 0.9922 25.59 877.3 937.1 0.9778 26.09 536.8 885.1 0.9808 28.37 705.9 892.4 0.9811 27.34 951 987.3 1.0014 24.46 755.7 946.3 1.0183 27.46 695.5 799.6 1.0622 30.23 744.8 875.4 1.0773 32.33 672.1 846.2 1.0807 29.87 666.6 880.6 1.0848 24.87 760.8 885.7 1.1582 25.48 756 868.9 1.1663 27.28 604.4 882.5 1.1372 28.24 883.9 789.6 1.1139 29.58 527.9 773.3 1.1222 26.95 756.2 804.3 1.1692 29.08 812.9 817.8 1.1702 28.76 655.6 836.7 1.2286 29.59 707.6 721.8 1.2613 30.7 612.6 760.8 1.2646 30.52 659.2 841.4 1.2262 32.67 833.4 1045.6 1.1985 33.19 727.8 949.2 1.2007 37.13 797.2 850.1 1.2138 35.54 753 957.4 1.2266 37.75 762 851.8 1.2176 41.84 613.7 913.9 1.2218 42.94 759.2 888 1.249 49.14 816.4 973.8 1.2991 44.61 736.8 927.6 1.3408 40.22 680.1 833 1.3119 44.23 736.5 879.5 1.3014 45.85 637.2 797.3 1.3201 53.38 801.9 834.5 1.2938 53.26 772.3 735.1 1.2694 51.8 897.3 835 1.2165 55.3 792.1 892.8 1.2037 57.81 826.8 697.2 1.2292 63.96 666.8 821.1 1.2256 63.77 906.6 732.7 1.2015 59.15 871.4 797.6 1.1786 56.12 891 866.3 1.1856 57.42 739.2 826.3 1.2103 63.52 833.6 778.6 1.1938 61.71 715.6 779.2 1.202 63.01 871.6 951 1.2271 68.18 751.6 692.3 1.277 72.03 1005.5 841.4 1.265 69.75 681.2 857.3 1.2684 74.41 837.3 760.7 1.2811 74.33 674.7 841.2 1.2727 64.24 806.3 810.3 1.2611 60.03 860.2 1007.4 1.2881 59.44 689.8 931.3 1.3213 62.5 691.6 931.2 1.2999 55.04 682.6 855.8 1.3074 58.34 800.1 858.4 1.3242 61.92 1023.7 925.9 1.3516 67.65 733.5 930.7 1.3511 67.68 875.3 1035.6
Names of X columns:
Wsslkrs Brent UitvoernrUSA InvoervanuitUSA
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