Averages/Root mean square: Difference between revisions

Content added Content deleted
Line 1,756: Line 1,756:


The following function works for any vector x:
The following function works for any vector x:
<lang R>RMS <- function(x, na.rm = F) sqrt(mean(x^2, na.rm = na.rm))
<lang rsplus>RMS <- function(x, na.rm = F) sqrt(mean(x^2, na.rm = na.rm))


RMS(1:10)
RMS(1:10)
Retrieved from "https://rosettacode.org/wiki/Averages/Root_mean_square"