# \donttest{
# Create random growth data set
rnd.data <- rdm.data(d = 30, mu = 0.6, A = 4.5, label = "Test2")
# Run growth curve analysis workflow
res <- growth.workflow(time = rnd.data$time,
data = rnd.data$data,
fit.opt = "l",
ec50 = FALSE,
export.res = FALSE,
parallelize = FALSE,
suppress.messages = TRUE)
table_group_growth_linear(res$gcFit$gcTable)
# with HTML formatting
DT::datatable(table_group_growth_linear(res$gcFit$gcTable, html = TRUE),
escape = FALSE) # Do not escape HTML entities
# }
Run the code above in your browser using DataLab