mark_time_gaps: Mark segments between data gaps

In psyosphere: Analyse GPS Data

Description

Mark segments between data gaps

Usage

mark_time_gaps(
  tracks, interval = 0, factor = 3, ctime_difference = "time_difference",
  bind = TRUE, drop = TRUE, cname = "time_gap", t_id = "id"
)

Arguments

tracks	psyo. Data frame with tracks.
interval	numeric. Recording interval of the GPS tracker in seconds. Use 0 to automatically determine the interval. For this the most frequent interval is used.
factor	numeric. Multiplier to determine gaps. If a time difference between coordinates is bigger than tracker_interval * factor it is marked as gap.
ctime_difference	character. Column name of tracks that contains the time difference 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_speed_gaps, select_gaps

Examples

## Not run: 
# Get example data
data(psyo_rounds2)

# clean-up data
psyo_rounds2 <- average_duplicates(psyo_rounds2)

# Add gap segments
psyo_rounds2 <- t_time_difference(psyo_rounds2)
psyo_rounds2 <- mark_time_gaps(psyo_rounds2)

# Check result
psyo_rounds2 <- psyo_rounds2[ which(psyo_rounds2[,"time_gap"]) ,]

## End(Not run)

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