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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: classify
> ### Title: Classification probabilities for lm.rrpp model fits
> ### Aliases: classify
> ### Keywords: analysis
> 
> ### ** Examples
> 
> 
> # Using the Pupfish data (see lm.rrpp help for more detail)
> 
> data(Pupfish)
> Pupfish$logSize <- log(Pupfish$CS) 
> fit <- lm.rrpp(coords ~ logSize + Sex * Pop, SS.type = "I", 
+ data = Pupfish, print.progress = FALSE, iter = 0)
> 
> classify(fit, inherent.groups = TRUE) # see groups available
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
RRPP
 --- call from context --- 
rrpp.data.frame(P = P, X = X)
 --- call from argument --- 
if (class(dots[[i]]) == "dist") dots.ns[i] <- attr(dots[[i]], 
    "Size")
 --- R stacktrace ---
where 1: rrpp.data.frame(P = P, X = X)
where 2: classify(fit, inherent.groups = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (...) 
{
    dots <- list(...)
    if (length(dots) == 1 && is.data.frame(dots[[1]])) {
        dots <- dots[[1]]
        class(dots) <- "rrpp.data.frame"
    }
    else if (length(dots) == 1 && inherits(dots[[1]], "geomorph.data.frame")) {
        dots <- dots[[1]]
        cat("\nWarning: Some geomorph.data.frame objects might not be compatible with RRPP functions.")
        cat("\nIf any part of the geomorph.data.frame conatins a 3D array,")
        cat("\nconsider converting it to a matrix before attempting to make an rrpp.data.frame.")
        class(dots) <- "rrpp.data.frame"
    }
    else if (length(dots) == 1 && inherits(dots[[1]], "rrpp.data.frame")) {
        dots <- dots[[1]]
    }
    else {
        if (length(dots) > 1 && inherits(dots[[1]], "rrpp.data.frame")) {
            dots1 <- dots[[1]]
            dots2 <- dots[-1]
            dots <- c(dots1, dots2)
        }
        N <- length(dots)
        dots.ns <- array(NA, N)
        for (i in 1:N) {
            if (is.array(dots[[i]])) {
                if (length(dim(dots[[i]])) == 3) 
                  dots.ns[i] <- dim(dots[[i]])[[3]]
                if (length(dim(dots[[i]])) == 2) 
                  dots.ns[i] <- dim(dots[[i]])[[2]]
                if (length(dim(dots[[i]])) == 1) 
                  dots.ns[i] <- dim(dots[[i]])[[1]]
            }
            if (is.matrix(dots[[i]])) 
                dots.ns[i] <- dim(dots[[i]])[[1]]
            if (class(dots[[i]]) == "dist") 
                dots.ns[i] <- attr(dots[[i]], "Size")
            if (is.data.frame(dots[[i]])) 
                dots.ns[i] <- dim(dots[[i]])[[1]]
            if (is.vector(dots[[i]])) 
                dots.ns[i] <- length(dots[[i]])
            if (is.factor(dots[[i]])) 
                dots.ns[i] <- length(dots[[i]])
            if (is.logical(dots[[i]])) 
                dots.ns[i] <- length(dots[[i]])
        }
        if (any(is.na(dots.ns))) 
            stop("Some input is either dimensionless or inappropriate for data frames")
        if (length(unique(dots.ns)) > 1) 
            stop("Inputs have different numbers of observations")
        class(dots) <- c("rrpp.data.frame")
    }
    dots
}
<bytecode: 0x55e462166168>
<environment: namespace:RRPP>
 --- function search by body ---
Function rrpp.data.frame in namespace RRPP has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1