mark_speed_gaps {psyosphere} | R Documentation |
Mark speeds that exceed a certain speed limit as gaps
mark_speed_gaps( tracks, speed_limit, cspeed = "speed", bind = TRUE, drop = TRUE, cname = "speed_gap", t_id = "id" )
tracks |
|
speed_limit |
|
cspeed |
|
bind |
logical. Return the distance as list ( |
drop |
|
cname |
|
t_id |
character or numeric. Column name in |
If you use Psyosphere for commercial use or research, please support us by include one off the following references:
Creative Commons: "Psyosphere" by B. Ziepert, E. G. Ufkes & P. W. de Vries from analyse-gps.com / CC-BY-SA-4.0
APA: de Vries, P. W., et al. (2016). "De psychologie van bewegingen GPS-technologie voor de analyse van natuurlijk gedrag." Tijdschrift voor Human Factors 2: 11-15.
Benjamin Ziepert. Please send feedback to: feedback-psyosphere@analyse-gps.com.
mark_gap_segments
, mark_time_gaps
, select_gaps
# Get example data data(psyo_rounds2) speedt <- psyo_rounds2[ c(1:5,11:15) ,] remove(psyo_rounds2) # clean-up data speedt <- psyosphere::average_duplicates(speedt) speedt <- psyosphere::t_time_difference(speedt) speedt <- psyosphere::mark_time_gaps(speedt) # Add speed speedt <- psyosphere::t_speed(speedt) # Advanced mean speed without speed gap psyosphere::des_mean(speedt, "speed", "time_difference", "time_gap") # Mark speed gap speedt <- mark_speed_gaps(speedt, 8) # Advanced mean speed with speed gap psyosphere::des_mean(speedt, "speed", "time_difference", c("time_gap","speed_gap"))