CRAN Package Check Results for Package fungible

Last updated on 2019-11-26 00:51:52 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.93 12.57 77.92 90.49 ERROR
r-devel-linux-x86_64-debian-gcc 1.93 10.50 60.90 71.40 ERROR
r-devel-linux-x86_64-fedora-clang 1.93 138.54 NOTE
r-devel-linux-x86_64-fedora-gcc 1.93 137.21 NOTE
r-devel-windows-ix86+x86_64 1.93 18.00 169.00 187.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.93 19.00 170.00 189.00 OK
r-patched-linux-x86_64 1.93 14.23 107.03 121.26 OK
r-patched-solaris-x86 1.93 175.60 NOTE
r-release-linux-x86_64 1.93 15.39 107.55 122.94 OK
r-release-windows-ix86+x86_64 1.93 19.00 129.00 148.00 OK
r-release-osx-x86_64 1.93 NOTE
r-oldrel-windows-ix86+x86_64 1.93 18.00 142.00 160.00 OK
r-oldrel-osx-x86_64 1.93 NOTE

Check Details

Version: 1.93
Check: examples
Result: ERROR
    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: 0x3ab3790>
    <environment: namespace:fungible>
     --- function search by body ---
    Function faStandardize in namespace fungible has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.93
Check: examples
Result: ERROR
    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: 0x564e2c20fc00>
    <environment: namespace:fungible>
     --- function search by body ---
    Function faStandardize in namespace fungible has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 1.93
Check: data for non-ASCII characters
Result: NOTE
     Note: found 1 marked UTF-8 string
Flavors: r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-patched-solaris-x86, r-release-osx-x86_64, r-oldrel-osx-x86_64