Nothing
#' @param na.rm Ignored
#' @rdname bindings
setMethod("sum", c("SymEngineDataType"),
function(x, ..., na.rm = FALSE) {
if (na.rm) warning("na.rm argument is ignored")
input <- Vector(x, ...)
s4vecbasic_summary(input, "sum")
}
)
#' @rdname bindings
setMethod("prod", c("SymEngineDataType"),
function(x, ..., na.rm = FALSE) {
if (na.rm) warning("na.rm argument is ignored")
input <- Vector(x, ...)
s4vecbasic_summary(input, "prod")
}
)
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.