FI <-
function( params, theta,
type = c("expected", "observed"),
resp = NULL ){
UseMethod("FI")
} # END FI FUNCTION
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.