请教大神这个S-plus script是否正确？可以改动转换到R运行吗？

419595891

8 A* W0 m7 D# X  L" f# k
这是一篇文献里给出的script，但我放到S-plus里跑不出来，有错误，有可能是我不会用S-plus，所以请教大神下面的script是否有错，没有错的话怎么解决错误？能不能改动换到R里运行？
; S: O1 `6 B; H: P* F7 L$ I/ c$ m
7 r; a' m: a" J' u/ S8 c: vlibrary(Design)                                                        
reri <- function(datsam)                                                        
5 `" ~4 [# F: @. j& \{                                                        
fitlr <- glm(outcome ~ determinant A * determinant B, family=binomial, data=datsam)                                                        
1 {, E3 |: b/ Z# S* u6 L0 jreri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1                                                        
}                                                        
5 D# A, r$ Z+ H# x6 }summary.bootstrap(bootstrap(dataset, reri(dataset), B=10000), probs=c(0.025,0.5, 0.975))                                             

————————————我是分割线——————————————————————————————      


# {) T; R7 @' ?7 R
- D! I$ h) x! {) R library(Design)
> reri <- function(datsam)
3 p9 V3 R1 {3 |) y9 w9 T$ B+ m+ {fitlr <- glm(DM.0813 ~ smoking * rs163184, famliy=binomial, data=datsam)
+ reri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) -exp(fitlr$coef[3]) + 1}
    Last expression in function is an assignment
                (You probably wanted to return the left-hand side)
/ g5 J/ j' M% n         in: reri <- exp(fitlr$coef[2] + fitlr$coef[3] + fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1
> summary.bootstrap(bootstrap(smoking, reri(smoking), B=10000), probs=c(0.025,0.5, 0.975))                                               
! X6 J0 ^+ |+ WWarning messages:
  Numerical expression has 7028 elements: only the first used in: model.frame(formula, data, na.action, dots)
( {' v, B6 d2 A& N: \, @; R7 D0 RProblem: Object "DM.0813" not found
Use traceback() to see the call stack
0 T4 E9 E, w4 H1 p
' N7 y( R; g+ C
  o  C. }4 H0 r7 ]不明白这个错误什么意思，小白求指导……