
Last chance! 50% off unlimited learning
Sale ends in
PP.optimize.random(PPmethod, projdim, data, class, std=TRUE, cooling=0.99, temp=1, r=NULL, lambda=NULL, weight=TRUE, ...)
PP.optimize.anneal(PPmethod, projdim, data, class, std=TRUE, cooling=0.999, temp=1, energy=0.01, r=NULL, lambda=NULL, weight=TRUE, ...)
PP.optimize.Huber(PPmethod, projdim, data, class, std=TRUE, cooling=0.99, temp=1, r=NULL, lambda=NULL, weight=TRUE, ...)
PP.optimize.plot(PP.opt, data, class, std=TRUE)
``LDA" - LDA index
``Lp" - Lp index;
``PDA" - PDA index
{PPindex.class}
data(iris)
PP.opt<-PP.optimize.random("LDA",1,iris[,1:4],iris[,5],cooling=0.999,temp=1)
PP.opt$index.best
PP.optimize.plot(PP.opt,iris[,1:4],iris[,5])
PP.opt<-PP.optimize.anneal("LDA",1,iris[,1:4],iris[,5],cooling=0.999,temp=1,energy=0.01)
PP.opt$index.best
PP.optimize.plot(PP.opt,iris[,1:4],iris[,5])
PP.opt<-PP.optimize.Huber("LDA",2,iris[,1:4],iris[,5],cooling=0.999,r=1)
PP.opt$index.best
PP.optimize.plot(PP.opt,iris[,1:4],iris[,5])
Run the code above in your browser using DataLab