library(dplyr)
data("usz_13c")
data = usz_13c %>%
dplyr::filter( patient_id %in%
c("norm_001", "norm_002", "norm_003", "norm_004", "pat_001", "pat_002","pat_003")) %>%
cleanup_data()
fit = nls_fit(data)
coef_diff_by_group(fit)
# \donttest{
fit = nlme_fit(data)
coef_diff_by_group(fit)
# }
# TODO: Add example for Stan fit typecast to class \code{breathtestfit} to compute
# confidence intervals instead of credible intervals
Run the code above in your browser using DataLab