R/sd_rv.R

In jsta/rv: Simulation-Based Random Variable Objects

## ========================================================================
## 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))
  }
}