# NOT RUN {
f <- gjamSimData(S = 10, Q = 6, typeNames = 'OC')
ml <- list(ng = 50, burnin = 5, typeNames = f$typeNames)
out <- gjam(f$formula, f$xdata, f$ydata, modelList = ml)
xvector <- colMeans(out$inputs$xStand) #predict at mean values for data, standardized x
xvector[1] <- 1
fit <- gjamIIE(out, xvector)
gjamIIEplot(fit, response = 'S1', effectMu = c('main','ind'),
effectSd = c('main','ind'), legLoc = 'topleft')
# }
Run the code above in your browser using DataLab