data.test<- data.frame(
"名前"=c("A","B","C","D","E"),
"血液型"=c("B","A","O","AB","A"),
"成績"=c(50,85,70,45,90),
"体重"=c(60,80,75,40,61)
)
model<- lm("成績~血液+体重",data.test)
summary(model)
data.test<- data.frame(
"名前"=c("E","F","G"),
"血液型"=c("O","A","B"),
"体重"=c(60,70,50)
)
predict(model,newdata=data.test)
ZGF0YS50ZXN0PC0gZGF0YS5mcmFtZSgKIuWQjeWJjSI9YygiQSIsIkIiLCJDIiwiRCIsIkUiKSwKIuihgOa2suWeiyI9YygiQiIsIkEiLCJPIiwiQUIiLCJBIiksCiLmiJDnuL4iPWMoNTAsODUsNzAsNDUsOTApLAoi5L2T6YeNIj1jKDYwLDgwLDc1LDQwLDYxKQopCm1vZGVsPC0gbG0oIuaIkOe4vn7ooYDmtrIr5L2T6YeNIixkYXRhLnRlc3QpCnN1bW1hcnkobW9kZWwpCmRhdGEudGVzdDwtIGRhdGEuZnJhbWUoCiLlkI3liY0iPWMoIkUiLCJGIiwiRyIpLAoi6KGA5ray5Z6LIj1jKCJPIiwiQSIsIkIiKSwKIuS9k+mHjSI9Yyg2MCw3MCw1MCkKKQpwcmVkaWN0KG1vZGVsLG5ld2RhdGE9ZGF0YS50ZXN0KQ==