Running examples in ‘diveMove-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: austFilter
> ### Title: Filter satellite locations
> ### Aliases: grpSpeedFilter rmsDistFilter austFilter
> ### Keywords: manip iteration
> 
> ### ** Examples
> 
> 
> ## Using the Example from '?readLocs':
> utils::example("readLocs", package="diveMove",
+                ask=FALSE, echo=FALSE)
'data.frame':	369 obs. of  5 variables:
 $ id   : Factor w/ 2 levels "ringy","stephanie": 1 1 1 1 1 1 1 1 1 1 ...
 $ time : Factor w/ 369 levels "2005-02-02 06:39:33",..: 224 225 226 227 228 229 230 231 232 233 ...
 $ class: Factor w/ 7 levels "0","1","2","3",..: 3 4 4 3 3 5 3 5 1 2 ...
 $ lon  : num  -72.7 -72.7 -72.7 -72.5 -72.3 ...
 $ lat  : num  40.9 40.9 40.9 40.8 40.9 ...
> ringy <- subset(locs, id == "ringy" & !is.na(lon) & !is.na(lat))
> 
> ## Examples below use default Meeus algorithm for computing distances.
> ## See ?distSpeed for specifying other methods.
> ## Austin et al.'s group filter alone
> grp <- grpSpeedFilter(ringy[, 3:5], speed.thr=1.1)
> 
> ## McConnell et al.'s filter (root mean square test), and distance test alone
> rms <- rmsDistFilter(ringy[, 3:5], speed.thr=1.1, dist.thr=300)
> 
> ## Show resulting tracks
> n <- nrow(ringy)
> plot.nofilter <- function(main) {
+     plot(lat ~ lon, ringy, type="n", main=main)
+     with(ringy, segments(lon[-n], lat[-n], lon[-1], lat[-1]))
+ }
> layout(matrix(1:4, ncol=2, byrow=TRUE))
> plot.nofilter(main="Unfiltered Track")
> plot.nofilter(main="Group Filter")
> n1 <- length(which(grp))
> with(ringy[grp, ], segments(lon[-n1], lat[-n1], lon[-1], lat[-1],
+                             col="blue"))
> plot.nofilter(main="Root Mean Square Filter")
> n2 <- length(which(rms[, 1]))
> with(ringy[rms[, 1], ], segments(lon[-n2], lat[-n2], lon[-1], lat[-1],
+                                  col="red"))
> plot.nofilter(main="Distance Filter")
> n3 <- length(which(rms[, 2]))
> with(ringy[rms[, 2], ], segments(lon[-n3], lat[-n3], lon[-1], lat[-1],
+                                  col="green"))
> 
> 
> ## All three tests (Austin et al. procedure)
> austin <- with(ringy, austFilter(time, lon, lat, speed.thr=1.1,
+                                  dist.thr=300))
Error in tapply(seq_len(nrow(locs)), list(id = c(1L, 1L, 1L, 1L, 1L, 1L,  : 
  arguments must have same length
Calls: with ... by.data.frame -> structure -> eval -> eval -> tapply
Execution halted