R/performABTest_Bayesian.R

In UBC-MDS/BlackBoxR:

#performABtest_Bayesian

#' @export
performABtest_Bayesian <- function(data){
  #perform AB testing using the Bayesian approach
  #
  #Args:
  #data: dataframe which consists of events and results
  #
  #Return:
  #results containing significance of tests
  #
  # dummy_p_value <- list(`p.value` = -2)
  #
  # df<-data.frame(name=rep(c('A','B'),1),events=rbinom(2,1,0.5))
  # table(df)

  return(0.5)

}