tests/PosteriorQuantileTests/JOU/BayesValidateJOU.R

source("../PosteriorQuantileCommon.R")

res.validate <- validate.common(
  modelFromVectorJOU, priorJOU, genParamJOU,
  n.batch = c(2, 1, 2, 1, 1, 1, 1),
  params.batch = expression(H["b,ii"],H["b,ij"],theta["b,i"],Sigma["ab,ii"],Sigma["a,12"],Sigma['e,ab,ii'],Sigma["j,b,ii"]))

save(res.validate, file="BayesValidateJOU.RData")
venelin/PCMBase documentation built on March 14, 2024, 8:24 p.m.