tests/dev/tracelib-test-parallel-mean.R

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

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

rootDir <- "."
setwd(rootDir)



runscript <- function() {
  workflowFolder <- file.path(rootDir, paste0("tests/dev/tracelib_par_mean_ex_", format(Sys.Date(), "%Y%m%d"), "_", format(Sys.time(), "%H%M%S")))
  simulationFile <- file.path(rootDir, "tests/data/input-data/individualPksimSim.pkml")

  tree <- ospsuite::getSimulationTree(simulationFile)
  ms <- SimulationSet$new(
    simulationSetName = "meansim",
    simulationFile = simulationFile,
    outputs = Output$new(
      path = "Organism|VenousBlood|Plasma|smarties|Concentration",
      pkParameters = c("C_max", "CL")
    )
  )

  mwf <- MeanModelWorkflow$new(simulationSets = list(ms), workflowFolder = workflowFolder)
  setwd(workflowFolder)

  mwf$simulate$settings$showProgress <- TRUE
  mwf$calculatePKParameters$activate()
  mwf$calculateSensitivity$activate()
  mwf$calculateSensitivity$settings$variableParameterPaths <- c(tree$Organism$Heart$Volume$path, tree$Organism$Liver$Volume$path)
  mwf$calculateSensitivity$settings$numberOfCores <- 2
  mwf$runWorkflow()
}

runscript()