if (FALSE) {
# Create random growth data set
rnd.data <- rdm.data(d = 35, mu = 0.8, A = 5, label = 'Test1')
# Run growth curve analysis workflow
res <- growth.workflow(time = rnd.data$time,
data = rnd.data$data,
fit.opt = 's',
ec50 = FALSE,
export.res = FALSE,
suppress.messages = TRUE,
parallelize = FALSE)
growth.report(res, out.dir = tempdir(), parallelize = FALSE)
}
Run the code above in your browser using DataLab