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 |
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