Signed turn-lag distance between two agents at specific lag delta

Signed turn-lag distance between two agents at specific lag delta

Usage

signed_turn_lag(pts_a, pts_b, times_a, times_b, delta)

Arguments

pts_a

Points matrix for agent A (n_a x 2)

pts_b

Points matrix for agent B (n_b x 2)

times_a

Turn times for agent A

times_b

Turn times for agent B

delta

Signed lag in turns

Examples

times_b <- c(1, 2, 3, 4, 5)
pts_b <- cbind(1:5, 1:5)
# agent A repeats B's positions two turns later
times_a <- times_b + 2
pts_a <- pts_b
signed_turn_lag(pts_a, pts_b, times_a, times_b, delta = 2L)  # mean distance 0
#> $mean_distance
#> [1] 0
#> 
#> $valid_count
#> [1] 5
#> 
signed_turn_lag(pts_a, pts_b, times_a, times_b, delta = 0L)
#> $mean_distance
#> [1] 1.979899
#> 
#> $valid_count
#> [1] 5
#>