Nothing
fitted.DirichletRegModel <- function(object, mu = TRUE, alpha = FALSE, phi = FALSE, ...){
if(!any(mu | alpha | phi)) stop("Either mu, alpha or phi has to be requested.")
if(sum(mu + alpha + phi) == 1){
if(mu) return(object$fitted.values$mu)
if(alpha) return(object$fitted.values$alpha)
if(phi) return(object$fitted.values$phi)
} else {
res <- list()
if(mu) res[["mu"]] <- object$fitted.values$mu
if(alpha) res[["alpha"]] <- object$fitted.values$alpha
if(phi) res[["phi"]] <- object$fitted.values$phi
return(res)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.