Skip to main content

Browse the archive

Revision 1d22771abb448e5bcdde604c8e187e6fb9426b2f authored by Edzer Pebesma on 05 November 2012, 15:05:48 UTC, committed by cran-robot on 05 November 2012, 15:05:48 UTC 
version 1.0-0
1 parent 404b49a
Raw File
tm.R 
library(spacetime)
x = as.POSIXct("2000-01-01") + (0:9) * 3600
y = x + 1
y[1] = y[2]
x
y
TI = function(x, ti) { 
	timeIsInterval(x) = ti
	x 
}
timeMatch(TI(y,FALSE),TI(y,FALSE))
timeMatch(TI(y,TRUE), TI(y,TRUE))

timeMatch(TI(x,FALSE),TI(y,FALSE))
timeMatch(TI(x,FALSE),TI(y,TRUE))
timeMatch(TI(x,TRUE), TI(y,FALSE))
timeMatch(TI(x,TRUE), TI(y,TRUE))

timeMatch(TI(x,FALSE),TI(y,FALSE), returnList = TRUE)
timeMatch(TI(x,FALSE),TI(y,TRUE), returnList = TRUE)
timeMatch(TI(x,TRUE), TI(y,FALSE), returnList = TRUE)
timeMatch(TI(x,TRUE), TI(y,TRUE), returnList = TRUE)
back to top