Nothing
risk <- function(y, ...) cat("Data extraction not defined for this class:",class(y),"\n")
setGeneric("risk", function(y, ...) standardGeneric("risk"))
extract <- function(x, ...) cat("Data extraction not defined for this class:",class(x),"\n")
setGeneric("extract", function(x, ...){
if(isS4(x)) standardGeneric("extract") else UseMethod("extract")
}
)
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.