Generate a grouped results table for spline fits with average and standard deviations
Source:R/group_tables.R
table_group_growth_spline.Rd
Generate a grouped results table for spline fits with average and standard deviations
Arguments
- gcTable
An object of class
gcTable
- html
(Logical) Should column headers contain html formatting?
Value
A data frame with grouped spline fit results. Empty cells indicate that no reliable fit could be determined.
Examples
# 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,
parallelize = FALSE,
suppress.messages = TRUE)
table_group_growth_spline(res$gcFit$gcTable)
#> Sample|Conc. mumax tD lagtime Y_max
#> 1 Test1 | 0 0.665 ± 0.005 1.042 ± 0.008 4.354 ± 0.163 6.679 ± 0.293
#> 2 Test1 | 0.017 0.629 ± 0.003 1.102 ± 0.005 4.519 ± 0.311 4.127 ± 0.417
#> 3 Test1 | 0.026 0.611 ± 0.004 1.135 ± 0.008 4.588 ± 0.093 3.31 ± 0.15
#> 4 Test1 | 0.039 0.579 ± 0.011 1.198 ± 0.023 4.55 ± 0.181 2.705 ± 0.199
#> 5 Test1 | 0.059 0.523 ± 0.008 1.326 ± 0.022 4.491 ± 0.129 2.293 ± 0.182
#> 6 Test1 | 0.088 0.468 ± 0.005 1.48 ± 0.017 4.569 ± 0.105 1.684 ± 0.028
#> 7 Test1 | 0.13 0.391 ± 0.004 1.775 ± 0.02 4.474 ± 0.112 1.169 ± 0.072
#> 8 Test1 | 0.2 0.269 ± 0.007 2.573 ± 0.068 3.995 ± 0.313 0.764 ± 0.036
#> 9 Test1 | 0.3 0.147 ± 0.002 4.712 ± 0.053 3.096 ± 0.115 0.44 ± 0.038
#> 10 Test1 | 0.44 0.074 ± 0.005 9.356 ± 0.68 2.06 ± 0.229 0.195 ± 0.02
#> 11 Test1 | 0.67 0.038 ± 0.006 18.584 ± 2.698 2.073 ± 1.055 0.1 ± 0.005
#> 12 Test1 | 1
#> dY t(mumax)
#> 1 6.626 ± 0.292 7.917 ± 0.289
#> 2 4.073 ± 0.414 8 ± 0.354
#> 3 3.259 ± 0.147 8.083 ± 0.144
#> 4 2.655 ± 0.198 8 ± 0.25
#> 5 2.238 ± 0.181 7.917 ± 0.144
#> 6 1.629 ± 0.028 8.083 ± 0.144
#> 7 1.119 ± 0.069 8.417 ± 0.144
#> 8 0.714 ± 0.035 8.75 ± 0.25
#> 9 0.387 ± 0.038 9.5 ± 1.146
#> 10 0.144 ± 0.017 9.083 ± 1.127
#> 11 0.045 ± 0.002 7.25 ± 2.291
#> 12
# with HTML formatting
DT::datatable(table_group_growth_spline(res$gcFit$gcTable, html = TRUE),
escape = FALSE) # Do not escape HTML entities