search

Open-Systems-Pharmacology / OSPSuite-R

R package for the OSPSuite
https://www.open-systems-pharmacology.org/OSPSuite-R/
Other
29 stars 12 forks source link

plotPopulationTimeProfile / plotIndividualTimeProfile: `unused argument (margin...` #1403

Open Yuri05 opened 7 months ago

Yuri05 commented 7 months ago

33.zip ospsuite-R version 12.0.482

library(ospsuite)
sim=loadSimulation("SPOP1.pkml")
pop=loadPopulation("SPOP1.csv")
simResults = runSimulation(sim, pop)
myDataCombined <- DataCombined$new()
myDataCombined$addSimulationResults(simResults)
obsData <- lapply(c("ObsDataAciclovir_1.pkml", "ObsDataAciclovir_2.pkml", "ObsDataAciclovir_3.pkml"),function(x) loadDataSetFromPKML(system.file("extdata", x, package = "ospsuite")))
names(obsData) <- lapply(obsData, function(x) x$name)
myDataCombined$addDataSets(obsData$`Vergin 1995.Iv`,groups = "Aciclovir PVB")
plotPopulationTimeProfile(dataCombined = myDataCombined)
plotIndividualTimeProfile(dataCombined = myDataCombined)

results in:

> plotPopulationTimeProfile(dataCombined = myDataCombined)
Error in initialize(...) : unused argument (margin = c(20, 2, 10, 2))
> plotIndividualTimeProfile(dataCombined = myDataCombined)
Error in initialize(...) : unused argument (margin = c(20, 2, 10, 2))