Extracts or creates the unUsedRecords
unUsedRecords.RdThis function returns the unUsedRecords part of the move object or assigns locations as unused, this could for example be used to remove test locations from a track. unUsedRecords can include events with no locations, locations flagged as outliers, non-location sensor data when includeExtraSensors is set to TRUE in the getMovebankData function.
Usage
# S4 method for .unUsedRecords
unUsedRecords(obj,...)
# S4 method for .unUsedRecordsStack
unUsedRecords(obj,...)
# S4 method for .MoveTrackSingle,logical
unUsedRecords(obj) <- value
# S4 method for .MoveTrackStack,logical
unUsedRecords(obj) <- valueArguments
- obj
a
move,moveStackormoveBurstobject- value
A logical vector of the same length as the number of locations
- ...
Currently not implemented
Value
an .unUsedRecords or .unUsedRecordsStack object
Examples
data(leroy)
data(fishers)
## get unused records from a move or moveStack object
str(unUsedRecords(leroy)) # from a move object
#> Formal class '.unUsedRecords' [package "move"] with 3 slots
#> ..@ timestampsUnUsedRecords: POSIXct[1:1071], format: "2009-02-11 00:00:01" "2009-02-11 00:15:01" ...
#> ..@ sensorUnUsedRecords : Factor w/ 1 level "gps": 1 1 1 1 1 1 1 1 1 1 ...
#> ..@ dataUnUsedRecords :'data.frame': 1071 obs. of 19 variables:
#> .. ..$ timestamp : POSIXct[1:1071], format: "2009-02-11 00:00:01" "2009-02-11 00:15:01" ...
#> .. ..$ location.long : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ location.lat : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.battery.voltage : int [1:1071] 3642 3635 3632 3632 3642 3643 3647 3652 3654 3654 ...
#> .. ..$ eobs.horizontal.accuracy.estimate: num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.key.bin.checksum : num [1:1071] 3.72e+09 3.76e+09 3.05e+07 7.20e+08 2.24e+09 ...
#> .. ..$ eobs.speed.accuracy.estimate : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.start.timestamp : Factor w/ 1990 levels "2009-02-11 00:00:01.000",..: 1 2 3 4 5 6 7 8 9 10 ...
#> .. ..$ eobs.status : Factor w/ 2 levels "A","D": 2 2 2 2 2 2 2 2 2 2 ...
#> .. ..$ eobs.temperature : int [1:1071] 27 23 21 20 22 22 21 20 26 29 ...
#> .. ..$ eobs.type.of.fix : int [1:1071] 0 0 0 0 0 0 0 0 0 0 ...
#> .. ..$ eobs.used.time.to.get.fix : int [1:1071] 120 120 120 120 120 120 120 120 120 120 ...
#> .. ..$ ground.speed : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ heading : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ height.above.ellipsoid : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.easting : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.northing : num [1:1071] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.zone : Factor w/ 2 levels "","18N": 1 1 1 1 1 1 1 1 1 1 ...
#> .. ..$ study.local.timestamp : POSIXct[1:1071], format: "2009-02-10 18:00:01" "2009-02-10 18:15:01" ...
str(unUsedRecords(fishers)) # from a moveStack object
#> Formal class '.unUsedRecordsStack' [package "move"] with 4 slots
#> ..@ trackIdUnUsedRecords : Factor w/ 2 levels "Leroy","Ricky.T": 1 1 1 1 1 1 1 1 1 1 ...
#> .. ..- attr(*, "names")= chr [1:2959] "Leroy1" "Leroy2" "Leroy3" "Leroy4" ...
#> ..@ timestampsUnUsedRecords: POSIXct[1:2959], format: "2009-02-11 00:00:01" "2009-02-11 00:15:01" ...
#> ..@ sensorUnUsedRecords : Factor w/ 1 level "gps": 1 1 1 1 1 1 1 1 1 1 ...
#> ..@ dataUnUsedRecords :'data.frame': 2959 obs. of 22 variables:
#> .. ..$ timestamp : POSIXct[1:2959], format: "2009-02-11 00:00:01" "2009-02-11 00:15:01" ...
#> .. ..$ location.long : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ location.lat : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.battery.voltage : int [1:2959] 3642 3635 3632 3632 3642 3643 3647 3652 3654 3654 ...
#> .. ..$ eobs.horizontal.accuracy.estimate: num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.key.bin.checksum : num [1:2959] 3.72e+09 3.76e+09 3.05e+07 7.20e+08 2.24e+09 ...
#> .. ..$ eobs.speed.accuracy.estimate : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.start.timestamp : Factor w/ 12836 levels "2009-02-11 00:00:01.000",..: 1 2 3 4 5 6 7 8 9 10 ...
#> .. ..$ eobs.status : Factor w/ 2 levels "A","D": 2 2 2 2 2 2 2 2 2 2 ...
#> .. ..$ eobs.temperature : int [1:2959] 27 23 21 20 22 22 21 20 26 29 ...
#> .. ..$ eobs.type.of.fix : int [1:2959] 0 0 0 0 0 0 0 0 0 0 ...
#> .. ..$ eobs.used.time.to.get.fix : int [1:2959] 120 120 120 120 120 120 120 120 120 120 ...
#> .. ..$ ground.speed : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ heading : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ height.above.ellipsoid : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.easting : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.northing : num [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ utm.zone : Factor w/ 2 levels "","18N": 1 1 1 1 1 1 1 1 1 1 ...
#> .. ..$ study.local.timestamp : POSIXct[1:2959], format: "2009-02-10 18:00:01" "2009-02-10 18:15:01" ...
#> .. ..$ X : int [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ event.id : int [1:2959] NA NA NA NA NA NA NA NA NA NA ...
#> .. ..$ eobs.fix.battery.voltage : int [1:2959] NA NA NA NA NA NA NA NA NA NA ...
## assign locations of a move object as unused record
par(mfrow=2:1)
plot(leroy, type='b')
# e.g. assign every second location as unused
unUsedRecords(leroy)<-as.logical((1:n.locs(leroy))%%2)
plot(leroy, type='b')
# e.g. assign first 20 locations as unused
data(leroy)
unUsedRecords(leroy)<- as.logical(c(rep("TRUE",20), rep("FALSE",n.locs(leroy)-20)))