r - ダミー変数を使用して線形リッジを予測する

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のリッジ回帰でダミー変数を予測する方法はありますか?