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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: BiFAD
> ### Title: Bifactor Analysis via Direct Schmid-Leiman (DSL) Transformations
> ### Aliases: BiFAD
> 
> ### ** Examples
> 
> cat("\nExample 1:\nEmpirical Target Matrix:\n")

Example 1:
Empirical Target Matrix:
> # Mansolf and Reise Table 2 Example
> Btrue <- matrix(c(.48, .40,  0,   0,   0,
+                   .51, .35,  0,   0,   0,
+                   .67, .62,  0,   0,   0,
+                   .34, .55,  0,   0,   0,
+                   .44,  0, .45,   0,   0,
+                   .40,  0, .48,   0,   0,
+                   .32,  0, .70,   0,   0,
+                   .45,  0, .54,   0,   0,
+                   .55,  0,   0, .43,   0,
+                   .33,  0,   0, .33,   0,
+                   .52,  0,   0, .51,   0,
+                   .35,  0,   0, .69,   0,
+                   .32,  0,   0,   0, .65,
+                   .66,  0,   0,   0, .51,
+                   .68,  0,   0,   0, .39,
+                   .32,  0,   0,   0, .56), 16, 5, byrow=TRUE)
> 
> Rex1 <- Btrue %*% t(Btrue)
> diag(Rex1) <- 1
> 
> out.ex1 <- BiFAD(R          = Rex1,
+                  B          = NULL,
+                  numFactors = 4,
+                  facMethod  = "fals",
+                  rotate     = "oblimin",
+                  salient    = .25)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
fungible
 --- call from context --- 
faStandardize(method = cnRotate$standardize, lambda = urLoadings)
 --- call from argument --- 
if (class(lambda) %in% c("matrix", "data.frame", "loadings") == 
    FALSE) {
    stop("The class of 'lambda' must be of class matrix, data.frame, or loadings.")
}
 --- R stacktrace ---
where 1: faStandardize(method = cnRotate$standardize, lambda = urLoadings)
where 2: faMain(urLoadings = faLoad, rotate = rotate, rotateControl = rotateControl)
where 3: BiFAD(R = Rex1, B = NULL, numFactors = 4, facMethod = "fals", 
    rotate = "oblimin", salient = 0.25)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (method, lambda) 
{
    if (method %in% c("none", "Kaiser", "CM") == FALSE) {
        stop("The 'method' argument is misspecified.")
    }
    if (class(lambda) %in% c("matrix", "data.frame", "loadings") == 
        FALSE) {
        stop("The class of 'lambda' must be of class matrix, data.frame, or loadings.")
    }
    Kaiser <- function(x) {
        diag(sqrt(diag(x %*% t(x)))^-1)
    }
    CM <- function(x) {
        NFac <- ncol(x)
        NVar <- nrow(x)
        wghts <- rep(0, NVar)
        fpls <- x[, 1]
        acosi <- acos(NFac^(-1/2))
        for (i in 1:NVar) {
            num <- (acosi - acos(abs(fpls[i])))
            dem <- (acosi - (function(a, m) ifelse(abs(a) < (m^(-1/2)), 
                pi/2, 0))(fpls[i], NFac))
            wghts[i] <- cos(num/dem * pi/2)^2 + 0.001
        }
        return(diag(wghts))
    }
    originalLambda <- lambda
    switch(method, none = {
        Dv <- DvInv <- diag(nrow(lambda))
    }, Kaiser = {
        Dv <- Kaiser(lambda)
        DvInv <- solve(Dv)
        lambda <- Dv %*% lambda
    }, CM = {
        Dk <- Kaiser(lambda)
        Dcm <- CM(Dk %*% lambda)
        Dv <- Dcm %*% Dk
        DvInv <- solve(Dv)
        lambda <- Dv %*% lambda
    })
    list(Dv = Dv, DvInv = DvInv, lambda = lambda, unstndLambda = originalLambda)
}
<bytecode: 0x2e8a360>
<environment: namespace:fungible>
 --- function search by body ---
Function faStandardize in namespace fungible has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(lambda) %in% c("matrix", "data.frame", "loadings") ==  : 
  the condition has length > 1
Calls: BiFAD -> faMain -> faStandardize
Execution halted