# NOT RUN {
# }
# NOT RUN {
TR = 10 # Total number of simulations
N = 30
limitTox <- 10.96
PKparameters <- c(2, 10, 100) # PK parameters ka,CL,V
omegaIIV <- 0.7
omegaAlpha <- 0
doses <- c(12.59972, 34.65492, 44.69007, 60.80685, 83.68946, 100.37111)
timeSampling <- seq(0, 24, length.out=48)
sigma <- rep(0.2, length(timeSampling))
gen.scen <- sim.data(PKparameters,omegaIIV,omegaAlpha,sigma,doses,
limitTox,timeSampling, N, TR)
cohort = 1
simulatedData <- gen.scen
icon <- c(2:6, round(seq(9, 48, ((48-9)/4))))
theta <- 0.2
##############################################
############### Select a model ###############
##############################################
model = "pktox"
############################################
############ Run the simulation(s) #########
############################################
results_sim <- nsim(doses, N, cohort, icon, theta, model, simulatedData, TR,
AUCmethod = 1)
results_sim
# }
Run the code above in your browser using DataLab