# NOT RUN {
sim$xd <- log(sim$xa * sim$xb)
s1 <- selectidsa(formula = y ~ xa + xb + xc + xd, data = sim,
location = c("lo", "la"),
ndisc = c(4,6,6,5), methoddisc = "quantile")
# }
Run the code above in your browser using DataLab