if (FALSE) {
input_data <- pkData
model <-
pkmodel(
numCompartments = 2,
data = input_data,
ID = "Subject",
Time = "Act_Time",
A1 = "Amount",
CObs = "Conc",
workingDir = tempdir()
)
# multicore
multicoreHost <- hostParams(
sharedDirectory = tempdir(),
parallelMethod = "Multicore",
hostName = "local_multicore",
numCores = 4
)
bootstrapdf <- bootstrap(model,
hostPlatform = multicoreHost,
params = engineParams(model),
numReplicates = 5,
randomNumSeed = 1234,
runInBackground = FALSE
)
}
Run the code above in your browser using DataLab