私の線形モデルは、変数の性別、収入、口頭、ステータスに基づいてギャンブルの金額を予測しようとしています。性別は「男性」または「女性」の 2 値変数 (因子) であり、残りはすべて数値です。
lm3 <- lm(gamble ~ sex + status + income + verbal, data=teengamb)
それが私の線形モデルです。平均的な地位、収入、口頭で男性の機能を予測するのに苦労しています。
newdata <- c(as.factor("Male"), mean(teengamb$status), mean(teengamb$income), mean(teengamb$verbal))
newdata <- data.frame(newdata)
predict(lm3, newdata)
これを行う方法がわかりません。
男性と女性に変換する方法は次のとおりです。
ただし、0=男性、1=女性を「男性」と「女性」に変換しました。
teengamb$sex[teengamb$sex==0] <- "Male"
teengamb$sex[teengamb$sex==1] <- "Female"
teengamb$sex <- as.factor(teengamb$sex)