tests/dev/script-simple-mean-model-workflow-with-data.R

In Open-Systems-Pharmacology/OSPSuite.ReportingEngine: R package to create reports for the Open Systems Pharmacology models

rm(list = ls())
library(ospsuite.reportingengine)

simFile <- "PKML/Raltegravir 50 mg  (lactose formulation).pkml"
dataFile <- "Raltegravir_PK.csv"
dataDictionary <- "tpDictionary.csv"
dataFilter <- 'Grouping %in% "50mg"'

modelSet <- SimulationSet$new(
  simulationFile = simFile,
  pathID = "Organism|PeripheralVenousBlood|Raltegravir|Plasma (Peripheral Venous Blood)",
  pathName = "Raltegravir",
  pathUnit = "mg/l",
  dataFilter = dataFilter,
  observedDataFile = dataFile,
  observedMetaDataFile = dataDictionary
)

meanModel_Raltegravir <- MeanModelWorkflow$new(simulationSets = modelSet)

# workflow$getAllTasks()
# workflow$activateTasks(tasks = plotMassBalance)
# workflow$inactivateTasks(tasks = meanModelPKParameters)

# workflow$runWorkflow()