source('test/setup-data.R')
source('test/orig-function.r')
options(error = function() { traceback(2); quit(status=1) })
suppressWarnings(suppressMessages(
sim3 <- 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)
))
cat('OK\n')