R/hbrr.integrate1.R

Defines functions `hbrr.integrate1`

`hbrr.integrate1` <-
function(MU,V,A=1,...){
    hb.x<-function(x){
            out<-(1/(1+10^(A*x)))*dnorm(x,mean=MU,sd=sqrt(V))
            return(out)
        }
   out<-integrate(hb.x,-Inf,Inf,...)$value
   return(out)
}

Try the hbim package in your browser

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

hbim documentation built on Aug. 24, 2023, 5:10 p.m.