powered by
xbarII(x, x2bar, sigma, sizes)
data(pistonrings) xI<-xbarI(pistonrings[1:25,]) xbarII(pistonrings[26:40,],xI[[1]],xI[[2]])
Run the code above in your browser using DataLab