R/probability.R

In maxmayr95/STWIBFH: Utility Classes for STWI Exame 2019 @ University of Applied Science in Bern (Switzerland)

#' P(A ∩ B)
#'
#' Calculate Intersection of A and B Probabilty
#' @param probabilities Probabilties as a List
#' @keywords probabilty
#' @export
#' @examples
#' getIntersectionProbabilty(c(0.2,0.4))
getIntersectionProbabilty <- function(probabilities) {
  if(prod(probabilities)>1){
    stop("There is a maximum of probability of 1")
  }
  return(prod(probabilities))
}
#' P(A ∪ B)
#'
#' Calculate Combined quantity of a list of probabilities
#' @param probabilities Probabilties as a List
#' @keywords probabilty
#' @export
#' @examples
#' combineProbabiltiy(c(0.2,0.4))
combineProbabiltiy <- function(probabilities) {
  if(sum(probabilities)>1){
    stop("There is a maximum of probability of 1")
  }

  return(sum(probabilities))
}
#' P(A | B)
#'
#' Calculate Conditional Probability
#' @param aCutB Probability P(A ∩ B)
#' @param b Probability P(B)
#' @keywords probabilty
#' @export
#' @examples
#' calculateConditionalProbabilty(0.2,0.4)
#'
#'
calculateConditionalProbabilty <- function(aCutB,b) {
  return(aCutB/b)
}