powered by
glm.pcr(y, x, k, oiko = "binomial", xnew = NULL)
pcr, alfa.pcr, alfapcr.tune, glm
library(MASS) x<- iris[, 1:4] y<- rbinom(150, 1, 0.6) mod<- glm.pcr(y, x, k = 1, oiko = binomial)
Run the code above in your browser using DataLab