R/expValDb.default.R

In dbd: Discretised Beta Distribution

Defines functions expValDb.default

Documented in expValDb.default

expValDb.default <- function(ao,beta,ntop,zeta=FALSE,...) {
    nbot <- 0+!zeta
    x <- nbot:ntop
# Note that "ao" is really "alpha"!
    sum(x*ddb(x,ao,beta,ntop,zeta))
}

Try the dbd package in your browser