Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
'GTM' 232.2 49.0 21.4 67.6 77.3 49.9 7.9 12.9 3.7 77.3 59.2 16.8 1.420 0.1 0.4 0.8 0.9 0.9 0.7 0.8 0.8 0.8 95.4 4.6 47.3 48.1 41.0 4.2 36.9 'PRO' 47.0 14.6 15.2 58.4 44.4 38.1 3.2 22.9 4.4 44.4 34.3 9.5 86 0.0 0.5 0.7 0.8 0.4 0.6 0.8 0.7 0.7 96.7 3.4 51.9 44.8 43.4 6.4 37.1 'SAC' 153.2 29.7 15.8 21.2 36.9 10.1 1.6 13.9 3.8 36.9 29.7 6.6 590 0.4 0.5 0.8 0.9 0.8 0.6 0.8 0.9 0.8 97.0 3.0 48.4 48.7 61.4 10.7 50.7 'CHM' 76.4 11.4 7.4 14.4 35.8 9.4 0.8 5.4 1.3 35.8 26.4 9.2 325 0.8 0.6 0.7 0.8 0.5 0.4 0.7 0.8 0.6 97.4 2.6 55.7 41.7 68.3 18.6 49.7 'ESC' 301.1 35.6 26.3 98.2 73.9 70.7 8.1 28.5 4.0 73.9 59.6 12.1 156 0.1 0.5 0.7 0.8 0.5 0.5 0.8 0.7 0.7 94.7 5.3 38.6 56.1 47.9 3.8 44.2 'SRO' 80.6 19.7 20.3 82.3 67.8 56.8 4.6 24.6 8.7 67.8 55.7 11.9 109 0.0 0.5 0.7 0.8 0.4 0.5 0.7 0.6 0.6 96.2 3.8 55.4 40.8 58.4 11.3 47.1 'SOL' 11.6 5.6 0.9 8.6 18.3 3.7 0.0 7.7 1.2 18.3 13.5 4.9 369 1.0 0.5 0.6 0.7 0.5 0.4 0.7 0.7 0.6 97.1 2.9 45.4 51.7 81.2 24.0 57.2 'TOT' 21.4 4.4 0.6 7.8 15.9 0.8 0.4 9.1 3.2 15.9 10.6 4.4 439 1.0 0.5 0.6 0.7 0.5 0.4 0.5 0.6 0.5 94.2 5.8 58.7 35.4 76.2 24.7 51.4 'QUT' 100.5 30.7 9.5 26.9 34.8 17.5 1.8 10.3 2.7 34.8 25.9 8.1 372 0.5 0.5 0.7 0.8 0.6 0.5 0.8 0.7 0.7 95.6 4.4 59.4 36.2 66.5 15.4 51.1 'SUC' 105.3 26.9 9.9 30.9 36.7 17.2 2.3 17.2 2.7 36.7 29.0 7.3 202 0.2 0.5 0.7 0.7 0.4 0.4 0.7 0.8 0.6 96.6 3.4 31.4 65.2 73.1 24.1 49.0 'RET' 86.1 24.1 5.9 36.0 37.6 23.1 1.3 18.2 3.0 37.6 28.7 7.6 178 0.2 0.5 0.7 0.8 0.4 0.4 0.6 0.7 0.6 95.2 4.8 42.1 53.1 60.5 13.4 47.1 'SMA' 22.8 6.3 4.7 15.6 12.7 10.7 0.3 6.8 0.9 12.7 9.9 2.6 288 0.3 0.6 0.7 0.7 0.3 0.4 0.6 0.7 0.6 96.8 3.2 64.4 32.4 65.1 15.2 49.9 'HUE' 48.1 7.5 4.3 6.4 13.1 3.8 0.3 3.7 0.3 13.1 10.0 2.1 156 0.6 0.6 0.6 0.7 0.3 0.4 0.6 0.7 0.6 97.1 3.0 69.4 27.6 55.7 9.6 46.1 'QUI' 23.4 5.4 2.1 6.4 14.4 2.3 0.3 5.5 1.0 14.4 9.0 4.8 131 0.9 0.6 0.5 0.6 0.3 0.4 0.5 0.7 0.5 97.1 2.9 59.6 37.5 66.5 16.2 50.3 'BVP' 39.5 22.0 6.3 18.6 23.1 7.4 1.5 16.4 1.9 23.1 16.4 5.6 25 0.6 0.5 0.6 0.7 0.3 0.6 0.6 0.7 0.6 96.3 3.7 59.9 36.4 62.4 22.4 40.0 'AVP' 33.8 11.5 7.0 13.0 14.5 7.4 0.4 7.3 1.3 14.5 11.3 2.9 371 0.9 0.6 0.6 0.6 0.2 0.2 0.3 0.4 0.3 94.5 5.5 50.5 44.0 77.2 30.2 47.0 'PET' 51.4 7.0 11.3 59.4 25.3 41.5 3.7 17.3 2.7 25.3 21.5 3.7 17 0.3 0.6 0.7 0.8 0.3 0.4 0.5 0.4 0.4 97.9 2.1 53.1 44.8 62.7 15.5 47.2 'IZA' 103.7 12.7 20.7 79.9 49.2 59.2 6.8 17.3 3.4 49.2 39.0 9.5 55 0.3 0.5 0.7 0.8 0.4 0.6 0.7 0.6 0.6 96.9 3.1 49.9 47.0 58.4 24.6 33.8 'ZAC' 64.1 8.1 42.5 92.6 67.8 66.4 7.7 23.5 5.9 67.8 50.6 14.9 82 0.0 0.5 0.7 0.8 0.4 0.6 0.7 0.8 0.7 97.6 2.4 41.8 55.8 61.5 25.0 36.5 'CHQ' 75.0 11.4 29.9 96.2 58.2 58.7 6.3 38.3 7.3 58.2 45.4 11.1 153 0.1 0.5 0.6 0.7 0.3 0.5 0.6 0.6 0.6 97.9 2.1 47.7 50.3 66.0 22.0 34.0 'JAL' 12.4 11.1 12.4 54.4 35.0 33.1 4.8 18.1 5.1 35.0 29.0 5.1 154 0.0 0.6 0.7 0.8 0.3 0.5 0.5 0.6 0.5 97.9 2.1 42.6 55.3 73.4 18.9 54.6 'JUT' 34.8 11.7 6.2 61.3 46.3 42.8 7.4 14.0 2.3 46.3 36.4 9.7 131 0.0 0.5 0.7 0.8 0.3 0.5 0.7 0.6 0.6 97.5 2.5 52.6 45.0 48.9 14.3 34.6
Names of X columns:
Metric
euclidean
euclidean
manhattan
Method
average
average
single
complete
ward
weighted
flexible
Number of parameters in Lance-Williams formula
1
1
3
4
alpha 1 (Lance-Williams formula)
alpha 2 (Lance-Williams formula)
beta (Lance-Williams formula)
gamma (Lance-Williams formula)
Chart options
Title:
Label y-axis:
Label x-axis:
R Code
par7 <- '0' par6 <- '0.5' par5 <- '0.5' par4 <- '0.5' par3 <- '1' par2 <- 'average' par1 <- 'manhattan' par3 <- as.numeric(par3) par4 <- as.numeric(par4) par5 <- as.numeric(par5) par6 <- as.numeric(par6) par7 <- as.numeric(par7) library(cluster) if (par2 == 'flexible') { if (par3 == 1) pm <- c(par4) if (par3 == 3) pm <- c(par4,par5,par6) if (par3 == 4) pm <- c(par4,par5,par6,par7) ag <- agnes(t(y),metric=par1,method=par2,par.method=pm) } else { ag <- agnes(t(y),metric=par1,method=par2) } mysub <- paste('Method: ',par2) summary(ag) bitmap(file='test1.png') plot(ag,which.plots=2,main=main,sub=mysub,xlab=xlab,ylab=ylab) dev.off() bitmap(file='test2.png') plot(ag,which.plots=1,main='Banner',sub=mysub,xlab=ylab,ylab=xlab) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Agglomerative Nesting (Hierarchical Clustering)',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Agglomerative Coefficient',header=TRUE) a<-table.element(a,ag$ac) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable.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