# NOT RUN {
##Usage and Examples - Example from page 458 DAE with SAS
dat = 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 & Erjavec
x1<-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)
# }
Run the code above in your browser using DataLab