alfapcr.tune(y, x, M = 10, maxk = 50, a = seq(-1, 1, by = 0.1), oiko = "normal",
seed = FALSE, ncores = 2)alfa, profile, alfa.pcr, pcr.tune, glmpcr.tune, glmlibrary(MASS)
y <- fgl[, 1]
x <- fgl[, 2:9]
mod <- alfapcr.tune(y, x, M = 10, maxk = 50, a = seq(-1, 1, by = 0.1), oiko = "normal",
seed = FALSE, ncores = 1)Run the code above in your browser using DataLab