# Write model template and tokens files
PMLParametersSets <- create_ModelPK(CompartmentsNumber = c(1,2))
# write test data frame
TempFolder <- tempdir()
TemplateFilePath <- file.path(TempFolder, "template.txt")
TokensFilePath <- file.path(TempFolder, "tokens.json")
DataFilePath <- file.path(TempFolder, "Data.csv")
write.csv(data.frame(id = 'id',
time = 'time',
AMT = 'AMT',
Conc = 'Conc',
age = 'age',
Weight = 'Weight',
CObsBQL = 'CObsBQL'),
DataFilePath)
write_ModelTemplateTokens(TemplateFilePath = TemplateFilePath,
TokensFilePath = TokensFilePath,
Description = "1-2Cpts try",
Author = "Certara",
DataFilePath = DataFilePath,
DataMapping = c(ID = "id",
time = "time",
CObs = "Conc",
AMT = "AMT",
"age"),
ColDef = "",
PMLParametersSets = PMLParametersSets,
EstArgs = specify_EngineParams(method = "QRPEM"),
SimArgs = specify_SimParams(numReplicates = 1000L),
Tables = list(Table(Name = "simtable1.csv",
KeepSource = TRUE,
VariablesList = "C",
ForSimulation = TRUE)),
OmegaSearchBlocks = list(c("nCl", "nV"), c("nCl2", "nV2")))
Run the code above in your browser using DataLab