# NOT RUN {
library(ElemStatLearn)
data(phoneme)
x.train <- matrix(NA, nrow=4509, ncol=257)
dimnames(x.train)[[2]] <- c(paste0('x.', 1:256), 'speaker')
x.train[ , 257] <- as.numeric(phoneme$speaker)
for(j in 1:256) x.train[ , j] <- as.numeric(phoneme[ , paste0('x.', j)])
gse <- mc.wbart.gse(x.train, as.numeric(phoneme$g), mc.cores=5, seed=99)
## important variables
dimnames(x.train)[[2]][gse$which]
# }
Run the code above in your browser using DataLab