R/cumsd.R

Defines functions cumsd

cumsd <- 
function(x) {

 N <- length(x)
 One.to.N.minus.1 <- c(1,1:(N-1))

 sqrt(cumsum(x^2)/One.to.N.minus.1 - (cumsum(x)^2)/((1:N)*One.to.N.minus.1))
}
John-R-Wallace/JRWToolBox documentation built on April 15, 2024, 2:16 p.m.