Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1.3322 133.52 7.4545 1.4369 153.2 7.4583 1.4975 163.63 7.4595 1.577 168.45 7.4599 1.5553 166.26 7.4586 1.5557 162.31 7.4609 1.575 161.56 7.4603 1.5527 156.59 7.4561 1.4748 157.97 7.454 1.4718 158.68 7.4505 1.457 163.55 7.4599 1.4684 162.89 7.4543 1.4227 164.95 7.4534 1.3896 159.82 7.4506 1.3622 159.05 7.4429 1.3716 166.76 7.441 1.3419 164.55 7.4452 1.3511 163.22 7.4519 1.3516 160.68 7.453 1.3242 155.24 7.4494 1.3074 157.6 7.4541 1.2999 156.56 7.4539 1.3213 154.82 7.4549 1.2881 151.11 7.4564 1.2611 149.65 7.4555 1.2727 148.99 7.4601 1.2811 148.53 7.4609 1.2684 146.7 7.4602 1.265 145.11 7.4566 1.277 142.7 7.4565 1.2271 143.59 7.4618 1.202 140.96 7.4612 1.1938 140.77 7.4641 1.2103 139.81 7.4613 1.1856 140.58 7.4541 1.1786 139.59 7.4596 1.2015 138.05 7.462 1.2256 136.06 7.4584 1.2292 135.98 7.4596 1.2037 134.75 7.4584 1.2165 132.22 7.4448 1.2694 135.37 7.4443 1.2938 138.84 7.4499 1.3201 138.83 7.4466 1.3014 136.55 7.4427 1.3119 135.63 7.4405 1.3408 139.14 7.4338 1.2991 136.09 7.4313 1.249 135.97 7.4379 1.2218 134.51 7.4381 1.2176 134.54 7.4365 1.2266 134.08 7.4355 1.2138 132.86 7.4342 1.2007 134.48 7.4405 1.1985 129.08 7.4436 1.2262 133.13 7.4493 1.2646 134.78 7.4511 1.2613 134.13 7.4481 1.2286 132.43 7.4419 1.1702 127.84 7.437 1.1692 128.12 7.4301 1.1222 128.94 7.4273 1.1139 132.38 7.4322 1.1372 134.99 7.4332 1.1663 138.05 7.425 1.1582 135.83 7.4246 1.0848 130.12 7.4255 1.0807 128.16 7.4274 1.0773 128.6 7.4317 1.0622 126.12 7.4324 1.0183 124.2 7.4264 1.0014 121.65 7.428 0.9811 121.57 7.4297 0.9808 118.38 7.4271
Names of X columns:
Dollar Yen DeenseKroon
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