[R] error message + boot library

[Pedro Mardones]

Dear all;

What can be wrong with this simple example?

library(boot)
d1<-c(rnorm(10,mean=10))
fm<-function(d,i) mean(d[i])
bd1<-boot(d1,fm,10000)

> Error: evaluation nested too deeply: infinite recursion / options(expressions=)?

Thanks for any idea