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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: spline_interp
> ### Title: Bezier spline interpolation of observations.
> ### Aliases: spline_interp
> ### Keywords: dplot optimize
> 
> ### ** Examples
> 
> #can also be 'di' output of sim_trajectory_joint (set gen_irreg=TRUE)
> 
> di <- data.frame(X=runif(n=9), Y=runif(n=9),
+                  time_to_next=c(2,4,15,8,5,18,3,5,NA))
> di$date_as_sec <- c(0, cumsum(di$time_to_next[-9]))
> region_centroids <- cbind(X=runif(2), Y=runif(2))
> 
> #one log observation with dt =18 > 16 will be omitted
> spl <- spline_interp(di=di, area_map=NULL, reg_dt=3, max_dt_wo_obs=16, maxStep=NULL, 
+                      centroids=region_centroids, nstates=2, spline_deg=3, split_logv=-3)
[1] "assuming all observations are for one animal"
[1] "overall date range"
[1] "1970-01-01" "1970-01-01"
[1] "GSH01"
[1] "Shark GSH01 8 observations"
[1] "GSH01"
[1] "8 observations used for spline"
[1] "calculating transition probabilities"
[1] "calculating state classification"
[1] "GSH01"
> 
> plot(di[,c("X","Y")], xlim=c(0,1), ylim=c(0,1), type="b", las=1,
+      "Observations interpolated by regular interval spline")
Error in str2lang(x) : <text>:1:14: unexpected symbol
1: Observations interpolated
                 ^
Calls: plot ... <Anonymous> -> formula -> formula.character -> str2lang
Execution halted
Running examples in ‘animalEKF-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: spline_interp
> ### Title: Bezier spline interpolation of observations.
> ### Aliases: spline_interp
> ### Keywords: dplot optimize
> 
> ### ** Examples
> 
> #can also be 'di' output of sim_trajectory_joint (set gen_irreg=TRUE)
> 
> di <- data.frame(X=runif(n=9), Y=runif(n=9),
+                  time_to_next=c(2,4,15,8,5,18,3,5,NA))
> di$date_as_sec <- c(0, cumsum(di$time_to_next[-9]))
> region_centroids <- cbind(X=runif(2), Y=runif(2))
> 
> #one log observation with dt =18 > 16 will be omitted
> spl <- spline_interp(di=di, area_map=NULL, reg_dt=3, max_dt_wo_obs=16, maxStep=NULL, 
+                      centroids=region_centroids, nstates=2, spline_deg=3, split_logv=-3)
[1] "assuming all observations are for one animal"
[1] "overall date range"
[1] "1970-01-01" "1970-01-01"
[1] "GSH01"
[1] "Shark GSH01 8 observations"
[1] "GSH01"
[1] "8 observations used for spline"
[1] "calculating transition probabilities"
[1] "calculating state classification"
[1] "GSH01"
> 
> plot(di[,c("X","Y")], xlim=c(0,1), ylim=c(0,1), type="b", las=1,
+      "Observations interpolated by regular interval spline")
Error in str2lang(x) : <text>:1:14: unexpected symbol
1: Observations interpolated
                 ^
Calls: plot ... <Anonymous> -> formula -> formula.character -> str2lang
Execution halted
Running examples in ‘animalEKF-Ex.R’ failed
The error most likely occurred in:

> ### Name: spline_interp
> ### Title: Bezier spline interpolation of observations.
> ### Aliases: spline_interp
> ### Keywords: dplot optimize
> 
> ### ** Examples
> 
> #can also be 'di' output of sim_trajectory_joint (set gen_irreg=TRUE)
> 
> di <- data.frame(X=runif(n=9), Y=runif(n=9),
+                  time_to_next=c(2,4,15,8,5,18,3,5,NA))
> di$date_as_sec <- c(0, cumsum(di$time_to_next[-9]))
> region_centroids <- cbind(X=runif(2), Y=runif(2))
> 
> #one log observation with dt =18 > 16 will be omitted
> spl <- spline_interp(di=di, area_map=NULL, reg_dt=3, max_dt_wo_obs=16, maxStep=NULL, 
+                      centroids=region_centroids, nstates=2, spline_deg=3, split_logv=-3)
[1] "assuming all observations are for one animal"
[1] "overall date range"
[1] "1970-01-01" "1970-01-01"
[1] "GSH01"
[1] "Shark GSH01 8 observations"
[1] "GSH01"
[1] "8 observations used for spline"
[1] "calculating transition probabilities"
[1] "calculating state classification"
[1] "GSH01"
> 
> plot(di[,c("X","Y")], xlim=c(0,1), ylim=c(0,1), type="b", las=1,
+      "Observations interpolated by regular interval spline")
Error in str2lang(x) : <text>:1:14: unexpected symbol
1: Observations interpolated
                 ^
