# generate some fit outputs
# \donttest{
## fit only
fitd1 <- run_fit(zfishbeh, modls = "cc2")
## fit + bootstrap samples
fitd2 <- run_fit(zfishbeh, n_samples = 3, modls = "hill")
## fit using hill + cnst
fitd3 <- run_fit(zfishbeh, modls = c("hill", "cnst"))
# only to extract the activity data
sumd1 <- summarize_fit_output(fitd1, extract_only = TRUE)
sumd3 <- summarize_fit_output(fitd3, extract_only = TRUE)
# calculate EC20 instead of default EC10
sumd1 <- summarize_fit_output(fitd1, extract_only = TRUE, perc_resp = 20)
# calculate POD using a higher noise level (e.g., 40)
## this number depends on the response unit
sumd1 <- summarize_fit_output(fitd1, extract_only = TRUE, thr_resp = 40)
# calculate confidence intervals based on the bootstrap samples
sumd2 <- summarize_fit_output(fitd2)
# }
Run the code above in your browser using DataLab