R/censbnd.R

Defines functions censbnd

Documented in censbnd

censbnd <-
function(lambda,p,crate,rootint=c(0.1,1000))
  {
    eqn<-function(M,lambda,p,crate)
      {
        lhs=p*((1-exp(-M*lambda))/lambda)
        sum(lhs)-M*crate
      }
    uniroot(eqn,rootint,lambda=lambda,p,crate=crate)
  }

Try the survSNP package in your browser

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

survSNP documentation built on Feb. 16, 2023, 10:10 p.m.