> f.e<-function(f,eps=1e-5){
+     s<-0;i<-0
+     repeat{
+         s<-s+f(i)
+         i<-i+1
+         if (f(i)<eps) break
+     }
+     return (c(s,i))
+ }
> f<-function(i) 1/factorial(i)
> f.e(f,1e-5)
[1] 2.718279 9.000000
> exp(1)
[1] 2.718282

零星的错误太多了(f的多次出现都非必要， 关键的错误在 "s <- s + f", 应改为"s <- s + 1/factorial(i)"）。直接给出我的函数供你参考，自己修改吧。

是什么东西 是PYTHON吗，我的网站http://www.nongyie.com就是用它操作的，

谢谢大神！还想问下为什么 写成s<-s+f的形式，运行代码后会出现“错误于f : 类别为'closure'的对象不可以取子集”这样一句话？f与f(i)的区别在哪里？