mdogucu / stats115-wi20-website

Website for Stats 115 course at UCI

Stats 115 Winter 2020 Course Website

Course website for Stats 115 Introduction to Bayesian Data Analysis taught at University of California Irvine, in Winter 2020 quarter.

All Right Reserved. Mine Dogucu.

If you would like to use any of these teaching materials, you can feel free to reach out to me via email on my website. I mainly put all rights reserved to prevent some websites (e.g. Course Hero) collecting my materials directly.

stats115-wi20-website's Issues

A function that might be useful for Bayesian Hypothesis Testing

Code to compute the prior odds, posterior odds, and Baye's Factor

#Code author: Taneisha Arora

bayes_hypothesis <- function(prior_alpha, prior_beta, n, x, h_pi){
  
  posterior_alpha <- prior_alpha+x
  posterior_beta <- prior_beta+n-x
  
  prior_odds <- 
    pbeta(h_pi, prior_alpha, prior_beta, lower.tail = FALSE)/
    (1-pbeta(h_pi, prior_alpha, prior_beta, lower.tail = FALSE))

  posterior_odds <- 
    pbeta(h_pi, posterior_alpha, posterior_beta, lower.tail = FALSE)/
    (1-pbeta(h_pi, posterior_alpha, posterior_beta, lower.tail = FALSE))
  
  
  bayes_factor <- posterior_odds/prior_odds
  
  c("prior odds" = prior_odds, "posterior odds" = posterior_odds, "bayes factor" = bayes_factor)
}