R/sum_square.R

In ylwpaopao/cnquant: Quantitative Analysis Tools in Chinese Stock Market

Defines functions sum_square

Documented in sum_square

#' Title
#'
#' @param x
#' @param na.rm
#'
#' @return
#' @export
#'
#' @examples
sum_square <- function(x, na.rm = TRUE) {
  if (na.rm == TRUE)
    x <- x[!is.na(x)]
  sum(x ^ 2)
}