uere | R Documentation |
Functions for estimating and assigning the root-mean-square User Equivalent Range Error (UERE) of a GPS device from calibration data.
uere(data)
uere(data) <- value
uere.fit(data,precision=1/2)
## S3 method for class 'UERE'
summary(object,level=0.95,...)
data |
|
value |
RMS UERE value(s) to assign to telemetry data (see details). |
precision |
Fraction of maximum possible digits of precision to target in categorical error fitting. |
object |
|
level |
Confidence level for UERE estimate confidence intervals. |
... |
Further arguments are ignored. |
Often times GPS animal tracking devices return HDOP values but do not specifiy the device's RMS UERE necessary to transform the HDOP values into absolute errors.
uere.fit()
allows users to estimate the RMS UERE from calibration data, where the device was left fixed over a period of time.
The calibration RMS UERE can then be applied to tracking data with the uere()<-
assignment method.
Otherwise, when error=TRUE
in ctmm
, ctmm.fit
will estimate the RMS UERE simultaneously with the movement model, which is less reliable than using calibration data.
summary()
applied to single UERE
object will return RMS UERE parameter estimates and confidence intervals in meters, while summary()
applied to a list of UERE
objects will return a model-selection table, with AICc and reduced Z squared (goodness of fit) values.
The RMS UERE estimate.
The GPS device should be fixed during calibraiton.
C. H. Fleming
C. H. Fleming et al, “A comprehensive framework for handling location error in animal tracking data”, bioRxiv 2020.06.12.130195 (2020) \Sexpr[results=rd]{tools:::Rd_expr_doi("10.1101/2020.06.12.130195")}.
as.telemetry
, residuals.telemetry
.
# Load package and data
library(ctmm)
data(turtle)
# the first two datasets are calibration data
names(turtle)
# estimate RMS UERE from calibration data
UERE <- uere.fit(turtle[1:2])
# inspect UERE estimate
summary(UERE)
# assign RMS UERE to entire dataset
uere(turtle) <- UERE
# calculate residuals of calibration data
RES <- lapply(turtle[1:2],residuals)
# scatter plot of residuals with 50%, 95%, and 99.9% coverage areas
plot(RES,col.DF=NA,level.UD=c(0.50,0.95,0.999))
# check calibration data for autocorrelation using fast=FALSE because samples are small
ACFS <- lapply(RES,function(R){correlogram(R,fast=FALSE,dt=10 %#% 'min',trace=FALSE)})
# pooling ACFs
ACF <- mean(ACFS)
plot(ACF)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.