A multiple Bayesian linear regression model using the warpbreaks
data.
data("warpbreaks") X <- as_data(model.matrix(breaks ~ wool + tension, warpbreaks)) y <- as_data(warpbreaks$breaks)
int <- variable() coefs <- normal(0, 5, dim = ncol(X) - 1) beta <- c(int, coefs) eta <- X %*% beta distribution(y) <- poisson(exp(eta))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.