loglik <- function(slope, intercept, x, y, noise_sd) {
sum(dnorm(y, mean = (slope * x) + intercept, sd = noise_sd, log = TRUE))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.