Nothing
## ========================================================================
## sd.rv
## ========================================================================
##
#' Get the standard deviation of an rv object
#'
#' @export
#' @rdname distrib_rv
#' @inheritParams stats::sd
sd.rv <- function (x, na.rm = FALSE) {
if (! is.rvobj(x)) {
return(stats::sd(x, na.rm=na.rm))
}
if (is.vector(x)) {
sqrt(var.rv(x, na.rm = na.rm))
} else {
sqrt(var.rv(as.vector(x), na.rm = na.rm))
}
}
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.