# \donttest{
data_er_cont <- rstanemax::exposure.response.sample
ermod_emax <-
dev_ermod_emax(
data = data_er_cont,
var_exposure = "exposure",
var_resp = "response"
)
plot_er(ermod_emax, show_orig_data = TRUE)
data_er_cont_cov <- rstanemax::exposure.response.sample.with.cov
ermod_emax_w_cov <-
dev_ermod_emax(
data = data_er_cont_cov,
var_exposure = "conc",
var_resp = "resp",
l_var_cov = list(emax = "cov2", ec50 = "cov3", e0 = "cov1")
)
# }
# \donttest{
data_er_bin <- rstanemax::exposure.response.sample.binary
ermod_bin_emax <-
dev_ermod_bin_emax(
data = data_er_bin,
var_exposure = "conc",
var_resp = "y"
)
plot_er(ermod_bin_emax, show_orig_data = TRUE)
ermod_bin_emax_w_cov <-
dev_ermod_bin_emax(
data = data_er_bin,
var_exposure = "conc",
var_resp = "y_cov",
l_var_cov = list(emax = "sex")
)
# }
Run the code above in your browser using DataLab