# NOT RUN {
showClass("TM_After")
showClass("TM_Before")
showClass("TM_During")
showClass("TM_Equals")
# }
# NOT RUN {
# create times to use for operators
t1 <- sosCreateTimeInstant(sos = weathersos, time = Sys.time())
p1 <- sosCreateTimePeriod(sos = weathersos, begin = as.POSIXct("2010-03-01 12:15"),
end = as.POSIXct("2010-03-02 12:15"))
# create temporal operator
afterNow <- TM_After(time = t1)
print(afterNow)
encodeXML(t1, sos)
during <- TM_During(time = p1)
print(during)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab