Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
3.3 2.36 5.41 2.86 1.95 5.46 2.27 2.16 5.64 1.95 2.76 5.76 2.98 2.09 5.82 1.71 1.49 5.84 1.31 1.17 5.83 1.37 1.3 5.85 1.8 1.26 5.85 2.14 2.17 5.88 2.05 2.03 5.87 2.43 2.18 5.87 5.28 2.61 5.85 4.07 2.58 5.89 3.24 3.86 5.88 1.22 3.81 5.89 1.18 2.41 5.9 1 1.47 5.91 1.18 1.33 5.89 1.86 1.38 5.92 2.38 1.57 5.91 1.48 2.6 5.96 1.62 2.18 5.96 2.44 2.36 5.99 3.91 2.24 5.92 3.83 2.41 5.96 2.9 2.51 5.96 1.67 2.98 5.97 1.19 1.87 5.96 1.26 1.9 5.95 1.6 1.47 5.97 2.61 1.45 5.98 2.19 2.71 5.99 1.46 2.9 6.03 2.17 2.11 6.05 2.6 2.18 6.08 4.33 2.24 6.1 2.9 2.05 6.11 2.05 2.42 6.09 1.51 2.77 6.1 1.19 1.99 6.12 1.08 1.47 6.13 1.1 1.09 6.13 1.39 0.93 6.17 1.35 1.32 6.19 1.69 2.03 6.23 2.35 2.04 6.21 3.7 2.78 6.23 3.55 2.8 6.25 3.75 3.03 6.23 4.23 3.11 6.23 2.13 2.75 6.24 1.33 2.78 6.28 1.46 1.76 6.3 2.1 1.29 6.34 1.76 1.28 6.27 1.28 1.43 6.22 1.26 1.71 6.31 1.99 1.89 6.33 3.06 1.84 6.31 3.33 2.08 6.35 4.02 2.09 6.33 2.43 2.36 6.36 1.39 2.99 6.37 1.52 2.75 6.33 1.75 1.58 6.34 2.22 1.69 6.42 2.57 1.3 6.42 2.37 1.97 6.48 1.69 1.84 6.47 2.71 1.96 6.5 3.06 1.86 6.52 4.64 2.75 6.49 3.22 2.62 6.51 2.35 2.41 6.52 2.01 3.61 6.54 1.49 2.03 6.59 1.31 1.45 6.6 1.29 1.4 6.59 1.33 1.3 6.58 1.33 1.58 6.55 1.39 2.1 6.57 2.39 2.27 6.61 3.04 2.54 6.61
Names of X columns:
Kropsla Tomaten Gehakt
Method
ward
single
complete
average
mcquitty
median
centroid
# of (top) clusters to display
ALL
2
3
4
5
6
7
8
9
10
15
20
Horizontal
FALSE
TRUE
Triangle
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