##
if(nchar(Sys.getenv("LONG_TEST")) != 0) {R=1000} else {R=1}
{
data(customerSat)
surveydat = list(k=10,x=as.matrix(customerSat))
Mcmc1 = list(R=R)
set.seed(66)
out=rscaleUsage(Data=surveydat,Mcmc=Mcmc1)
summary(out$mudraw)
}
Run the code above in your browser using DataLab