data("run", package = "trackeR")
## unsmoothed speeds
plot(run, smooth = FALSE)
## default smoothing
plot(run, smooth = TRUE, cores = 2)
## smoothed with some non-default options
runS <- smoother(run, fun = "median", width = 20, what = "speed", cores = 2)
plot(runS, smooth = FALSE)
Run the code above in your browser using DataLab