https://github.com/cran/spacetime
Tip revision: e878bcb191f03b828bcf0c15504b0ca9a809e1df authored by Edzer Pebesma on 19 February 2013, 21:22:04 UTC
version 1.0-4
version 1.0-4
Tip revision: e878bcb
apply.R
# or is this too trivial to provide?
STapply = function(X, MARGIN, FUN, ...) {
stopifnot(class(X) == "STFDF")
if (MARGIN == "space" || MARGIN == 1)
FOREACHSPACEapply(X, FUN, ...)
else if (MARGIN == "time" || MARGIN == 2)
FOREACHTIMEapply(X, FUN, ...)
else stop("MARGIN should be 1 (space) or 2 (time)")
}
FOREACHSPACEapply = function(X, FUN, ...) {
ret = lapply(1:length(X@sp), function(i) FUN(X[i,], ...))
#STFDF(X@sp, ret[[1]], do.call(rbind, ret))
}
FOREACHTIMEapply = function(X, FUN, ...) {
ret = lapply(1:nrow(X@time), function(i) FUN(X[,i], ...))
}