e12 <- embed(mgls, 13)
tn <- e12[ , 1]
pn <- e12[ ,2:13]
msk <- integer(12)
msk[c(1,2,3,4,6,7,9)] <- 1 # select these columns
p <- select_by_mask(pn, msk)
gamma_test(predictors = p, target = tn)
msk <- int_to_intMask(15, 12) # pick out the first four columns
p <- select_by_mask(pn, msk)
gamma_test(predictors = p, target = tn)
Run the code above in your browser using DataLab