R/rm_emissions.R

Defines functions rm_emissions

#sameRow
rm_emissions <- function(x){
  resta     <- difftime(x[-1],x[-length(x)])
  idrow <-  which(resta == 0)+1
  return(idrow)
}
PabloMBooster/vmsR documentation built on June 29, 2023, 11:16 a.m.