R/TL.R

Defines functions TL

Documented in TL

TL <-
function(pos, neg, lamda, thres, dilution)
{
rval =0
i = 1
for (dil in dilution){
rval = rval+ likelihood(pos[i], neg[i], lamda/dil, thres)
i = i+1
}
return (-rval)
}

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.