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

419595891

1 O+ B1 o* K$ h- J" u% W这是一篇文献里给出的script，但我放到S-plus里跑不出来，有错误，有可能是我不会用S-plus，所以请教大神下面的script是否有错，没有错的话怎么解决错误？能不能改动换到R里运行？
6 R+ [/ S+ }/ a
library(Design)                                                        
reri <- function(datsam)                                                        
; v/ b  j3 G, z7 I& W( J& y{                                                        
$ {( h5 X. ^  I2 N: c7 ffitlr <- glm(outcome ~ determinant A * determinant B, family=binomial, data=datsam)                                                        
2 |$ y# U% q0 d: |reri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1                                                        
0 V% ~3 H4 T% s4 c}                                                        
summary.bootstrap(bootstrap(dataset, reri(dataset), B=10000), probs=c(0.025,0.5, 0.975))                                             
) X0 b) T# t0 U
; k. x% b9 [# a% R& O4 I. k————————————我是分割线——————————————————————————————      

; }6 ]9 H, d$ A7 m- f$ j0 [0 n

8 d1 U$ v$ T; A library(Design)
> reri <- function(datsam)
4 T, U$ B* B, x( W/ L8 N+ {fitlr <- glm(DM.0813 ~ smoking * rs163184, famliy=binomial, data=datsam)
! \$ R: e7 ?, _; b+ 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
; G; J5 W; G. V* |$ o' O                (You probably wanted to return the left-hand side)
- R) c9 j. }0 p" Z         in: reri <- exp(fitlr$coef[2] + fitlr$coef[3] + fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1
( ]$ w" E0 Q, G/ D8 [! {> summary.bootstrap(bootstrap(smoking, reri(smoking), B=10000), probs=c(0.025,0.5, 0.975))                                               
0 R- z$ q  p! ^6 u1 n2 kWarning messages:
  Numerical expression has 7028 elements: only the first used in: model.frame(formula, data, na.action, dots)
Problem: Object "DM.0813" not found
Use traceback() to see the call stack
. I( l1 c! w/ |' X% x- }) ~

" Y7 k3 D' ~2 P. p, D$ K% |, ^' p* m$ O不明白这个错误什么意思，小白求指导……

$ @9 R4 y+ q) h# Y6 b  q