knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(navr) library(ggplot2) obj <- navr_object
We can prepare necessary columns (time diffs, speeds, distances) with a single function.
colnames(obj$data) obj <- prepare_navr(obj) colnames(obj$data)
#this function picks unreal speeds i_speeds <- pick_unreal_speeds(obj, 3, "std") #this function removes given speed AND distance measurements and recalculates total distance obj <- remove_unreal_speeds(obj, indices = i_speeds, total_recalculate = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.