# NOT RUN {
library(EmiStatR)
data("P1")
class(P1)
head(P1)
ts <- IsReg(data = P1, format = "%Y-%m-%d %H:%M:%S", tz = "UTC")
str(ts)
ts[[1]]
head(ts[[2]]); tail(ts[[2]])
plot(ts[[2]], ylab = "Precipitation [mm]")
# }
Run the code above in your browser using DataLab