# NOT RUN {
library(tidyverse)
time_profile <- seq(0, 50, length = 20)
Temp_profile <- seq(52.5,60, length = 3)
exp_design <- expand.grid(time_profile,Temp_profile) %>%
rename(times = Var1, temperature = Var2)
pars <- list(temp_crit = 55,
n = 1.5,
k_b = 0.1)
get_isothermal_correlation("Peleg", exp_design, pars )
# }
Run the code above in your browser using DataLab