Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
99.2 96.7 101.0 99.0 98.1 100.1 100.0 100.0 100.0 111.6 104.9 90.6 122.2 104.9 86.5 117.6 109.5 89.7 121.1 110.8 90.6 136.0 112.3 82.8 154.2 109.3 70.1 153.6 105.3 65.4 158.5 101.7 61.3 140.6 95.4 62.5 136.2 96.4 63.6 168.0 97.6 52.6 154.3 102.4 59.7 149.0 101.6 59.5 165.5 103.8 61.3
Names of X columns:
Cons Inc Price
Metric
euclidean
euclidean
manhattan
Method
ward
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