## Not run:
# ## load simulation
# fsave <- paste(tempdir(),"/simultest1",fileext = ".sav", sep="")
# load(file=fsave)
# cat("loaded",fsave,"\n")
# vreg <- 2
# pmeans <- pmeans.hcoef(out$betadraw)
# px <- regpostsim(pmeans, vreg=vreg)
# spma <- px$spma # active voxels
# spmn <- px$spmn # non-active voxels
# plot(out$betadraw,spmname="activated",spm=spma)
# plot(out$betadraw,spmname="non-activated",spm=spmn)
# ## End(Not run)
Run the code above in your browser using DataLab