# NOT RUN {
showClass("trip")
d <- data.frame(x=1:10, y=rnorm(10), tms=Sys.time() + 1:10, id=gl(2, 5))
sp::coordinates(d) <- ~x+y
## this avoids complaints later, but these are not real track data (!)
sp::proj4string(d) <- sp::CRS("+proj=laea +ellps=sphere", doCheckCRSArgs = FALSE)
tr <- trip(d, c("tms", "id"))
summary(tr)
plot(tr)
lines(tr)
dim(tr)
names(tr)
subset(tr, id == "2")
as.data.frame(tr)
tr[1:3, ]
tr[, 1]
tr[[1]]
# }
Run the code above in your browser using DataLab