>d<-lm.text$coef[1]
> d
(Intercept)
   3372.785
>f<-1/(1+2.7^-d)




我想算出的数应该是小数。。。但是总是给我个1，好像四舍五入了。。。