Running 'tf2.R' [164s]
  Running 'tframe.R' [0s]
Running the tests in 'tests/tf2.R' failed.
Complete output:
  >  require("stats")
  >  require("tframe")
  Loading required package: tframe
  > 
  >  Sys.info()
         sysname        release        version       nodename        machine 
       "Windows"   "Server x64"  "build 20348"     "CRANWIN3"       "x86-64" 
           login           user effective_user 
          "CRAN"         "CRAN"         "CRAN" 
  > 
  > t1<-ts(c(1,2,3,4,5),start=c(1991,1))
  > t2<-ts(c(2,3,4,5,6,7,8),start=c(1992,1))
  > t3<-ts(c(NA,2,3,4,5),start=c(1991,1))
  > 
  > latestStart(t1,t2,t3) # 1992 1 corresponding to the starting date of 
  [1] 1992    1
  >                        # the object which starts latest (t2)
  > ok <- all(c(1992,1) == latestStart(t1,t2,t3))
  > ok
  [1] TRUE
  > 
  > latestStart(t1,t3)     # both start in 1991 1 (NAs count as data)
  [1] 1991    1
  > ok <- ok & all(c(1991,1) == latestStart(t1,t3))
  > ok
  [1] TRUE
  > 
  > latestStart(tbind(t1,t2,t3)) # tbind gives a single object starting in 1991 1
  [1] 1991    1
  > ok <- ok & all(c(1991,1) == latestStart(tbind(t1,t2,t3)))
  > ok
  [1] TRUE
  > 
  > latestStart(t2, tbind(t1,t2,t3))
  [1] 1992    1
  > ok <- ok & all(c(1992,1) == latestStart(t2, tbind(t1,t2,t3)))
  > ok
  [1] TRUE
  > 
  > latestStartIndex(t1,t2,t3)  # position of t2 in the argument list
  [1] 2
  > ok <- ok & 2 == latestStartIndex(t1,t2,t3)
  > ok
  [1] TRUE
  > 
  > latestEndIndex(t1,t2,t3)  # position of t2 in the argument list
  [1] 2
  > ok <- ok & 2 == latestEndIndex(t1,t2,t3)
  > ok
  [1] TRUE
  > 
  > earliestEndIndex(t1,t2,t3)  # position of t2 in the argument list
  [1] 1
  > ok <- ok & 1 == earliestEndIndex(t1,t2,t3)
  > ok
  [1] TRUE
  > 
  > earliestStart(t1,t2) # 1991 1
  [1] 1991    1
  > ok <- ok & all(c(1991,1) == earliestStart(t1,t2))
  > ok
  [1] TRUE
  > 
  > earliestEnd(t1,t2)   # 1995 1
  [1] 1995    1
  > ok <- ok & all(c(1995,1) == earliestEnd(t1,t2))
  > ok
  [1] TRUE
  > 
  > latestEnd(t1,t2)     # 1998 1
  [1] 1998    1
  > ok <- ok & all(c(1998,1) == latestEnd(t1,t2))
  > ok
  [1] TRUE
  > 
  > if (! ok) stop("some tests FAILED")
  > 
  > proc.time()
     user  system elapsed 
     0.25    0.04    0.28