Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
1 20 5 2 60 3 2 75 4 2 75 4 1 15 3 2 40 3 1 40 4 2 50 4 2 30 4 2 30 3 2 30 3 2 20 4 2 90 3 2 25 3 1 60 3 2 30 2 2 60 3 2 150 3 1 30 4 2 40 3 2 50 3 2 20 3 2 45 4 1 45 2 1 30 4 2 30 3 3 75 4 1 60 3 3 60 3 2 120 3 2 35 4 2 70 3 2 50 3 2 25 4 2 45 3 1 20 5 2 45 4 2 45 4 2 55 4 2 45 4 2 35 3 2 60 3 1 40 3 2 45 5 2 55 3 2 40 3 2 40 3 2 20 3 1 20 3 2 50 4 2 20 3
Names of X columns:
difficulty preperationtime ranking
Metric
euclidean
euclidean
manhattan
Method
single
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
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