Description Usage Arguments Value Examples
View source: R/OED_noPenalty.R
Performs an optimum experimental design for the settings selected. The
OED is based on the FIM, estimated using the local sensitivity functions
provided by sensitivity_inactivation
.
1 2 3 | inactivation_OED(inactivation_model, parms, temp_profile, parms_fix,
n_points, criteria = "D", n_times = 100, sensvar = "logN",
optim_algorithm = "global", opts_global = NULL)
|
inactivation_model |
Character string defining the inacivation model. |
parms |
Named numeric vector defining the model parameters. They must
be named according to the needs of |
temp_profile |
Data frame defining the temperature profile. It must
contain a column named |
parms_fix |
Named numeric vector defining the model parameters to be omitted during the calculation of the local sensitivities. |
n_points |
Number of measurements which will be taken during the experiment. |
criteria |
Character defining the criteria for the OED. Either
|
n_times |
Integer defining th enumber of discrete time points used for the interpolation of the local sensitivities. |
sensvar |
Character defining the variable to use for the OED. Either
|
optim_algorithm |
Character defining the type of algorithm to use for
the optimization. Either |
opts_global |
List defining the options for the global optimization
algorithm (see |
A list of class OEDinactivation
with the following items:
optim: Objetc returned by the optimization function.
model: Inactivation model used for the calculations.
parms: Nominal model parameters.
parms_fix: Model parameters not considered for the sensitivity calculation.
criteria: Criteria used for the OED.
sensvar: Variable used for the OED.
optim_algorithm: Type of optimization algorithm.
optim_times: Optimum measurement times calculated.
penalty: Logical indicating whether penalty function was used.
temp_profile: Temperature profile of the experiment.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | ## Definition of input variables
parms_fix <- c(temp_ref = 57.5)
parms <- c(delta_ref = 3.9,
z = 4.2,
p = 1,
N0 = 1e6
)
temp_profile <- data.frame(time = c(0, 60), temperature = c(30, 60))
n_points <- 5
## OED with local optimization
set.seed(191210)
## Not run:
local_OED <- inactivation_OED("Mafart", parms, temp_profile, parms_fix,
n_points, criteria = "E-mod", sensvar = "logN",
optim_algorithm = "local")
print(local_OED$optim_times)
plot(local_OED)
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.