Displaying 2 results from an estimated 2 matches for "simplemeanloop".
2005 Apr 02
1
Survey of "moving window" statistical functions - still looking f or fast mad function
...), 1, mean)
5. mywinfun <- function(x, k, FUN=mean, ...) { # suggested in news
group n <- length(x) A <- rep(x, length=k*(n+1)) dim(A) <- c(n+1, k)
sapply(split(A, row(A)), FUN, ...)[1:(n-k+1)] }
6. rollFun(x, k, FUN=mean) - (fSeries package)
7. rollMean(x, k) - (fSeries package)
8. SimpleMeanLoop = function(x, k) { n = length(x) # simple-minded
loop used as a baseline y = rep(0, n) k = k%/%2; for (i in (1+k):(n-k))
y[i] = mean(x[(i-k):(i+k)]) }
9. running(x, fun=mean, width=k) - (gtools package)
Some of above functions return results that are the same length as x and
some return arrays w...
2004 Oct 08
1
Survey of "moving window" statistical functions - still looking f or fast mad function
...;- function(x, k, FUN=mean, ...)
{ # suggested in news group
n <- length(x)
A <- rep(x, length=k*(n+1))
dim(A) <- c(n+1, k)
sapply(split(A, row(A)), FUN, ...)[1:(n-k+1)]
}
6. rollFun(x, k, FUN=mean) - (fSeries package)
7. rollMean(x, k) - (fSeries package)
8. SimpleMeanLoop = function(x, k) {
n = length(x) # simple-minded loop used as a
baseline
y = rep(0, n)
k = k%/%2;
for (i in (1+k):(n-k)) y[i] = mean(x[(i-k):(i+k)])
}
9. running(x, fun=mean, width=k) - (gtools package)
Some of above functions return results that are the same len...