Nothing
#' Calculate the parameters that maximise the penalised likelihood.
#'
#' Used to find suitable starting parameters for nonconjugate mixtures.
#' For some mixing distributions this hasn't been implemented yet.
#'
#' @param mdObj Mixing distribution object
#' @param x Data
#'
#' @export
PenalisedLikelihood <- function(mdObj, x){
UseMethod("PenalisedLikelihood", mdObj)
}
#' @export
#' @rdname PenalisedLikelihood
PenalisedLikelihood.default <- function(mdObj, x){
return(PriorDraw(mdObj, 1))
}
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.