R/poisson.param.R

In digitalPCR: Estimate Copy Number for Digital PCR

poisson.param <-
function(thr, upper.copy)
{
lamda=c(seq(0.01, 0.09, 0.01), seq(0.1,9.9,0.1), seq(10,upper.copy,1))
th=seq(1,10,1)
if (thr){
th=1
}
result=NULL
for (la in lamda){
for (tt in th){
result=rbind(result, c(la, tt))
}
}
colnames(result)=c("Copy", "Thres")
return (result)
}