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

