my_model <- DualEndpointEmax(
mean = c(0, 1),
cov = matrix(c(1, 0, 0, 1), nrow = 2),
sigma2W = c(a = 0.1, b = 0.1),
rho = c(a = 1, b = 1),
E0 = c(0, 100),
Emax = c(0, 500),
ED50 = c(10, 200),
ref_dose_emax = 1000
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.