## Not run:
# fbase <- "swrfM"
# slice <- 21
# slicedata <- read.fmrislice(fbase=fbase, slice=slice, swap=FALSE )
# ymaskdata <- premask(slicedata)
# Z <- read.Zsegslice(slicedata, ymaskdata )
# ## Random effects simulation
# fsave <- paste(tempdir(),"/simultest2",fileext = ".sav", sep="")
# out <- cudaMultireg.slice(slicedata, ymaskdata, R=2000, keep=5, nu.e=3,
# fsave=fsave, zprior=TRUE)
# post.ppm(out=out, slicedata=slicedata, ymaskdata=ymaskdata, vreg=2)
#
# ## End(Not run)
Run the code above in your browser using DataLab