likelihoodpercond <-
function(theta, mu, ys,const=1){
#get the likelihood of a certain category
like <- 1/const * dnbinom(ys,mu=mu,size=1/theta)
like
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.