R/bottom.contact.gating.time.r

In jae0/netmensuration: Package that interacts with bio and associated projects to handle net mensuration data streams

bottom.contact.gating.time = function( Zt, good, bcp ) {
  ## Preliminary gating: simple range limits (gating) of time stamps
  
  # only gate if both time stamps are within the data range
  # there are (many) cases where timestamps are incorrect due to errors in entry or timezone issues
  out = good
  Ztrange = range(Zt, na.rm=TRUE)
  if (  ( bcp$time.gate$t0 > Ztrange[1] & bcp$time.gate$t0 < Ztrange[2] ) 
      & ( bcp$time.gate$t1 > Ztrange[1] &  bcp$time.gate$t1 < Ztrange[2] ) ) {
    i = which( Zt <  bcp$time.gate$t0 | Zt >  bcp$time.gate$t1 )
    good0 = good
    if (length(i) > 0) good[i] = FALSE
    grange = range( Zt[ which(good) ], na.rm= TRUE )
    if ( difftime( grange[2], grange[1], units="mins" ) < bcp$trange.max ) out = good
  }


  return(good)

}