for(i in 1:1000)
vec[i] = UR_FUNC()
mean(vec)
mean_24 <- function(x){k=NULL
for(i in 24:length(x))
{k[i-23]=sum(x[seq(i-23,i)])/24}
return(k)
}
for(i in 1:1000)
vec[i] = UR_FUNC()
mean(vec)
mean_24 <- function(x){k=NULL
for(i in 24:length(x))
{k[i-23]=sum(x[seq(i-23,i)])/24}
return(k)
}