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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: variogram.fit
> ### Title: Visually fit a movement model to a variogram
> ### Aliases: ctmm.guess variogram.fit
> 
> ### ** Examples
> 
> #Load package and data
> library(ctmm)
> data(buffalo)
> 
> #Extract movement data for a single animal
> Cilla <- buffalo$Cilla
> 
> # generate a visual fit of the variogram (requires RStudio or a guess object is returned)
> ctmm.guess(Cilla)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ctmm
 --- call from context --- 
covm(CTMM$sigma, isotropic = CTMM$isotropic, axes = CTMM$axes)
 --- call from argument --- 
if (class(pars) == "covm") {
    pars <- pars@par
}
 --- R stacktrace ---
where 1: covm(CTMM$sigma, isotropic = CTMM$isotropic, axes = CTMM$axes)
where 2: drift@init(data, CTMM)
where 3: ctmm.guess(Cilla)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (pars, isotropic = FALSE, axes = c("x", "y")) 
{
    if (is.null(pars)) {
        return(NULL)
    }
    if (class(pars) == "covm") {
        pars <- pars@par
    }
    if (length(axes) == 1) {
        sigma <- array(pars, c(1, 1))
        pars <- sigma[1, 1]
        names(pars) <- c("major")
    }
    else if (length(axes) == 2) {
        if (length(pars) == 1) {
            pars <- c(pars, 1, 0)
            sigma <- diag(pars[1], 2)
        }
        else if (length(pars) == 3) {
            sigma <- sigma.construct(pars)
        }
        else if (length(pars) == 4) {
            sigma <- pars
            if (class(pars) == "covm") {
                pars <- attr(pars, "par")
            }
            else {
                pars <- sigma.destruct(sigma, isotropic = isotropic)
            }
        }
        if (isotropic) {
            pars <- c(pars[1] * (1 + pars[2])/2, 1, 0)
            sigma <- diag(pars[1], 2)
        }
        names(pars) <- c("major", "minor", "angle")
    }
    dimnames(sigma) <- list(axes, axes)
    new.covm(sigma, par = pars, isotropic = isotropic)
}
<bytecode: 0x55fcfa878890>
<environment: namespace:ctmm>
 --- function search by body ---
Function covm in namespace ctmm has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1