R/step_calculation.R
step_metrics.RdCalculates step metrics including distance, dt, dx, and dy.
step_metrics(sftraj)an sftrack/sftraj object. sftrack objects will be converted to sftraj internally for calculation.
#'
data("raccoon")
raccoon$timestamp <- as.POSIXct(raccoon$timestamp, "EST")
burstz <- list(id = raccoon$animal_id, month = as.POSIXlt(raccoon$timestamp)$mon)
# Input is a data.frame
my_sftraj <- as_sftraj(raccoon,
group = burstz, time = "timestamp",
error = NA, coords = c("longitude", "latitude")
)
step_metrics(my_sftraj)[1:10, ]
#> dx dy dist dt abs_angle rel_angle
#> 224 NA NA NA 3600 NA NA
#> 225 0.000000e+00 0.000000e+00 0.000000e+00 3600 NA NA
#> 226 NA NA NA 3600 NA NA
#> 227 NA NA NA 3600 NA NA
#> 228 4.988889e-03 9.805556e-04 5.084339e-03 3600 0.1940740 NA
#> 229 2.250000e-04 9.444444e-04 9.708761e-04 3600 1.3369206 1.142847
#> 230 5.555556e-05 8.333333e-06 5.617708e-05 3574 0.1488899 -1.188031
#> 231 0.000000e+00 0.000000e+00 0.000000e+00 3626 NA NA
#> 232 NA NA NA 32400 NA NA
#> 233 6.111111e-05 1.305556e-04 1.441503e-04 3575 1.1330050 NA
#> speed sftrack_id
#> 224 NA TTP-058_0_2019-01-19 00:02:30
#> 225 0.000000e+00 TTP-058_0_2019-01-19 01:02:30
#> 226 NA TTP-058_0_2019-01-19 02:02:30
#> 227 NA TTP-058_0_2019-01-19 03:02:30
#> 228 1.412316e-06 TTP-058_0_2019-01-19 04:02:30
#> 229 2.696878e-07 TTP-058_0_2019-01-19 05:02:30
#> 230 1.571826e-08 TTP-058_0_2019-01-19 06:02:30
#> 231 0.000000e+00 TTP-058_0_2019-01-19 07:02:04
#> 232 NA TTP-058_0_2019-01-19 08:02:30
#> 233 4.032177e-08 TTP-058_0_2019-01-19 17:02:30