[R-es] FW: cálculos acumulados
En stackoverflow encontré esta respuesta: http://stackoverflow.com/questions/7474943/surprisingly-slow-standard-deviation-in-r/7475664#7475664 La función que necesitas será: cumsd <- function(x){ n <- length(x) m <- cumsum(x)/(1:n) m1 <- c(NA,m[1:(n-1)]) ssd <- (x-m)*(x-m1) v <- c(0,cumsum(ssd[-1])/(1:(n-1))) z <- sqrt(v) z } Saludos. Oscar. El Sun, 13 Nov 2011 00:43:36 -0500 Patricio Fuenmayor Viteri <cpfuenmayor en hotmail.com> escribió:
por si le interesa a alguien .... esta es la función que he
hecho ...saludos y gracias por las sugerencias...
#--------------------------------------------------------------------#
cumsd: función para calcular la desviación estandar
acumulada#--------------------------------------------------------------------cumsd
<- function(x){x <- data.frame(x)res <- xres[1,] <- 0for (i in
2:dim(x)[1]){res[i,] <- sapply(data.frame('sd'=x[1:i,]),sd)}res}
[[alternative HTML version deleted]]