Running examples in 'PCPS-Ex.R' failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: pcoa.sig
> ### Title: Significant dimensions in principal coordinate analysis
> ### Aliases: pcoa.sig print.pcoasig summary.pcoasig print.summarypcoasig
> ###   print.pcoasig print.summarypcoasig summary.pcoasig
> ### Keywords: PCPS
> 
> ### ** Examples
> 
> 
> data(flona)
> res<-pcoa.sig(flona$community, method = "bray", squareroot = TRUE, axis = 6, iterations = 100)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
PCPS
 --- call from context --- 
wcmdscale.org(data, method = method, squareroot = squareroot, 
    eig = TRUE, correlations = TRUE)
 --- call from argument --- 
if (class(data) == "dist") {
    data.dist <- data
} else {
    data.dist <- vegan::vegdist(data, method = method)
}
 --- R stacktrace ---
where 1: wcmdscale.org(data, method = method, squareroot = squareroot, 
    eig = TRUE, correlations = TRUE)
where 2: pcoa.sig(flona$community, method = "bray", squareroot = TRUE, 
    axis = 6, iterations = 100)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (data, method, squareroot, eig, correlations, ...) 
{
    res <- list()
    if (class(data) == "dist") {
        data.dist <- data
    }
    else {
        data.dist <- vegan::vegdist(data, method = method)
    }
    if (squareroot) {
        data.dist <- sqrt(data.dist)
    }
    data.ordi <- vegan::wcmdscale(data.dist, eig = eig, ...)
    if (eig) {
        res$vectors <- data.ordi$points
        values <- data.ordi$eig[data.ordi$eig >= 0]
        res$values <- data.frame(Eigenvalue = values, Relative_eig = values/sum(values), 
            Cumul_eig = cumsum(values/sum(values)))
        if (any(data.ordi$eig < 0)) {
            warning("Warning: Negative eigenvalues are present in the decomposition result, but only positive eigenvalues were returned", 
                call. = FALSE)
        }
    }
    else {
        res$vectors <- data.ordi
    }
    colnames(res$vectors) <- paste("Axis.", seq_len(ncol(res$vectors)), 
        sep = "")
    if (correlations) {
        res.cor <- stats::cor(data, res$vectors)
        res$correlations <- res.cor
    }
    return(res)
}
<bytecode: 0xbd0bb28>
<environment: namespace:PCPS>
 --- function search by body ---
Function wcmdscale.org in namespace PCPS has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(data) == "dist") { : the condition has length > 1
Calls: pcoa.sig -> wcmdscale.org
Execution halted