.fit.param.fi.unif <- function(counting, i, kmax) {
theta <- tail(which(counting$Nik[i, ] != 0), 1)
return(c(theta, NA))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.