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