Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
90.49 91.25 90.65 91.5 90.95 91.68 91.19 91.81 91.07 91.84 91.15 91.93 91.81 92.08 91.95 92.11 91.62 92.26 91.27 92.28 91.4 92.39 91.76 92.46 91.99 92.82 92.34 93.16 92.3 93.33 92.85 93.51 92.94 93.56 93.26 93.67 94.21 93.76 94.08 93.88 93.98 94.01 94.23 94.21 94.93 94.31 95.09 94.4 95.37 94.9 96.23 95.31 96.2 95.52 95.43 95.68 95.63 95.91 95.96 95.97 96.51 96.15 96.65 96.34 96.21 96.42 95.54 96.54 95.96 96.72 96.41 96.81 96.32 97.19 96.94 97.5 96.97 97.71 97.63 97.86 97.33 98.04 97.66 98.2 98.18 98.25 98.22 98.41 97.91 98.56 97.93 98.62 98.4 98.75 98.78 98.71 98.73 99.05 99.4 99.52 99.04 99.71 99.68 99.8 99.62 100.01 99.8 99.99 100.65 100.12 100.59 100.15 100.46 100.27 100.57 100.42 100.75 100.43 100.7 100.5 101.44 100.95 101.77 101.26 101.79 101.42 101.52 101.68 101.83 101.75 102.23 101.89 103.04 102.07 102.81 102.22 102.48 102.45 102.81 102.62 103.21 102.67 103.21 102.86 102.92 104.78 103.48 104.87 103.18 105.06 103.39 105.14 103.5 105.32 103.73 105.54 104.42 105.68 104.53 105.77 104.09 106.07 104.23 106.03 104.23 106.13 104.54 106.28 104.65 106.61 105.48 106.74 105.61 107.01 105.74 107.1 105.86 107.28 105.81 107.4 106.49 107.59 106.43 107.69 105.73 107.78
Names of X columns:
Diensten Huur
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