Last updated on 2026-10-24 21:51:44 CEST.
| Flavor | Version | Tinstall | Tcheck | Ttotal | Status | Flags |
|---|---|---|---|---|---|---|
| r-devel-linux-x86_64-debian-clang | 6.1 | 33.97 | 172.58 | 206.55 | NOTE | |
| r-devel-linux-x86_64-debian-gcc | 6.1 | 21.12 | 112.61 | 133.73 | ERROR | |
| r-devel-linux-x86_64-fedora-clang | 6.1 | 22.00 | 143.86 | 165.86 | NOTE | |
| r-devel-linux-x86_64-fedora-gcc | 6.1 | 19.00 | 118.18 | 137.18 | NOTE | |
| r-devel-windows-x86_64 | 6.1 | 45.00 | 254.00 | 299.00 | NOTE | |
| r-patched-linux-x86_64 | 6.1 | 30.68 | 159.12 | 189.80 | OK | |
| r-release-linux-x86_64 | 6.1 | 25.33 | 158.49 | 183.82 | OK | |
| r-release-macos-arm64 | 6.1 | 10.00 | 39.00 | 49.00 | OK | |
| r-release-macos-x86_64 | 6.1 | 25.00 | 193.00 | 218.00 | OK | |
| r-release-windows-x86_64 | 6.1 | 47.00 | 186.00 | 233.00 | OK | |
| r-oldrel-macos-arm64 | 6.1 | OK | ||||
| r-oldrel-macos-x86_64 | 6.1 | 23.00 | 195.00 | 218.00 | OK | |
| r-oldrel-windows-x86_64 | 6.1 | 57.00 | 228.00 | 285.00 | OK |
Version: 6.1
Check: R code for possible problems
Result: NOTE
Found calls to structure() using deprecated special names:
quantreg/R/table.R (.Dim: 1, .Dimnames: 1)
'.Dim' should be changed to 'dim'.
'.Dimnames' should be changed to 'dimnames'.
Flavors: r-devel-linux-x86_64-debian-clang, r-devel-linux-x86_64-debian-gcc, r-devel-linux-x86_64-fedora-clang, r-devel-linux-x86_64-fedora-gcc, r-devel-windows-x86_64
Version: 6.1
Check: tests
Result: ERROR
Running ‘panel.R’ [2s/2s]
Running ‘rq.R’ [2s/2s]
Running ‘rq.fit.panel.R’ [0s/0s]
Running ‘run-demos.R’ [19s/24s]
Running the tests in ‘tests/run-demos.R’ failed.
Complete output:
> library(quantreg)
Loading required package: SparseM
>
> (dDIR <- system.file("demo", package = "quantreg"))
[1] "/home/hornik/tmp/R.check/r-devel-gcc/Work/build/Packages/quantreg/demo"
> set.seed(1) # since some demos randomly generate
>
> cat("Running demos from package 'quantreg' : \n\n")
Running demos from package 'quantreg' :
> for(ff in list.files(dDIR, pattern="\\.R$", full.names = TRUE)) {
+ f <- basename(ff)
+ cat("\n", f," :\n", paste(rep.int("-", nchar(f)), collapse=''),
+ "\n", sep='')
+
+ source(ff, echo = TRUE)
+ }
Frank.R :
-------
> vFrank <- function(x, df, delta, u) -log(1 - (1 -
+ exp(-delta))/(1 + exp(-delta * pt(x, df)) * ((1/u) - 1)))/delta
> FrankModel <- function(x, delta, mu, sigma, df, tau) {
+ z <- qt(vFrank(x, df, delta, u = tau), df)
+ mu + sigma * z
+ }
> n <- 200
> df <- 8
> delta <- 8
> set.seed(1989)
> x <- sort(rt(n, df))
> v <- vFrank(x, df, delta, u = runif(n))
> y <- qt(v, df)
> plot(x, y, pch = "o", col = "blue", cex = 0.25)
> Dat <- data.frame(x = x, y = y)
> us <- c(0.25, 0.5, 0.75)
> for (i in 1:length(us)) {
+ v <- vFrank(x, df, delta, u = us[i])
+ lines(x, qt(v, df))
+ }
> cfMat <- matrix(0, 3, length(us))
> trace <- TRUE
> trace <- FALSE
> for (i in 1:length(us)) {
+ tau <- us[i]
+ cat("tau = ", format(tau), ".. ")
+ fit <- nlrq(y ~ FrankModel(x, delta, mu, sigma, df = 8, t .... [TRUNCATED]
tau = 0.25 ..
tau = 0.5 ..
tau = 0.75 ..
> colnames(cfMat) <- names(coef(fit))
> cfMat
delta mu sigma
[1,] 14.92712 -0.20545449 0.9118086
[2,] 16.56893 0.03393525 0.9595252
[3,] 12.33546 0.12013386 0.9417362
KMvCRQ.R :
--------
> if (requireNamespace("survival", quietly = TRUE)) {
+ n <- 100
+ y <- rchisq(n, 3)
+ c <- rchisq(n, 5)
+ Y <- pmin(y, c)
+ d <- .... [TRUNCATED]
MCV.R :
-----
> MCV <- function(lambdas, formula, data, tau = 0.5,
+ k = 10) {
+ F <- Munge(formula, lambdas = lambdas)
+ f <- rqss(F, data, tau = tau) .... [TRUNCATED]
> set.seed(1729)
> n <- 200
> x <- sort(runif(n, 0, 20))
> g0 <- function(x, tau) log(x) + 0.2 * (log(x))^3 +
+ log(x) * qnorm(tau)/4
> y <- g0(x, runif(n))
> D <- data.frame(y = y, x = x)
> lams <- mcvs <- seq(0.02, 5, by = 0.2)
> for (i in 1:length(mcvs)) mcvs[i] <- MCV(lams[i],
+ y ~ qss(x, lambda = lambdas[1]), D)
> par(mfrow = c(1, 2))
> plot(lams, mcvs, cex = 0.5, lwd = 2, type = "l", xlab = expression(lambda),
+ ylab = expression(MCV(lambda)))
> lambdastar <- lams[which.min(mcvs)]
> plot(x, y, cex = 0.5, col = "grey")
> f <- rqss(y ~ qss(x, lambda = lambdastar), data = D)
> plot(f, add = TRUE, lwd = 2)
> lines(x, g0(x, 0.5), col = "red", lwd = 2)
> text(10, 1, bquote(lambda == ~.(lambdastar)))
Mammals.R :
---------
> require(quantreg)
> data(Mammals)
> attach(Mammals)
> x <- log(weight)
> xx <- unique(x[order(x)])
> y <- log(speed)
> plot(x, y, xlab = "Weight in log(Kg)", ylab = "Speed in log(Km/hour)",
+ type = "n")
> points(x[hoppers], y[hoppers], pch = "h", col = "red")
> points(x[specials], y[specials], pch = "s", col = "blue")
> others <- (!hoppers & !specials)
> points(x[others], y[others], col = "black", cex = 0.75)
> taus <- c(0.5, 0.9)
> for (i in 1:length(taus)) {
+ fit <- rqss(y ~ qss(x, lambda = 1, constraint = "C"), tau = taus[i])
+ plot(fit, title = "Running Speed of Mam ..." ... [TRUNCATED]
> legend(4, 2, c("Median", "0.9 Quantile"), lty = 1,
+ col = 1:2, lwd = 1.5)
> plot(fit, title = "Running Speed of Mammals", band = "both",
+ col = i, lwd = 1.5)
> xy <- fit$qss[[1]]$xyz
> xx <- xy[, 1]
> yhat <- fit$coef[1] + xy[, 2]
> g <- diff(yhat)/diff(xx)
> plot(xx[-1], g, main = "Fitted Slopes of Running Speed",
+ xlab = "Weight in log(Kg)", ylab = "dlog(Speed) /dlog(Weight)")
Mel.R :
-----
> require(splines)
Loading required package: splines
> if (interactive()) {
+ oldpar <- par(ask = TRUE)
+ data(MelTemp)
+ x <- MelTemp[-3650]
+ y <- MelTemp[-1]
+ s <- (x < 40)
+ .... [TRUNCATED]
Mel2.R :
------
> require(splines)
> if (interactive()) {
+ oldpar <- par(ask = TRUE)
+ data(MelTemp)
+ x <- MelTemp[-3650]
+ y <- MelTemp[-1]
+ s <- (x < 40)
+ .... [TRUNCATED]
Panel.R :
-------
> library(quantreg)
> rq.fit.panel <- function(X, y, s, w = c(1/3, 1/3,
+ 1/3), taus = c(0.25, 0.5, 0.75), lambda = 0) {
+ require(SparseM)
+ require(quantre .... [TRUNCATED]
> n <- 3
> T <- 50
> nT <- n * T
> u1 <- rnorm(T)
> u2 <- rnorm(T)
> u3 <- rnorm(T)
> x1 <- rnorm(T, 1, 0.85)
> x2 <- rnorm(T, 4, 1)
> x3 <- rnorm(T, 7, 1)
> beta1 <- 1
> beta2 <- 0.5
> y1 <- 0 + beta1 * x1 + (beta2 * x1) * u1
> y2 <- 4 + beta1 * x2 + (beta2 * x2) * u2
> y3 <- 8 + beta1 * x3 + (beta2 * x3) * u3
> plot(c(0, 9), c(0, 25), type = "n", xlab = expression(x[it]),
+ ylab = expression(y[it]))
> points(x1, y1, pch = 15)
> points(x2, y2, pch = 15, col = "blue")
> points(x3, y3, pch = 15, col = "red")
> legend(1, 17, paste("i = ", 1:3, sep = ""), pch = 15,
+ col = c("black", "blue", "red"))
> ya <- c(y1, y2, y3)
> xa <- c(x1, x2, x3)
> taus <- c(0.25, 0.5, 0.75)
> xx <- seq(min(xa), max(xa), 0.25)
> f <- coef(rq(ya ~ xa, tau = taus))
> yy <- cbind(1, xx) %*% f
> for (i in 1:3) lines(xx, yy[, i], col = "grey")
> s <- rep(1:n, rep(T, n))
> fp <- rq.fit.panel(xa, ya, s)$coef
> bhat <- fp[1:3]
> fehat <- fp[4:6]
> xx1 <- seq(min(x1), max(x1), 0.25)
> for (i in 1:3) {
+ yy1 <- fehat[1] + bhat[i] * xx1
+ lines(xx1, yy1, col = "black")
+ }
> xx2 <- seq(min(x2), max(x2), 0.25)
> for (i in 1:3) {
+ yy2 <- fehat[2] + bhat[i] * xx2
+ lines(xx2, yy2, col = "blue")
+ }
> xx3 <- seq(min(x3), max(x3), 0.25)
> for (i in 1:3) {
+ yy3 <- fehat[3] + bhat[i] * xx3
+ lines(xx3, yy3, col = "red")
+ }
Polson.R :
--------
> dgp <- function(n) {
+ x <- 0:n/n
+ y <- rnorm(n + 1, 5 * sin(2 * pi * x), 0.5 + exp(1.5 * sin(4 *
+ pi * x)))
+ data.frame(x = .... [TRUNCATED]
> D <- dgp(1000)
> plot(D$x, D$y, cex = 0.5)
> taus <- 1:9/10
> for (i in 1:length(taus)) plot(rqss(y ~ qss(x, lambda = 1/10),
+ tau = taus[i], data = D), rug = FALSE, add = TRUE)
RB-r.R :
------
> if (require(MASS)) {
+ require(quantreg)
+ X <- cbind(1, matrix(rnorm(500), 100, 5))
+ y <- rnorm(100)
+ R <- matrix(rnorm(18), 3, 6 .... [TRUNCATED]
Loading required package: MASS
arqss.R :
-------
> n <- 2000
> x <- 1:n/n
> noise <- rgamma(n, 3, 1)
> g0 <- function(x) sin(10 * x)
> y <- g0(x) + noise
> arqss <- function(x, y, tau, g0 = NULL) {
+ g <- function(lam, y, x, tau) AIC(rqss(y ~ qss(x, lambda = lam),
+ tau = tau), k = -1)
+ .... [TRUNCATED]
> arqss(x, y, 0.5, g0)
cobar.R :
-------
> require(quantreg)
> if (requireNamespace("interp")) {
+ do.rgl <- interactive() && require(rgl)
+ data(CobarOre)
+ fit <- rqss(z ~ qss(cbind(x, y), lambda = .... [TRUNCATED]
Loading required namespace: interp
combos.R :
--------
> H <- combos(20, 3)
> if (!require("rgl", quietly = TRUE)) {
+ warning("The package rgl is needed for plotting")
+ } else {
+ if (interactive()) {
+ plot3 .... [TRUNCATED]
cpoint.R :
--------
> x <- runif(200, 0, 10)
> u <- rnorm(200)/5
> y <- 1 + x - 0.5 * (x - 3) * (x > 3) + u
> plot(y ~ x, cex = 0.5, col = "grey")
> z <- rqss(y ~ qss(x, lambda = 10), tau = 0.5)
> plot(z, col = "dark blue")
> eps <- 1e-05
> Nz <- abs(z$resid[1:200]) < eps
> Nj <- abs(z$resid[201:398]) > eps
> xx <- z$qss[[1]]$xyz[, 1]
> yy <- z$coef[1] + z$qss[[1]]$xyz[, 2]
> xj <- xx[3:200]
> yj <- yy[3:200]
> points(xx[Nz], yy[Nz], col = "green")
> points(xj[Nj], yj[Nj], col = "red")
> print(paste("Number of zero residuals: ", sum(Nz)))
[1] "Number of zero residuals: 4"
> print(paste("Number of jumps in slope: ", sum(Nj)))
[1] "Number of jumps in slope: 2"
> legend(6, 3, c("Derivative Jumps", "Zero residuals"),
+ pch = "o", col = c("red", "green"))
crquis.R :
--------
> if (requireNamespace("survival", quietly = TRUE)) {
+ data(uis)
+ Surv <- survival::Surv
+ fit <- crq(Surv(log(TIME), CENSOR) ~ ND1 + ND .... [TRUNCATED]
Error in a$specials[[i]] : subscript out of bounds
Calls: source ... survfit.coxph -> model.matrix.coxph -> delete.response -> off
In addition: Warning message:
In summary.rq(x, se = se, R = R, covariance = TRUE) : 5 non-positive fis
Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc