# NOT RUN {
data("example_eQTL", package = "BayesSUR")
hyperpar = list( a_w = 2 , b_w = 5 )
set.seed(9173)
fit <- BayesSUR(Y = example_eQTL[["blockList"]][[1]],
X = example_eQTL[["blockList"]][[2]],
data = example_eQTL[["data"]], outFilePath = tempdir(),
nIter = 100, burnin = 0, nChains = 2, gammaPrior = "hotspot",
hyperpar = hyperpar, tmpFolder = "tmp/" )
## check output
# Show the interactive plots. Note that it needs at least 2000*(nbloc+1) iterations
# for the diagnosis plots where nbloc=3 by default
# }
# NOT RUN {
plot(fit)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab