R/ErlangB.R

Defines functions ErlangB

# cite Neil's paper
#ErlangB <- function(A,P)
#  {
#
#    erlangB <- A/(1+A)
#    for( k in (2:P) ){
#      erlangB <- erlangB * (A/(A*erlangB + k))
#
#    }
#        erlangB
#
#  }

#
#' @export
ErlangB <- function(A,P)
  {

    InvB <- 1.0
    for (j in (1:P)){
      InvB <- 1.0 + j / A * InvB
    }
    erlangB <- 1.0 / InvB
    erlangB
  }

Try the SATK package in your browser

Any scripts or data that you put into this service are public.

SATK documentation built on May 31, 2017, 2:14 a.m.