Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
517 22780 2218 525 17351 1855 523 21382 2187 519 24561 1852 509 17409 1570 512 11514 1851 519 31514 1954 517 27071 1828 510 29462 2251 509 26105 2277 501 22397 2085 507 23843 2282 569 21705 2266 580 18089 1878 578 20764 2267 565 25316 2069 547 17704 1746 555 15548 2299 562 28029 2360 561 29383 2214 555 36438 2825 544 32034 2355 537 22679 2333 543 24319 3016 594 18004 2155 611 17537 2172 613 20366 2150 611 22782 2533 594 19169 2058 595 13807 2160 591 29743 2259 589 25591 2498 584 29096 2695 573 26482 2799 567 22405 2945 569 27044 2930 621 17970 2318 629 18730 2540 628 19684 2570 612 19785 2669 595 18479 2450 597 10698 2842 593 31956 3439 590 29506 2677 580 34506 2979 574 27165 2257 573 26736 2842 573 23691 2546 620 18157 2455 626 17328 2293 620 18205 2379 588 20995 2478 566 17382 2054 557 9367 2272 561 31124 2351 549 26551 2271 532 30651 2542 526 25859 2304 511 25100 2194 499 25778 2722 555 20418 2395 565 18688 2146 542 20424 1894 527 24776 2548 510 19814 2087 514 12738 2063 517 31566 2481 508 30111 2476 493 30019 2212 490 31934 2834 469 25826 2148 478 26835 2598
Names of X columns:
Werkloosheid nieuwewagens bouwvergunningen
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