# NOT RUN {
## Load dataset
data(datasaeT)
## Using parameter 'data'
Fo <- list(f1=Y1~X1+X2,
f2=Y2~X1+X2)
vardir <- c("v1", "v2", "v12")
m1 <- mHBT(formula=Fo, vardir=vardir,
iter.update = 1, iter.mcmc = 1000,
thin = 2, burn.in = 200, data=datasaeT)
# }
Run the code above in your browser using DataLab