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