R/gradHess.R

In dbd: Discretised Beta Distribution

Defines functions hess grad

Documented in grad hess

grad <- function(x,distr=c("db","betabinom"),gpar) {
   distr <- match.arg(distr)
   switch(EXPR=distr,
       db = gradDb(x,gpar),
       betabinom = gradBb(x,gpar)
   )
}

hess <- function(x,distr=c("db","betabinom"),hpar) {
   distr <- match.arg(distr)
   switch(EXPR=distr,
       db = hessDb(hpar),
       betabinom = hessBb(x,hpar)
   )
}

Try the dbd package in your browser