# NOT RUN {
if(interactive()){
library(penaltyLearning)
data("neuroblastomaProcessed", package="penaltyLearning", envir=environment())
i.train <- 1:500
fit <- with(neuroblastomaProcessed, IntervalRegressionRegularized(
feature.mat[i.train,], target.mat[i.train,]))
plot(fit)
}
# }
Run the code above in your browser using DataLab