[R-es] FW: cálculos acumulados

[Oscar Perpiñan Lamigueiro]

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]]
>