Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
51978 88900 37702 124.9 50330 87280 30364 132 48538 85519 32609 151.4 46636 83647 30212 108.9 44574 81616 29965 121.3 43028 80100 28352 123.4 56924 94027 25814 90.3 65193 102327 22414 79.3 67132 104296 20506 117.2 64398 101593 28806 116.9 57591 94816 22228 120.8 56279 93535 13971 96.1 56331 93618 36845 100.8 55015 92330 35338 105.3 53405 90751 35022 116.1 51200 88576 34777 112.8 48695 86102 26887 114.5 48057 85494 23970 117.2 65964 103432 22780 77.1 71371 108870 17351 80.1 72184 109713 21382 120.3 69400 106960 24561 133.4 65605 103195 17409 109.4 64727 102348 11514 93.2 64506 102158 31514 91.2 62751 100431 27071 99.2 59938 97649 29462 108.2 57870 95611 26105 101.5 55263 93035 22397 106.9 55777 93579 23843 104.4 73944 111777 21705 77.9 78201 116065 18089 60 78715 116609 20764 99.5 75009 112934 25316 95 69705 107660 17704 105.6 69979 107965 15548 102.5 69755 107772 28029 93.3 68155 106201 29383 97.3 64211 102288 36438 127 61110 99217 32034 111.7 58373 96511 22679 96.4 58288 96456 24319 133 74822 113021 18004 72.2 79606 117836 17537 95.8 80232 118492 20366 124.1 75631 113922 22782 127.6 70996 109317 19169 110.7 69144 107496 13807 104.6 67141 105524 29743 112.7 65413 103824 25591 115.3 63391 101833 29096 139.4 60964 99436 26482 119 58412 96915 22405 97.4 57539 96072 27044 154 73377 111941 17970 81.5 77413 116008 18730 88.8 78932 117557 19684 127.7 74789 113445 19785 105.1 70076 108762 18479 114.9 67944 106661 10698 106.4 64076 102824 31956 104.5 63136 101912 29506 121.6 60198 99005 34506 141.4 59057 97894 27165 99 57388 96256 26736 126.7 56708 95606 23691 134.1 70019 108948 18157 81.3 72263 111223 17328 88.6 74152 113142 18205 132.7 67057 106078 20995 132.9 61941 100992 17382 134.4 58331 97413 9367 103.7
Names of X columns:
werkl21 werkl50 inschr prod
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