fork download
  1. data.test<- data.frame(
  2. "名前"=c("A","B","C","D","E"),
  3. "血液型"=c("B","A","O","AB","A"),
  4. "成績"=c(50,85,70,45,90),
  5. "体重"=c(60,80,75,40,61)
  6. )
  7. model<- lm("成績~血液+体重",data.test)
  8. summary(model)
  9. data.test<- data.frame(
  10. "名前"=c("E","F","G"),
  11. "血液"=c("O","A","B"),
  12. "体重"=c(60,70,50)
  13. )
  14. predict(model,newdata=data.test)
Success #stdin #stdout #stderr 0.16s 176448KB
stdin
Standard input is empty
stdout
Standard output is empty
stderr
Error in eval(expr, envir, enclos) : object '血液' not found
Calls: lm ... eval -> <Anonymous> -> model.frame.default -> eval -> eval
Execution halted