* using log directory ‘/data/gannet/ripley/R/packages/tests-LENGTH1/TInPosition.Rcheck’
* using R Under development (unstable) (2022-03-19 r81944)
* using platform: x86_64-pc-linux-gnu (64-bit)
* using session charset: UTF-8
* using option ‘--no-stop-on-test-error’
* checking for file ‘TInPosition/DESCRIPTION’ ... OK
* checking extension type ... Package
* this is package ‘TInPosition’ version ‘0.13.6.1’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for executable files ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘TInPosition’ can be installed ... [4s/10s] OK
* checking package directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking use of S3 registration ... OK
* checking dependencies in R code ... OK
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... [8s/21s] OK
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd line widths ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking examples ... ERROR
Running examples in ‘TInPosition-Ex.R’ failed
The error most likely occurred in:

> ### Name: tepBADA.inference.battery
> ### Title: Barycentric Discriminant Analysis Inference Battery
> ### Aliases: tepBADA.inference.battery
> ### Keywords: multivariate
> 
> ### ** Examples
> 
> 	data(bada.wine)
> 	data<-bada.wine$data
> 	design <- bada.wine$design
> 	bada.res <- 
+ 		tepBADA.inference.battery(data,scale=FALSE,DESIGN=design,
+ 			make_design_nominal=FALSE,test.iters=50)
 ----------- FAILURE REPORT -------------- 
 --- failure: length > 1 in coercion to logical ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ExPosition
 --- call from context --- 
supplementaryRows(SUP.DATA = t(DATA[i, ]), res = BADAminus1)
 --- call from argument --- 
names(res) %in% data.types && length(names(res)) == 2
 --- R stacktrace ---
where 1: supplementaryRows(SUP.DATA = t(DATA[i, ]), res = BADAminus1)
where 2: loo.test(DATA = DATA, DESIGN = DESIGN, scale = scale, center = center, 
    i = i, k = k, group.masses = group.masses, weights = weights)
where 3: tepBADA.inference.battery(data, scale = FALSE, DESIGN = design, 
    make_design_nominal = FALSE, test.iters = 50)

 --- value of length: 2 type: logical ---
[1]  TRUE FALSE
 --- function from context --- 
function (SUP.DATA, res) 
{
    SUP.DATA <- as.matrix(SUP.DATA)
    output.types <- c("expoOutput", "texpoOutput", "mexpoOutput")
    data.types <- c("ExPosition.Data", "TExPosition.Data", "MExPosition.Data")
    mds.types <- c("epMDS")
    pca.types <- c("epPCA", "epGPCA", "tepBADA")
    ca.types <- c("epCA", "epMCA", "tepDICA")
    if (class(res)[1] %in% output.types) {
        indicator <- which(output.types %in% class(res)[1])
        if (names(res) %in% data.types && length(names(res)) == 
            2) {
            if (output.types[indicator] == "expoOutput") {
                res <- res$ExPosition.Data
            }
            if (output.types[indicator] == "texpoOutput") {
                res <- res$TExPosition.Data
            }
            if (output.types[indicator] == "mexpoOutput") {
                res <- res$MExPosition.Data
            }
        }
        else {
            stop(paste("res class type is unknown:", names(res), 
                sep = " "))
        }
    }
    if ((class(res)[1] %in% c(pca.types))) {
        sup.transform <- pcaSupplementaryRowsPreProcessing(SUP.DATA, 
            center = res$center, scale = res$scale, W = res$W)
        sup.proj <- supplementalProjection(sup.transform, res$fj, 
            res$pdq$Dv)
    }
    else if ((class(res)[1] %in% c(ca.types))) {
        if (res$hellinger) {
            sup.transform <- hellingerSupplementaryRowsPreProcessing(SUP.DATA, 
                center = res$c)
            sup.proj <- supplementalProjection(sup.transform, 
                f.scores = res$fj, Dv = res$pdq$Dv, symmetric = res$symmetric)
        }
        else {
            sup.transform <- caSupplementalElementsPreProcessing(SUP.DATA)
            if ((class(res)[1] %in% c("epMCA"))) {
                sup.proj <- supplementalProjection(sup.transform, 
                  res$fj, res$pdq$Dv, scale.factor = res$pdq$Dv/res$pdq.uncor$Dv[1:length(res$pdq$Dv)], 
                  symmetric = res$symmetric)
            }
            else {
                sup.proj <- supplementalProjection(sup.transform, 
                  res$fj, res$pdq$Dv, symmetric = res$symmetric)
            }
        }
    }
    else if ((class(res)[1] %in% c(mds.types))) {
        sup.transform <- mdsSupplementalElementsPreProcessing(SUP.DATA, 
            res$D, res$M)
        sup.proj <- supplementalProjection(sup.transform, res$fi, 
            res$pdq$Dv)
    }
    else {
        stop("Unknown class type. Supplementary projection computation must stop.")
    }
    fii <- sup.proj$f.out
    dii <- sup.proj$d.out
    rii <- sup.proj$r.out
    rownames(fii) <- rownames(dii) <- rownames(rii) <- rownames(SUP.DATA)
    return(list(fii = fii, dii = dii, rii = rii))
}
<bytecode: 0x32686c0>
<environment: namespace:ExPosition>
 --- function search by body ---
Function supplementaryRows in namespace ExPosition has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: length > 1 in coercion to logical
* checking PDF version of manual ... OK
* checking for non-standard things in the check directory ... OK
* checking for detritus in the temp directory ... OK
* DONE

Status: 1 ERROR
See
  ‘/data/gannet/ripley/R/packages/tests-LENGTH1/TInPosition.Rcheck/00check.log’
for details.

Command exited with non-zero status 1
Time 1:42.81, 34.07 + 6.05