tests/aggregate_demo.R

In trajectories: classes and methods for trajectory data

##Load libraries
library(spacetime)
library(trajectories)

##Load sample data
data(traj_sample)

##Convert sample data into an STTDF object
sttdf <- STItoSTTDF(traj_sample)

##Get hourly stats for sttdf
hourly_stat <- aggregate(sttdf, "hour")

#save(hourly_stat, file = "aggregate_demo.Rout.save")