knitr::opts_chunk$set(collapse = TRUE, comment = "#>") options(knitr.table.format = "html", rmarkdown.html_vignette.check_title = FALSE) library(eRTG3D) set.seed(123) cerw <- reproduce.track.3d(niclas, DEM = dem)
cerw <- reproduce.track.3d(niclas, DEM = dem)
The simulated trajectories result should be tested statistically. The first argument of the test.verification.3d()
function is the original track to be tested against. The second argument is either a single track or a list of multiple tracks.
By setting test = "ks"
a two-sample Kolmogorov-Smirnov test is carried out on the distributions of turn angles, lift angles and step lengths of the two tracks.
tests <- test.verification.3d(niclas, cerw, test = "ks", plot = FALSE)
By choosing test = "ttest"
a random sample, without replacement is taken from the longer track, to shorten it to the length of the longer track. The order of the shorter track is also sampled randomly. Then the two randomly ordered vectors of turn angles, lift angles and step lengths are substracted from each other. If the both tracks stem from the same distributions the the mean deviatio should tend to towards zero, therefore the difference is tested two-sided against mu = 0 with a one-sample t-test.
tests <- test.verification.3d(niclas, cerw, test = "ttest", plot = FALSE)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.