Saprox <-
function(x){
qcc(x, type="S")}