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)
# ## End(Not run)
Run the code above in your browser using DataLab