my_model <- LogisticLogNormal(
mean = c(-0.85, 1),
cov = matrix(c(1, -0.5, -0.5, 1), nrow = 2),
ref_dose = 50
)
prob_fun <- probFunction(my_model, alpha0 = 2, alpha1 = 3)
prob_fun(30)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.