CRAN Package Check Results for Package tolerance

Last updated on 2019-12-06 00:50:16 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 1.3.0 11.48 74.05 85.53 ERROR
r-devel-linux-x86_64-debian-gcc 1.3.0 10.46 70.26 80.72 OK
r-devel-linux-x86_64-fedora-clang 1.3.0 124.30 OK
r-devel-linux-x86_64-fedora-gcc 1.3.0 119.91 OK
r-devel-windows-ix86+x86_64 1.3.0 22.00 144.00 166.00 OK
r-devel-windows-ix86+x86_64-gcc8 1.3.0 34.00 116.00 150.00 OK
r-patched-linux-x86_64 1.3.0 8.97 83.36 92.33 OK
r-patched-solaris-x86 1.3.0 160.50 OK
r-release-linux-x86_64 1.3.0 9.81 84.09 93.90 OK
r-release-windows-ix86+x86_64 1.3.0 18.00 99.00 117.00 OK
r-release-osx-x86_64 1.3.0 WARN
r-oldrel-windows-ix86+x86_64 1.3.0 15.00 137.00 152.00 OK
r-oldrel-osx-x86_64 1.3.0 OK

Check Details

Version: 1.3.0
Check: examples
Result: ERROR
    Running examples in 'tolerance-Ex.R' failed
    The error most likely occurred in:
    
    > base::assign(".ptime", proc.time(), pos = "CheckExEnv")
    > ### Name: mvregtol.region
    > ### Title: Multivariate (Multiple) Linear Regression Tolerance Regions
    > ### Aliases: mvregtol.region
    > ### Keywords: file
    >
    > ### ** Examples
    >
    > ## 95%/95% multivariate regression tolerance factors using
    > ## a fertilizer data set presented in Anderson (2003, p. 374).
    >
    > grain <- c(40, 17, 9, 15, 6, 12, 5, 9)
    > straw <- c(53, 19, 10, 29, 13, 27, 19, 30)
    > fert <- c(24, 11, 5, 12, 7, 14, 11, 18)
    > Y <- cbind(grain, straw)
    > X <- cbind(fert)
    > new.x <- c(10, 15, 20)
    >
    > set.seed(100)
    > out <- mvregtol.region(Y, X, new.x, int = TRUE, alpha = 0.05,
    + P = 0.95, B = 5000)
     ----------- FAILURE REPORT --------------
     --- failure: the condition has length > 1 ---
     --- srcref ---
    :
     --- package (from environment) ---
    tolerance
     --- call from context ---
    mvregtol.region(Y, X, new.x, int = TRUE, alpha = 0.05, P = 0.95,
     B = 5000)
     --- call from argument ---
    if (class(A) == "try-error") stop(paste("The design matrix is not of full rank!",
     "\n"))
     --- R stacktrace ---
    where 1: mvregtol.region(Y, X, new.x, int = TRUE, alpha = 0.05, P = 0.95,
     B = 5000)
    
     --- value of length: 2 type: logical ---
    [1] FALSE FALSE
     --- function from context ---
    function (y, x, new.x = NULL, int = TRUE, alpha = 0.05, P = 0.99,
     B = 1000)
    {
     temp.x <- colnames(x)
     temp.y <- colnames(y)
     x <- as.matrix(x)
     q <- ncol(y)
     n <- nrow(y)
     m <- ncol(x)
     new.x <- matrix(new.x, ncol = m)
     f.m <- n - m - 1
     P.n <- matrix(1, n, n)
     P.n <- diag(1, n) - (P.n/n)
     x.all <- rbind(x, new.x)
     N <- nrow(x.all)
     x.bar <- apply(x, 2, mean)
     A <- try(solve(t(x) %*% P.n %*% x), silent = TRUE)
     if (class(A) == "try-error")
     stop(paste("The design matrix is not of full rank!",
     "\n"))
     if (int) {
     X <- cbind(1, x)
     X.all <- cbind(1, x.all)
     }
     else {
     X <- x
     X.all <- x.all
     }
     B.hat <- solve(t(X) %*% X) %*% t(X) %*% y
     y.hat <- X.all %*% B.hat
     d.2 <- (1/n) + sapply(1:N, function(i) rbind(x.all[i, ] -
     x.bar) %*% A %*% cbind(x.all[i, ] - x.bar))
     H.2 <- lapply(1:B, function(i) matrix(rchisq(N * q, df = 1),
     ncol = q) * d.2)
     L <- t(sapply(1:B, function(i) eigen(rwishart(f.m, q))$values))
     c1 <- sapply(1:B, function(i) apply((1 + H.2[[i]]^2)/L[[i]],
     1, sum))
     c2 <- sapply(1:B, function(i) apply((1 + 2 * (H.2[[i]])^2)/(L[[i]])^2,
     1, sum))
     c3 <- sapply(1:B, function(i) apply((1 + 3 * (H.2[[i]])^2)/(L[[i]])^3,
     1, sum))
     a <- (c2^3)/(c3^2)
     T.all <- lapply(1:N, function(i) f.m * ((sqrt(c2[i, ])/a[i,
     ]) * (qchisq(P, a[i, ]) - a[i, ]) + c1[i, ]))
     k <- sapply(T.all, quantile, 1 - alpha)
     cat("These are ", (1 - alpha) * 100, "%/", P * 100, "% tolerance factors.",
     sep = "", fill = TRUE)
     tol <- cbind(k, data.frame(y.hat), data.frame(x.all))
     if (is.null(temp.x))
     temp.x <- paste("x", 1:m, sep = "")
     if (is.null(temp.y)) {
     temp.y <- paste("y", 1:q, ".hat", sep = "")
     }
     else temp.y <- paste(temp.y, ".hat", sep = "")
     tol.col <- c("k.factor", temp.y, temp.x)
     colnames(tol) <- tol.col
     tol
    }
    <bytecode: 0x43ccd58>
    <environment: namespace:tolerance>
     --- function search by body ---
    Function mvregtol.region in namespace tolerance has this body.
     ----------- END OF FAILURE REPORT --------------
    Fatal error: the condition has length > 1
Flavor: r-devel-linux-x86_64-debian-clang

Version: 1.3.0
Check: whether package can be installed
Result: WARN
    Found the following significant warnings:
     Warning: 'rgl_init' failed, running with rgl.useNULL = TRUE
Flavor: r-release-osx-x86_64