## Portland cement data set is used.
data(pcd)
r<-c(2.1930,1.1533,0.75850)
R<-c(1,0,0,0,0,1,0,0,0,0,1,0)
dpn<-c(0.0439,0.0029,0.0325)
delt<-c(0,0,0)
mixe(Y~X1+X2+X3+X4-1,r,R,dpn,delt,data=pcd) # Model without the intercept is considered.
Run the code above in your browser using DataLab