Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1515 2718 524944 292792 1510 2646 568106 318530 1225 2551 484506 276807 1577 2712 512235 284524 1417 2606 523179 290486 1224 2365 462411 259355 1693 3533 685872 383556 1633 3509 635902 350488 1639 2912 573599 318029 1914 3599 668826 377740 1586 2719 520868 293546 1552 2869 555680 317460 2081 4085 727941 401629 1500 2686 516959 282854 1437 2545 489975 275316 1470 3071 559687 304680 1849 3388 630947 349947 1387 2652 473994 266543 1592 3190 583802 329195 1589 2884 553061 314626 1798 3295 604700 338463 1935 3818 708101 399338 1887 3226 617053 339542 2027 3953 819858 454688 2080 3810 736520 396766 1556 2877 567696 309465 1682 3515 666627 365707 1785 3708 701749 383677 1869 3450 647394 352609 1781 3360 610231 340011 2082 4110 777555 425915 2570 4384 901319 498938 1862 3729 707164 391142 1936 4263 782859 418962 1504 3505 652556 342378 1765 3674 676064 369674 1607 3911 707665 391250 1577 2951 561515 310589 1493 3317 645794 335910 1615 3417 623482 344448 1700 3498 673401 361944 1335 2768 544890 290274 1523 2899 605125 327902 1623 3179 608393 330268 1540 3011 579718 324957 1637 3481 647499 350780 1524 3015 575016 320017 1419 2606 510096 278970 1821 3530 697835 383097 1593 2827 561177 301300 1357 3120 584949 318259 1263 2557 516723 266891 1750 3645 695323 384327 1405 2865 548018 294991 1393 2587 497706 267257 1639 2887 559796 310886 1679 3429 669449 359118 1551 2956 583301 314124 1744 3098 626790 340377 1429 2934 580268 309894 1784 3269 649016 353873
Names of X columns:
x1 x2 x3 x4
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