data(industrial)
x <- industrial$x
LSL <- industrial$LSL
USL <- industrial$USL
Target<- industrial$Target
res.ind <- mpcv(x, LSL=LSL, USL=USL, Target=Target, alpha=0.025, coef.lo=c(NA,.005))
plot(res.ind)
Run the code above in your browser using DataLab