"John Lawson, Cameron Willden (2016).", "Mixture Experiments in R Using mixexp.", "Journal of Statistical Software, Code Snippets, 72(2), 1-20." "doi:10.18637/jss.v072.c02"
##Usage and Examples - Example from page 458 DAE with SASdat = data.frame("x1"=c(1,.8,.6,.5,.5,.33333,.3,.3,.1,.1,0,0,0),"x2"=c(0,.1,.2,0,.5,.33333,.2,.5,.1,.8,0,.5,1),"x3"=c(0,.1,.2,.5,0,.33333,.5,.2,.8,.1,1.0,.5,0),"y"=c(48.7,49.5,50.2,52.8,49.3,51.1,52.7,50.3,60.7,49.9,64.9,53.5,50.6))MixturePlot(dat$x3,dat$x2,dat$x1,dat$y, x3lab="Fraction x3", x2lab="Fraction x2", x1lab="Fraction x1", corner.labs=c("x3","x2","x1"), constrts=FALSE,contrs=TRUE,cols=TRUE, mod=2,n.breaks=9)# Weed control example from Lawson & Erjavecx1<-c(1,0,0,.5,.5,0,.33333,.33333,.33333)x2<-c(0,1,0,.5,0,.5,.33333,.33333,.33333)x3<-c(0,0,1,0,.5,.5,.33333,.33333,.33333)y<-c(73,68,80,77,86,75,92,93,88)des<-data.frame(x1,x2,x3,y)MixturePlot(des=des,x3lab="Fraction C",x2lab="Fraction B", x1lab="Fraction A",corner.labs=c("C","B","A"),mod=4,n.breaks=5,cols=TRUE)