mark_speed_gaps: Mark speeds that exceed a certain speed limit as gaps

In psyosphere: Analyse GPS Data

Description

Mark speeds that exceed a certain speed limit as gaps

Usage

mark_speed_gaps(
  tracks, speed_limit, cspeed = "speed", bind = TRUE, drop = TRUE,
  cname = "speed_gap", t_id = "id"
)

Arguments

tracks	psyo. Data frame with tracks.
speed_limit	numeric. Values in column cspeed that are equal or higher than this value will be marked as gaps in column cgaps as TRUE.
cspeed	character. Column name of tracks that contains the speed as numeric values.
bind	logical. Return the distance as list (FALSE) or add it to tracks (TRUE).
drop	logical. If TRUE and only one observation is returned drop the data frame and collapse the return value to a vector.
cname	character. Column name of tracks that marks gaps with TRUE. If the column does not exist it will be created.
t_id	character or numeric. Column name in tracks that identifies the separate tracks.

Value

psyo

Credit

If you use 'psyosphere' for commercial use or research, please support us by include one off the following references:

• MIT license: "psyosphere" by B. Ziepert, E. G. Ufkes & P. W. de Vries from https://CRAN.R-project.org/package=psyosphere

• APA: Ziepert, B., Ufkes, E., & de Vries, P. W. (2018). psyosphere: Analyse GPS Data. Retrieved from https://CRAN.R-project.org/package=psyosphere

• APA: Vries, P., Ziepert, B., & Ufkes, E. (2016). "De psychologie van bewegingen GPS-technologie voor de analyse van natuurlijk gedrag." Tijdschrift voor Human Factors 2: 11-15.

Author(s)

Benjamin Ziepert. Please send feedback to: [e-mail].

See Also

mark_gap_segments, mark_time_gaps, select_gaps

Examples

## Not run: 
# Get example data
data(psyo_rounds2)
speedt <- psyo_rounds2[ c(1:5,11:15) ,]
remove(psyo_rounds2)

# clean-up data
speedt <- average_duplicates(speedt)
speedt <- t_time_difference(speedt)
speedt <- mark_time_gaps(speedt)

# Add speed
speedt <- t_speed(speedt)

# Advanced mean speed without speed gap
des_mean(speedt, "speed", "time_difference", "time_gap")

# Mark speed gap
speedt <- mark_speed_gaps(speedt, 8)

# Advanced mean speed with speed gap
des_mean(speedt, "speed", "time_difference", c("time_gap","speed_gap"))

## End(Not run)

psyosphere documentation built on July 2, 2020, 12:08 a.m.