Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
12192.5 3277.2 10772.8 3421.3 11268.8 3833 9987.7 3531.4 9097.4 2606.3 8638.7 3219.2 12639.8 3643.8 11063.7 3552.3 13040.1 3686.4 11855.7 3787.7 11687.3 3281.6 10684.5 3392.7 11191.7 3669.3 11337.4 3550 11391.9 3191.5 10478 3681.9 11793.1 3512.7 11123.9 3519.1 13933.2 3970.7 12909.3 4283.2 12778.1 3601.2 11339.9 4046.2 11810.3 3610 10462.2 3824.9 13698.4 4172.1 12733.5 4793.1 11956.6 3956.2 10519.2 3977.7 10723.8 3142.7 10414.9 3983.4 13938.9 3884.3 12476.8 4152.9 13979.8 3892.2 12384.6 4286.1 13807.4 3613 12266.7 4348.1 12973.9 3730.5 12919.9 3949.3 12509.8 3481.3 11497.3 4166.7 12934.1 3649.5 12142 4217.9 14908.3 4215.2 13919.4 4528.2 13772.1 4066.6 12656.8 4232.2 13012.6 4196.8 12034.1 4470.9 14049.9 4536.6 13199.7 5121.2 11816.5 4441.6 10881.3 4170.8 11593.2 3548.3 11301.2 4398.6 14466.2 4735.9 13643.9 4491.4 13615.9 4130.6 12517 4251.8 14733.9 4356.2 13981.1 4901.9 13880.7 4159.6 14275.7 4745.2 13527.5 3988 13435 4666.9 13584 4167.8 13565.7 4210.4 16170.2 4902.2 16216.3 5273.6 13260.6 3909.4 12970 4095.3 14741.9 4697.6 14079.9 4610.1 15486.5 4308.9 14235 4718.1 13154.5 4420.4 12213.4 4185.5 12621.2 3544.2 12581 4314.7 15031.6 4433 14130.4 4422.6 15452.4 4479.7 14210.8 5059.2 15428 4533.2 14378.5 5043.6 13105.9 4237.5 13142.8 4436.6 14716.8 4207.4 13714.7 4922.6 14180 4394 13621.9 4454.8 16202.2 5148.4 15379.8 5058.7 14392.4 4202.2 13306.3 4768.9 15140.6 4682.5 14391.2 5171.8 15960.1 4884.3 14909.9 4989.3 14351.3 5288.9 14025.4 5202.1 13230.2 4505.2 12951.2 4838.4 15202.1 4611.5 14344.3 4876.5 17157.3 5081.1 16213.3 5845.3 16159.1 4523.1 15544.5 5686.3 13405.7 4412.8 14750.6 4753.8 17224.7 4647.4 17292.7 6620.4 17338.4 4778.6 17568.5 5597.2 17370.6 4495.3 17930.8 5643.5 18817.8 4633.5 18644.7 6357.3 16593.2 4360.5 16694.8 5909.1 17979.5 4517.9 17242.8 6165.8
Names of X columns:
UItvoerIntraEU UitvoerExtraEU InvoerIntraEU InvoerExtraEU
Method
complete
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
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation