fork download
copy 
  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. data.test
  8. model<- lm("成績~血液+体重",data.test)
  9. summary(model)
  10. data.test<- data.frame(
  11. "名前"=c("E","F","G"),
  12. "血液型"=c("O","A","B"),
  13. "体重"=c(60,70,50)
  14. )
  15. predict(model,newdata=data.test)
Success #stdin #stdout #stderr 0.17s 176448KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
  名前 血液型 成績 体重
1    A      B   50   60
2    B      A   85   80
3    C      O   70   75
4    D     AB   45   40
5    E      A   90   61
stderr
copy 
Error in eval(expr, envir, enclos) : object '血液' not found
Calls: lm ... eval -> <Anonymous> -> model.frame.default -> eval -> eval
Execution halted
https://ideone.com/gRxG2T
language:
R (R 3.5.2)
created:
6 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!