# Regenerate only sim3 and sim8b golden outputs using the minimally-patched original.
source('test/setup-data.R')
source('test/orig-compat.r')
out.dir <- 'test/baseline_orig'

q <- function(e) suppressWarnings(suppressMessages(e))

sim3 <- q(create.sim.dataset(read.dose.info=T, di='DOSEINT', num.dose=3, dose='NDOSE', dose.unit='DU',
  dose.cmt='DOSECMT', obs.cmt=1, smp.time=list(st.2w, st.3w), smp.time.as.is=F, inf.time='INFTIME',
  auc.interval=T, auc.cmt=3, cov.df=param2, id.var='ID', bw.var='BBWT', output.suffix='s3', export=FALSE,
  ss=TRUE, smp.time.ss=NA, only.ss=FALSE, num.dose.ss=2, skip.dir.check=TRUE))
saveRDS(sim3, file.path(out.dir, 'sim3.rds')); cat('sim3 ok\n')

sim8b <- q(create.sim.dataset(read.dose.info=T, di='DOSEINT', num.dose='NUMDOSE', dose='NDOSE', dose.unit='DU',
  dose.cmt='DOSECMT', sec.dose.cmt='SDOSECMT', obs.cmt=1, smp.time=list(st.2w, st.3w), smp.time.as.is=F, inf.time='INFTIME', sec.inf.time='SINFTIME',
  auc.interval=T, auc.cmt=3, cov.df=param3, id.var='ID', bw.var='BBWT', output.suffix='s8b', export=F,
  ss=T, ss.with.addl=T, addl=100, auc.ss.interval=T, smp.time.ss=list(c(1,2,3,504), c(2,4,6,336)), only.ss=F, num.dose.ss='NUMDOSE', skip.dir.check=TRUE))
saveRDS(sim8b, file.path(out.dir, 'sim8b.rds')); cat('sim8b ok\n')