plot.cvrisk x-axis tick labels

[Almond-S]

The x-axis ticks are not labeled correctly as the attributes of the cvrisk-object x are dropped

here:

mboost/R/crossvalidation.R

Line 107 in 47b008e

x <- x[, apply(x, 2, function(y) all(!is.na(y))), drop = FALSE]

as one can see for instance in this example:

library(mboost)
data <- data.frame( y = rep(0:1, each = 6),
                    x = rep(0:1, 6))
model <- mboost(y ~ bols(x), data = data, control = boost_control(mstop = 5) )
cross <- cvrisk(model, grid = 0:5)
plot(cross)

To fix it, one would only have to store
mstops <- attr(x, "mstop") in advance and replace it bellow in

mboost/R/crossvalidation.R

Line 118 in 47b008e

axis(1, at = 1:ncol(x), labels = attr(x, "mstop"))

[thothorn]

Thanks, fixed in 2.9-3