R/fit.param.fij.unif.R

Defines functions .fit.param.fij.unif

.fit.param.fij.unif <- function(counting, i, j, kmax) {
  
  theta <- tail(which(counting$Nijk[i, j, ] != 0), 1)
  
  return(c(theta, NA))
  
}
corentin-dev/smmR documentation built on April 14, 2023, 11:36 p.m.