Calls: plot ... <Anonymous> -> formula -> formula.character -> str2lang
Execution halted
Running examples in ‘animalEKF-Ex.R’ failed
The error most likely occurred in:

> ### Name: spline_interp
> ### Title: Bezier spline interpolation of observations.
> ### Aliases: spline_interp
> ### Keywords: dplot optimize
> 
> ### ** Examples
> 
> #can also be 'di' output of sim_trajectory_joint (set gen_irreg=TRUE)
> 
> di <- data.frame(X=runif(n=9), Y=runif(n=9),
+                  time_to_next=c(2,4,15,8,5,18,3,5,NA))
> di$date_as_sec <- c(0, cumsum(di$time_to_next[-9]))
> region_centroids <- cbind(X=runif(2), Y=runif(2))
> 
> #one log observation with dt =18 > 16 will be omitted
> spl <- spline_interp(di=di, area_map=NULL, reg_dt=3, max_dt_wo_obs=16, maxStep=NULL, 
+                      centroids=region_centroids, nstates=2, spline_deg=3, split_logv=-3)
[1] "assuming all observations are for one animal"
[1] "overall date range"
[1] "1970-01-01" "1970-01-01"
[1] "GSH01"
[1] "Shark GSH01 8 observations"
[1] "GSH01"
[1] "8 observations used for spline"
[1] "calculating transition probabilities"
[1] "calculating state classification"
[1] "GSH01"
> 
> plot(di[,c("X","Y")], xlim=c(0,1), ylim=c(0,1), type="b", las=1,
+      "Observations interpolated by regular interval spline")
Error in str2lang(x) : <text>:1:14: unexpected symbol
1: Observations interpolated
                 ^
Calls: plot ... <Anonymous> -> formula -> formula.character -> str2lang
Execution halted
Running examples in 'animalEKF-Ex.R' failed
The error most likely occurred in:

> ### Name: spline_interp
> ### Title: Bezier spline interpolation of observations.
> ### Aliases: spline_interp
> ### Keywords: dplot optimize
> 
> ### ** Examples
> 
> #can also be 'di' output of sim_trajectory_joint (set gen_irreg=TRUE)
> 
> di <- data.frame(X=runif(n=9), Y=runif(n=9),
+                  time_to_next=c(2,4,15,8,5,18,3,5,NA))
> di$date_as_sec <- c(0, cumsum(di$time_to_next[-9]))
> region_centroids <- cbind(X=runif(2), Y=runif(2))
> 
> #one log observation with dt =18 > 16 will be omitted
> spl <- spline_interp(di=di, area_map=NULL, reg_dt=3, max_dt_wo_obs=16, maxStep=NULL, 
+                      centroids=region_centroids, nstates=2, spline_deg=3, split_logv=-3)
[1] "assuming all observations are for one animal"
[1] "overall date range"
[1] "1970-01-01" "1970-01-01"
[1] "GSH01"
[1] "Shark GSH01 8 observations"
[1] "GSH01"
[1] "8 observations used for spline"
[1] "calculating transition probabilities"
[1] "calculating state classification"
[1] "GSH01"
> 
> plot(di[,c("X","Y")], xlim=c(0,1), ylim=c(0,1), type="b", las=1,
+      "Observations interpolated by regular interval spline")
Error in str2lang(x) : <text>:1:14: unexpected symbol
1: Observations interpolated
                 ^
Calls: plot ... <Anonymous> -> formula -> formula.character -> str2lang
Execution halted