R/likelihood.R

Defines functions likelihood

Documented in likelihood

likelihood <-
function(po, ne, lamda, thres)
{
pneg=stats::ppois(thres-1, lamda)
ppos=1-pneg
return (log(ppos)*po+log(pneg)*ne) 
}

Try the digitalPCR package in your browser

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

digitalPCR documentation built on May 2, 2019, 2:18 a.m.