# 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 = "m",
ec50 = FALSE,
export.res = FALSE,
parallelize = FALSE,
suppress.messages = TRUE)
table_group_growth_model(res$gcFit$gcTable)
# with HTML formatting
DT::datatable(table_group_growth_model(res$gcFit$gcTable, html = TRUE),
escape = FALSE) # Do not escape HTML entities
Run the code above in your browser using DataLab