R/mTotal.R

#' bla
#' 
#' @export mTotal

mTotal <- function(x){
  
  TemporalAvg <- raster::mean(x)            #average all layers in time first
  mtotal <- mean(TemporalAvg[])     #SpatioTemporalAvg is mtotal
  
  return(mtotal)
}
environmentalinformatics-marburg/thermographyTS documentation built on May 16, 2019, 8:16 a.m.