Nothing
#' @export
as.precintcon.deciles <- function(object) {
if (is.element("precintcon.deciles", class(object))) {
return(object)
} else {
if (is.element("precintcon.daily", class(object)) || is.element("precintcon.monthly", class(object))) {
object <- precintcon.deciles.analysis(object)
} else if (!is.element("precintcon.deciles", class(object))){
stop("invalid input data. It should be either of type precintcon.daily, precintcon.month, or precintcon.deciles.")
}
return(object)
}
}
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.