tests/dev/test-mean-parallel.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)
tree <- ospsuite::getSimulationTree("./tests/data/input-data/individualPksimSim.pkml")
ms <- SimulationSet$new(
  simulationSetName = "meansim-par-sa",
  simulationFile = "./tests/data/input-data/individualPksimSim.pkml",
  outputs = Output$new(path = tree$Organism$VenousBlood$Plasma$smarties$Concentration$path)
)
mwf <- MeanModelWorkflow$new(simulationSets = list(ms), workflowFolder = "./ex")
mwf$simulate$settings$showProgress <- TRUE
mwf$calculatePKParameters$activate()
mwf$calculateSensitivity$activate()
mwf$calculateSensitivity$settings$variableParameterPaths <- c(
  tree$Organism$Heart$Volume$path,
  tree$Organism$Pancreas$Volume$path
)
mwf$calculateSensitivity$settings$numberOfCores <- 2
mwf$runWorkflow()