Nothing
# 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)
# }
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.