if (FALSE) {
data(exposure.response.sample.binary)
fit1 <- stan_emax_binary(
y ~ conc,
data = exposure.response.sample.binary,
# the next line is only to make the example go fast enough
chains = 2, iter = 500, seed = 12345
)
print(fit1)
# Specify covariates
fit2 <- stan_emax_binary(
formula = y ~ conc, data = exposure.response.sample.binary,
param.cov = list(emax = "sex"),
# the next line is only to make the example go fast enough
chains = 2, iter = 500, seed = 12345
)
print(fit2)
}
Run the code above in your browser using DataLab