https://github.com/cran/spacetime
Tip revision: 4a73c460eedfe33701a4c3845bde653faf71e81b authored by Edzer Pebesma on 25 December 2012, 15:41:34 UTC
version 1.0-3
version 1.0-3
Tip revision: 4a73c46
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], ...))
}