# NOT RUN {
#load data
data(tracks)
#remove rows to show how function works (create irregular time series)
set.seed(1)
ind<- sort(sample(2:15003, 500))
tracks.red<- tracks[-ind,]
#calculate step lengths, turning angles, net-squared displacement, and time steps
tracks.red<- prep_data(dat = tracks.red, coord.names = c("x","y"), id = "id")
#round times to nearest interval
tracks.red<- round_track_time(dat = tracks.red, id = "id", int = c(3600, 7200, 10800, 14400),
tol = 300, units = "secs")
#insert NA gaps
dat.out<- insert_NAs(tracks.red, int = 3600, units = "secs")
# }
Run the code above in your browser using DataLab