glmpcr.tune(y, x, M = 10, maxk = 10,
mat = NULL, ncores = 1, graph = TRUE)alfapcr.tune.pcr.tune, glm.pcr, alfa.pcr, alfapcr.tunelibrary(MASS)
x <- fgl[, 2:9]
y <- rpois(214, 10)
glmpcr.tune(y, x, M=10, maxk = 20, mat = NULL, ncores = 1)Run the code above in your browser using DataLab