# NOT RUN {
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)
)
sensitivity <- sensitivity_inactivation("Mafart", parms,
temp_profile, parms_fix)
plot(sensitivity)
# }
Run the code above in your browser using DataLab