| unstdPost <- lik * prior | |
| stdPost <- unstdPost / sum(unstdPost) | |
| lines(rangeP, stdPost, col = "blue") | |
| legend("topleft", legend = c("Lik", "Prior", "Unstd Post", "Post"), | |
| text.col = 1:4, bty = "n") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment