R/fit.param.fj.unif.R
In smmR: Simulation, Estimation and Reliability of Semi-Markov Models

.fit.param.fj.unif <- function(counting, j, kmax) {
  
  theta <- tail(which(counting$Njk[j, ] != 0), 1)
  
  return(c(theta, NA))
  
}

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

smmR documentation built on Aug. 3, 2021, 5:07 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the smmR package in your browser