Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
5014 2400 3180 1712 6153 4700 4151 2641 6441 3700 4023 2267 5584 2900 3431 2126 6427 2800 3874 2231 6062 3000 2617 1517 5589 3100 3580 2010 6216 3700 5267 2628 5809 3000 3832 2115 4989 2000 3441 1829 6706 1900 3228 1636 7174 1900 3397 1787 6122 1800 3971 2122 8075 3400 4625 2620 6292 3800 4486 2555 6337 2800 4131 2337 8576 3100 4686 2524 6077 2100 3174 1801 5931 2000 4282 2417 6288 2500 4209 2389 7167 2400 4159 2267 6054 2500 3936 2135 6468 3300 3153 1760 6401 3100 3620 1905 6927 3700 4227 2176 7914 5600 4441 2344 7728 3700 4808 2673 8699 2900 4850 2766 8522 4000 5040 2785 6481 2900 3546 2003 7502 2400 4669 2588 7778 3300 5410 2739 7424 3800 5134 2703 6941 4400 4864 2464 8574 4000 3999 1974 9169 3100 4459 2164 7701 2700 4622 2385 9035 5200 5360 2936 7158 4600 4658 2700 8195 3700 5173 2855 8124 3200 4845 2764 7073 2400 3325 1808 7017 2200 4720 2588 7390 3200 4895 2600 7776 3100 5071 2526 6197 2300 4895 2259 6889 2500 3805 1738 7087 2900 4187 1902 6485 2700 4435 2137 7654 5000 4475 2460 6501 3500 4774 2495 6313 3000 5161 2525 7826 3800 4529 2465 6589 2800 3284 1828 6729 2400 4303 2273 5684 2700 4610 2377 8105 2800 4691 2344 6391 2700 4200 2071 5901 2600 3471 1611 6758 3100 3132 1671
Names of X columns:
bouwvergunningen kredieten woningen gebouwen
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