Nothing
#' sum with na.rm TRUE
#' @param ... ...
#' @param na.rm na.rm
#' @return sum
#' @keywords internal
sumf <- function(..., na.rm=TRUE) {
sum(..., na.rm=na.rm)
}
#' mean with na.rm TRUE
#' @param ... ...
#' @param na.rm na.rm
#' @return mean
#' @keywords internal
meanf <- function(..., na.rm=TRUE) {
mean(..., na.rm=na.rm)
}
#' max with na.rm TRUE
#' @param ... ...
#' @param na.rm na.rm
#' @return max
#' @keywords internal
maxf <- function (..., na.rm = TRUE){
max(..., na.rm = na.rm)
}
#' min with na.rm TRUE
#' @param ... ...
#' @param na.rm na.rm
#' @return min
#' @keywords internal
minf <- function (..., na.rm = TRUE){
min(..., na.rm = na.rm)
}
#' which with arr.ind TRUE
#' @param x x
#' @param arr.ind na.rm
#' @param useNames na.rm
#' @return which
#' @keywords internal
whichf <- function (x, arr.ind = TRUE, useNames = TRUE){
which(x = x, arr.ind = arr.ind, useNames = useNames)
}
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.