Предсказать linearRidge с фиктивной переменной

Question

Я пытаюсь сделать регрессию гребня, используя приведенные ниже коды с данными GenCont в библиотеке ridge

library(ridge)
data(GenCont)
GenCont_df <- as.data.frame(GenCont)
GenCont_df$SNP1 <- as.factor(GenCont_df$SNP1)
mod2 <- linearRidge(Phenotypes ~ SNP1+SNP2, data = GenCont_df)
predict(mod2, GenCont_df, na.action = na.pass, all.coef = FALSE,scaling ="scale")

Но если я использовал фиктивные переменные в модели, я получаю эту ошибку

Error in X[, ll] : subscript out of bounds

Есть ли способ предсказать фиктивные переменные в регрессии Риджа в R?