Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
97.6 89.6 6.4 9.1 96.9 92.8 6.3 9.0 105.6 107.6 6.3 8.6 102.8 104.6 6.4 7.9 101.7 103.0 6.3 7.7 104.2 106.9 6.0 7.8 92.7 56.3 6.2 9.1 91.9 93.4 6.3 9.4 106.5 109.1 6.6 9.3 112.3 113.8 7.5 8.7 102.8 97.4 7.8 8.4 96.5 72.5 7.9 8.6 101.0 82.7 7.8 9.0 98.9 88.9 7.6 9.1 105.1 105.9 7.5 8.7 103.0 100.8 7.6 8.2 99.0 94.0 7.5 7.9 104.3 105.0 7.3 7.9 94.6 58.5 7.6 9.1 90.4 87.6 7.5 9.4 108.9 113.1 7.6 9.5 111.4 112.5 7.9 9.1 100.8 89.6 7.9 9.0 102.5 74.5 8.1 9.3 98.2 82.7 8.2 9.9 98.7 90.1 8.0 9.8 113.3 109.4 7.5 9.4 104.6 96.0 6.8 8.3 99.3 89.2 6.5 8.0 111.8 109.1 6.6 8.5 97.3 49.1 7.6 10.4 97.7 92.9 8.0 11.1 115.6 107.7 8.0 10.9 111.9 103.5 7.7 9.9 107.0 91.1 7.5 9.2 107.1 79.8 7.6 9.2 100.6 71.9 7.7 9.5 99.2 82.9 7.9 9.6 108.4 90.1 7.8 9.5 103.0 100.7 7.5 9.1 99.8 90.7 7.5 8.9 115.0 108.8 7.1 9.0 90.8 44.1 7.5 10.1 95.9 93.6 7.5 10.3 114.4 107.4 7.6 10.2 108.2 96.5 7.7 9.6 112.6 93.6 7.7 9.2 109.1 76.5 7.9 9.3 105.0 76.7 8.1 9.4 105.0 84.0 8.2 9.4 118.5 103.3 8.2 9.2 103.7 88.5 8.1 9.0 112.5 99.0 7.9 9.0 116.6 105.9 7.3 9.0 96.6 44.7 6.9 9.8 101.9 94.0 6.6 10.0 116.5 107.1 6.7 9.9 119.3 104.8 6.9 9.3 115.4 102.5 7.0 9.0 108.5 77.7 7.1 9.0 111.5 85.2 7.2 9.1 108.8 91.3 7.1 9.1 121.8 106.5 6.9 9.1 109.6 92.4 7.0 9.2 112.2 97.5 6.8 8.8 119.6 107.0 6.4 8.3 104.1 51.1 6.7 8.4 105.3 98.6 6.7 8.1 115.0 102.2 6.4 7.8 124.1 114.3 6.3 7.9 116.8 99.4 6.2 7.9 107.5 72.5 6.5 8.0 115.6 92.3 6.8 7.9 116.2 99.4 6.8 7.5 116.3 85.9 6.5 7.2 119.0 109.4 6.3 6.9 111.9 97.6 5.9 6.6 118.6 104.7 5.9 6.7 106.7 56.5 6.4 7.3
Names of X columns:
Tot Bouw WerkloosM WerkloosV
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