R/fit.param.fj.unif.R

Defines functions .fit.param.fj.unif

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