R/N2error.R

Defines functions N2error

Documented in N2error

N2error <-
function(dat){
  nMarkers=dim(dat)[2]-1
  error=1
  names(error)=c("Max allele Count error")
  for (i in 1:nMarkers){
    p=dat[!is.na(dat[,i+1]),i+1]
    error=error*sum(N2Exact(p)[1:2])
  }
error
}

Try the forensim package in your browser

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

forensim documentation built on May 30, 2017, 2:34 a.m.