# maxLikEstimator <- function(x, model){
# # What distribution?
# distribution <- model@distribution
#
# # Function to use:
# distFun <- switch(distribution,
# "Gaussian" = maxLikEstimator_Gauss,
# "Ising" = maxLikEstimator_Ising)
#
# # Run and return:
# distFun(x, model)
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.