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