Nothing
#' @export
samp <- function(method, df, ...) {
# Check if any argument is missing
if (missing(method)) {
stop('argument "method" is missing, with no default')
}
if (missing(df)) {
stop('argument "df" is missing, with no default')
}
# Check if a valid method is used
method_str <- deparse(substitute(method))
if (!(method_str %in% c('srs', 'pps'))) {
stop('invalid method ', method_str)
}
# run the specified method function using provided parameters
do.call(method, list(df, ...))
}
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.