Last updated on 2020-02-19 10:49:00 CET.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 1.0 | 11.57 | 93.14 | 104.71 | ERROR | |
| r-devel-linux-x86_64-debian-gcc | 1.0 | 9.59 | 70.21 | 79.80 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 1.0 | 123.15 | ERROR | |||
| r-devel-linux-x86_64-fedora-gcc | 1.0 | 125.86 | ERROR | |||
| r-devel-windows-ix86+x86_64 | 1.0 | 22.00 | 94.00 | 116.00 | OK | |
| r-devel-windows-ix86+x86_64-gcc8 | 1.0 | 37.00 | 133.00 | 170.00 | OK | |
| r-patched-linux-x86_64 | 1.0 | 8.06 | 77.98 | 86.04 | OK | |
| r-patched-solaris-x86 | 1.0 | 170.50 | OK | |||
| r-release-linux-x86_64 | 1.0 | 10.12 | 78.28 | 88.40 | OK | |
| r-release-windows-ix86+x86_64 | 1.0 | 25.00 | 87.00 | 112.00 | OK | |
| r-release-osx-x86_64 | 1.0 | OK | ||||
| r-oldrel-windows-ix86+x86_64 | 1.0 | 14.00 | 89.00 | 103.00 | OK | |
| r-oldrel-osx-x86_64 | 1.0 | OK |
Version: 1.0
Check: examples
Result: ERROR
Running examples in 'Mqrcm-Ex.R' failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Mqrcm-package
> ### Title: M-Quantile Regression Coefficients Modeling
> ### Aliases: Mqrcm-package
> ### Keywords: package
>
> ### ** Examples
>
>
> # use simulated data
>
> n <- 250
> x <- rexp(n)
> y <- runif(n, 0, 1 + x)
> model <- iMqr(y ~ x, formula.p = ~ p + I(p^2))
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
Mqrcm
--- call from context ---
iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
--- call from argument ---
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
} else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
--- R stacktrace ---
where 1: iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
where 2: iMqr.internal(mf = mf, cl = cl, formula.p = formula.p, tol = tol,
maxit = maxit, s = s, psi = psi, plim = plim)
where 3: iMqr(y ~ x, formula.p = ~p + I(p^2))
--- value of length: 2 type: logical ---
[1] TRUE TRUE
--- function from context ---
function (theta, y, X, Xw, weights, bfun, psi, s, sigma, tol,
maxit, safeit, eps0)
{
q <- nrow(theta)
k <- ncol(theta)
s <- c(s == 1)
LL <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma)
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
conv <- FALSE
eps <- eps0
for (i in 1:safeit) {
if (conv | max(abs(g)) < tol) {
break
}
u <- rep.int(0, q * k)
u[s] <- g
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
eps <- min(eps * 2, 0.1)
}
alg <- "nr"
conv <- FALSE
eps <- 0.1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
for (i in 1:maxit) {
if (conv | max(abs(g)) < tol) {
break
}
H1 <- try(chol(h), silent = TRUE)
err <- (class(H1) == "try-error")
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
}
else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
u <- rep.int(0, q * k)
u[s] <- delta
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
L <- LL$L
if (i > 1) {
eps <- min(eps * 10, 1)
}
else {
eps <- min(eps * 10, 0.1)
}
}
list(theta = matrix(theta, q, k), LL = LL, L = L, g = g,
h = h, n.it = i, converged = (i < maxit), fullrank = (alg ==
"nr"))
}
<bytecode: 0x3f0e1d0>
<environment: namespace:Mqrcm>
--- function search by body ---
Function iMqr.newton in namespace Mqrcm has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!err) { : the condition has length > 1
Calls: iMqr -> iMqr.internal -> iMqr.newton
Execution halted
Flavor: r-devel-linux-x86_64-debian-clang
Version: 1.0
Check: examples
Result: ERROR
Running examples in ‘Mqrcm-Ex.R’ failed
The error most likely occurred in:
> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Mqrcm-package
> ### Title: M-Quantile Regression Coefficients Modeling
> ### Aliases: Mqrcm-package
> ### Keywords: package
>
> ### ** Examples
>
>
> # use simulated data
>
> n <- 250
> x <- rexp(n)
> y <- runif(n, 0, 1 + x)
> model <- iMqr(y ~ x, formula.p = ~ p + I(p^2))
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
Mqrcm
--- call from context ---
iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
--- call from argument ---
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
} else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
--- R stacktrace ---
where 1: iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
where 2: iMqr.internal(mf = mf, cl = cl, formula.p = formula.p, tol = tol,
maxit = maxit, s = s, psi = psi, plim = plim)
where 3: iMqr(y ~ x, formula.p = ~p + I(p^2))
--- value of length: 2 type: logical ---
[1] TRUE TRUE
--- function from context ---
function (theta, y, X, Xw, weights, bfun, psi, s, sigma, tol,
maxit, safeit, eps0)
{
q <- nrow(theta)
k <- ncol(theta)
s <- c(s == 1)
LL <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma)
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
conv <- FALSE
eps <- eps0
for (i in 1:safeit) {
if (conv | max(abs(g)) < tol) {
break
}
u <- rep.int(0, q * k)
u[s] <- g
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
eps <- min(eps * 2, 0.1)
}
alg <- "nr"
conv <- FALSE
eps <- 0.1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
for (i in 1:maxit) {
if (conv | max(abs(g)) < tol) {
break
}
H1 <- try(chol(h), silent = TRUE)
err <- (class(H1) == "try-error")
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
}
else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
u <- rep.int(0, q * k)
u[s] <- delta
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
L <- LL$L
if (i > 1) {
eps <- min(eps * 10, 1)
}
else {
eps <- min(eps * 10, 0.1)
}
}
list(theta = matrix(theta, q, k), LL = LL, L = L, g = g,
h = h, n.it = i, converged = (i < maxit), fullrank = (alg ==
"nr"))
}
<bytecode: 0x55e1165961f8>
<environment: namespace:Mqrcm>
--- function search by body ---
Function iMqr.newton in namespace Mqrcm has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!err) { : the condition has length > 1
Calls: iMqr -> iMqr.internal -> iMqr.newton
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc
Version: 1.0
Check: examples
Result: ERROR
Running examples in ‘Mqrcm-Ex.R’ failed
The error most likely occurred in:
> ### Name: Mqrcm-package
> ### Title: M-Quantile Regression Coefficients Modeling
> ### Aliases: Mqrcm-package
> ### Keywords: package
>
> ### ** Examples
>
>
> # use simulated data
>
> n <- 250
> x <- rexp(n)
> y <- runif(n, 0, 1 + x)
> model <- iMqr(y ~ x, formula.p = ~ p + I(p^2))
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
Mqrcm
--- call from context ---
iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
--- call from argument ---
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
} else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
--- R stacktrace ---
where 1: iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
where 2: iMqr.internal(mf = mf, cl = cl, formula.p = formula.p, tol = tol,
maxit = maxit, s = s, psi = psi, plim = plim)
where 3: iMqr(y ~ x, formula.p = ~p + I(p^2))
--- value of length: 2 type: logical ---
[1] TRUE TRUE
--- function from context ---
function (theta, y, X, Xw, weights, bfun, psi, s, sigma, tol,
maxit, safeit, eps0)
{
q <- nrow(theta)
k <- ncol(theta)
s <- c(s == 1)
LL <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma)
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
conv <- FALSE
eps <- eps0
for (i in 1:safeit) {
if (conv | max(abs(g)) < tol) {
break
}
u <- rep.int(0, q * k)
u[s] <- g
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
eps <- min(eps * 2, 0.1)
}
alg <- "nr"
conv <- FALSE
eps <- 0.1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
for (i in 1:maxit) {
if (conv | max(abs(g)) < tol) {
break
}
H1 <- try(chol(h), silent = TRUE)
err <- (class(H1) == "try-error")
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
}
else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
u <- rep.int(0, q * k)
u[s] <- delta
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
L <- LL$L
if (i > 1) {
eps <- min(eps * 10, 1)
}
else {
eps <- min(eps * 10, 0.1)
}
}
list(theta = matrix(theta, q, k), LL = LL, L = L, g = g,
h = h, n.it = i, converged = (i < maxit), fullrank = (alg ==
"nr"))
}
<bytecode: 0x503cf70>
<environment: namespace:Mqrcm>
--- function search by body ---
Function iMqr.newton in namespace Mqrcm has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!err) { : the condition has length > 1
Calls: iMqr -> iMqr.internal -> iMqr.newton
Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang
Version: 1.0
Check: examples
Result: ERROR
Running examples in ‘Mqrcm-Ex.R’ failed
The error most likely occurred in:
> ### Name: Mqrcm-package
> ### Title: M-Quantile Regression Coefficients Modeling
> ### Aliases: Mqrcm-package
> ### Keywords: package
>
> ### ** Examples
>
>
> # use simulated data
>
> n <- 250
> x <- rexp(n)
> y <- runif(n, 0, 1 + x)
> model <- iMqr(y ~ x, formula.p = ~ p + I(p^2))
----------- FAILURE REPORT --------------
--- failure: the condition has length > 1 ---
--- srcref ---
:
--- package (from environment) ---
Mqrcm
--- call from context ---
iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
--- call from argument ---
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
} else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
--- R stacktrace ---
where 1: iMqr.newton(theta, V$y, V$X, V$Xw, V$weights, bfun, psi, s, sigma,
tol = tol, maxit = maxit, safeit = 2 + sum(s) * (i < 3),
eps0 = 0.1)
where 2: iMqr.internal(mf = mf, cl = cl, formula.p = formula.p, tol = tol,
maxit = maxit, s = s, psi = psi, plim = plim)
where 3: iMqr(y ~ x, formula.p = ~p + I(p^2))
--- value of length: 2 type: logical ---
[1] TRUE TRUE
--- function from context ---
function (theta, y, X, Xw, weights, bfun, psi, s, sigma, tol,
maxit, safeit, eps0)
{
q <- nrow(theta)
k <- ncol(theta)
s <- c(s == 1)
LL <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma)
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
conv <- FALSE
eps <- eps0
for (i in 1:safeit) {
if (conv | max(abs(g)) < tol) {
break
}
u <- rep.int(0, q * k)
u[s] <- g
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u)
g <- G[s]
L <- LL$L
eps <- min(eps * 2, 0.1)
}
alg <- "nr"
conv <- FALSE
eps <- 0.1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
for (i in 1:maxit) {
if (conv | max(abs(g)) < tol) {
break
}
H1 <- try(chol(h), silent = TRUE)
err <- (class(H1) == "try-error")
if (!err) {
if (alg == "gs") {
alg <- "nr"
eps <- 1
}
delta <- chol2inv(H1) %*% g
}
else {
if (alg == "nr") {
alg <- "gs"
eps <- 1
}
delta <- g
}
u <- rep.int(0, q * k)
u[s] <- delta
delta <- matrix(u, q, k)
delta[is.na(delta)] <- 0
cond <- FALSE
while (!cond) {
new.theta <- theta - delta * eps
if (max(abs(delta * eps)) < tol) {
conv <- TRUE
break
}
LL1 <- iobjfun(new.theta, y, X, Xw, weights, bfun,
psi, sigma)
cond <- (LL1$L < L)
eps <- eps * 0.5
}
if (conv) {
break
}
theta <- new.theta
LL <- LL1
G <- iobjfun(theta, y, X, Xw, weights, bfun, psi, sigma,
LL$u, H = TRUE)
g <- G$G[s]
h <- G$H[s, s, drop = FALSE]
L <- LL$L
if (i > 1) {
eps <- min(eps * 10, 1)
}
else {
eps <- min(eps * 10, 0.1)
}
}
list(theta = matrix(theta, q, k), LL = LL, L = L, g = g,
h = h, n.it = i, converged = (i < maxit), fullrank = (alg ==
"nr"))
}
<bytecode: 0x30a3b28>
<environment: namespace:Mqrcm>
--- function search by body ---
Function iMqr.newton in namespace Mqrcm has this body.
----------- END OF FAILURE REPORT --------------
Error in if (!err) { : the condition has length > 1
Calls: iMqr -> iMqr.internal -> iMqr.newton
Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc