Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
604.4 882.5 1.1663 883.9 789.6 1.1372 527.9 773.3 1.1139 756.2 804.3 1.1222 812.9 817.8 1.1692 655.6 836.7 1.1702 707.6 721.8 1.2286 612.6 760.8 1.2613 659.2 841.4 1.2646 833.4 1045.6 1.2262 727.8 949.2 1.1985 797.2 850.1 1.2007 753 957.4 1.2138 762 851.8 1.2266 613.7 913.9 1.2176 759.2 888 1.2218 816.4 973.8 1.249 736.8 927.6 1.2991 680.1 833 1.3408 736.5 879.5 1.3119 637.2 797.3 1.3014 801.9 834.5 1.3201 772.3 735.1 1.2938 897.3 835 1.2694 792.1 892.8 1.2165 826.8 697.2 1.2037 666.8 821.1 1.2292 906.6 732.7 1.2256 871.4 797.6 1.2015 891 866.3 1.1786 739.2 826.3 1.1856 833.6 778.6 1.2103 715.6 779.2 1.1938 871.6 951 1.202 751.6 692.3 1.2271 1005.5 841.4 1.277 681.2 857.3 1.265 837.3 760.7 1.2684 674.7 841.2 1.2811 806.3 810.3 1.2727 860.2 1007.4 1.2611 689.8 931.3 1.2881 691.6 931.2 1.3213 682.6 855.8 1.2999 800.1 858.4 1.3074 1023.7 925.9 1.3242 733.5 930.7 1.3516 875.3 1037.6 1.3511 770.2 979.2 1.3419 1005.7 942.6 1.3716 982.3 843.9 1.3622 742.9 854.3 1.3896 974.2 1029.8 1.4227 822.3 944 1.4684 773.2 856.4 1.457 750.9 1059.4 1.4718 708 959.3 1.4748 690 941.5 1.5527 652.8 1026.4 1.575 620.7 921.3 1.5557 461.9 968 1.5553
Names of X columns:
UitvoerVS InvoerBE EURUSD
Method
median
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
20
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