Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
(select(0)from(select(sleep(15)))v)/*'+(select(0)from(select(sleep(15)))v)+'"+(select(0)from(select(sleep(15)))v)+"*/
Names of X columns:
555
Metric
1
euclidean
manhattan
Method
1
average
single
complete
ward
weighted
flexible
Number of parameters in Lance-Williams formula
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 <- '1' par1 <- '1' 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