Nothing
###################################################################
# Print for sensitivity
# Arg:
# object belonging to sensitivity
#
# Returns:
# Prints the values for sensitivity results
print.sensitivity <- function(x, ...)
{
cat("\nCall:\n", deparse(x$call), "\n", sep = "")
cat("\nThe vector of marginal sensitivities is \n")
print(x$sensitivity)
cat("\nThe vector of component sensitivities is \n")
print(x$component)
}
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.