R/are2TsTimeCompatible.R

In KarsTS: An Interface for Microclimate Time Series Analysis

Defines functions are2TsTimeCompatible

Documented in are2TsTimeCompatible

are2TsTimeCompatible <-
function(TS1, TS2) {
  sameIniDate <- as.numeric(TS1$time[1]) == as.numeric(TS2$time[1])
  sameSampPer <- diff(as.numeric(TS1$time[1:2])) == 
    diff(as.numeric(TS2$time[1:2]))
  sameLength <- nrow(TS1) == nrow(TS2)
  result <- c(sameIniDate, sameSampPer, sameLength)
}

Try the KarsTS package in your browser