R语言在输入语句之后为什么不显示结果呢？

使用事件分析法输入语句，但是在最后一步输入do_car之后不显示结果，请问是怎么回事呢？求大神解答！非常感谢！！

1. do_car <- function(n, r, rm, date) {
   
2. +     stopifnot(m1 > m2)
   
3. +     if (n - m1 < 0) {
   
4. +         cat("n =", n, "is too small \n")
   
5. +     } else if (n + c2 > length(r)) {
   
6. +         cat("n =", n, "is too large \n")
   
7. +     } else {
   
8. +         i1 <- max(1, n - m1)
   
9. +         i2 <- n - m2
   
10. +         i3 <- n - c1
    
11. +         i4 <- n + c2
    
12. +         r.model <- r[i1:i2]
    
13. +         rm.model <- rm[i1:i2]
    
14. +         r.car <- r[i3:i4]
    
15. +         rm.car <- rm[i3:i4]
    
16. +         model <- lm(r.model ~ I(r.model - rm.model))
    
17. +         coef <- coef(model)
    
18. +         ars <- r.car - predict(model, list(r.model = r.car, rm.model = rm.car))
    
19. +         list(date = date[n], coef = list(coef), ars = list(ars))
    
20. +     }
    
21. + }

复制代码

1. > do_car
   
2. function(n, r, rm, date) {
   
3.     stopifnot(m1 > m2)
   
4.     if (n - m1 < 0) {
   
5.         cat("n =", n, "is too small \n")
   
6.     } else if (n + c2 > length(r)) {
   
7.         cat("n =", n, "is too large \n")
   
8.     } else {
   
9.         i1 <- max(1, n - m1)
   
10.         i2 <- n - m2
    
11.         i3 <- n - c1
    
12.         i4 <- n + c2
    
13.         r.model <- r[i1:i2]
    
14.         rm.model <- rm[i1:i2]
    
15.         r.car <- r[i3:i4]
    
16.         rm.car <- rm[i3:i4]
    
17.         model <- lm(r.model ~ I(r.model - rm.model))
    
18.         coef <- coef(model)
    
19.         ars <- r.car - predict(model, list(r.model = r.car, rm.model = rm.car))
    
20.         list(date = date[n], coef = list(coef), ars = list(ars))
    
21.     }
    
22. }
    
23. > car
    
24. Error: object 'car' not found

复制代码

do_car要执行，而且要带参数执行，同时也要赋值给car变量。

cheetahfly 发表于 2019-12-16 20:28
do_car要执行，而且要带参数执行，同时也要赋值给car变量。

我是根据这个帖子做的，可否详细说一下这边car变量具体要怎么操作吗？非常感谢！！
https://mp.weixin.qq.com/s?__biz ... =21#wechat_redirect