Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1784 3269 1961782 1429 2934 1787447 1744 3098 1953757 1551 2956 1828167 1679 3429 2078223 1639 2887 1777226 1393 2587 1538059 1405 2865 1678452 1750 3645 2262924 1263 2557 1616451 1357 3120 1829222 1593 2827 1763216 1821 3530 2138777 1419 2606 1565784 1524 3015 1781485 1637 3481 1962103 1540 3011 1775358 1623 3179 1837255 1523 2899 1917824 1335 2768 1878651 1700 3498 2124030 1615 3417 1948811 1493 3317 1947985 1577 2951 1719466 1607 3911 2139078 1765 3674 2086587 1504 3505 2020001 1936 4263 2405555 1862 3729 2152069 2570 4384 2791310 2082 4110 2397287 1781 3360 1885473 1869 3450 1978324 1785 3708 2165120 1682 3515 2052877 1556 2877 1726766 2080 3810 2267082 2027 3953 2501737 1887 3226 1916630 1935 3818 2177682 1798 3295 1859283 1589 2884 1718749 1592 3190 1819181 1387 2652 1463556 1849 3388 1979279 1470 3071 1723911 1437 2545 1528538 1500 2686 1635412 2081 4085 2255789 1552 2869 1698773 1586 2719 1635959 1914 3599 2054968 1639 2912 1794346 1633 3509 1938855 1693 3533 2112672 1224 2365 1446965 1417 2606 1610773 1577 2712 1576815 1225 2551 1509935 1510 2646 1769046
Names of X columns:
Aantalgebouwen Aantalwoningen Ruimte
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