alfareg.tune(y, x, a = seq(0.1, 1, by = 0.1), K = 10, nc = 2, graph = TRUE)alfa, alfa.reglibrary(MASS)
y <- fgl[1:30, 2:4]
x <- fgl[1:30, 1]
mod <- alfareg.tune(y, x, a = seq(0.2, 0.3), K = 5, nc = 1)Run the code above in your browser using DataLab