R/apply_mask.R

Defines functions apply_mask

apply_mask <-
function(A, mask)
{
  # not weighted according to latitude... 
  OUT = sweep(A, c(1,2), mask, "*")
  apply(OUT, 3, mean, na.rm=TRUE)
}
mcrucifix/gp documentation built on July 29, 2023, 8:58 p.m.