##
if(nchar(Sys.getenv("LONG_TEST")) != 0)
{
data(customerSat)
surveydat = list(k=10,x=as.matrix(customerSat))
R=1000
mcmc = list(R=R)
set.seed(66)
out=rscaleUsage(Data=surveydat,Mcmc=mcmc)
cat("mudraws ",fill=TRUE)
mat=apply(out$mudraw,2,quantile,probs=c(.01,.05,.5,.95,.99))
print(mat)
}
Run the code above in your browser using DataLab