# NOT RUN {
# Example 1: Monitoring considering two variables and Inew= 10 in control batches
mydata=simoff()
T2.var=offlinem(data=mydata$data,size=2)
T2.var.new=offlinem(data=mydata$data,size=2,newdata=mydata$newdata)
W.var=offlinem(data=mydata$data,size=2,type="W.var")
W.var.new=offlinem(data=mydata$data,size=2,type="W.var",newdata=mydata$newdata)
# Example 2: Monitoring considering three variables and Inew=50 out of control batches
B1=matrix(c(-0.3,0,0.4,0,0.2,0,0,-0.1,0.5),3,byrow=TRUE)
B1new=matrix(c(0.7,0,0.4,0,0.5,0,0,-0.1,0.5),3,byrow=TRUE)
mydata2=simoff(n=100,I=100,size=3,Inew=50,B1,varcov=diag(3),B1new)
T2.var=offlinem(data=mydata2$data,size=3)
T2.var.new=offlinem(data=mydata2$data,size=3,newdata=mydata2$newdata)
W.var=offlinem(data=mydata2$data,size=3,type="W.var")
W.var.new=offlinem(data=mydata2$data,size=3,type="W.var",newdata=mydata2$newdata)
# }
Run the code above in your browser using DataLab