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

419595891

这是一篇文献里给出的script，但我放到S-plus里跑不出来，有错误，有可能是我不会用S-plus，所以请教大神下面的script是否有错，没有错的话怎么解决错误？能不能改动换到R里运行？
3 k3 i+ U, d2 I( v9 g" {
  T; S  {- j% G# v. G1 z7 ilibrary(Design)                                                        
9 \' S! }: _: o- f  K# ?+ treri <- function(datsam)                                                        
{                                                        
fitlr <- glm(outcome ~ determinant A * determinant B, family=binomial, data=datsam)                                                        
6 M& A- `# ?& y& m$ \0 ]reri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1                                                        
$ N  F' W6 W0 t}                                                        
summary.bootstrap(bootstrap(dataset, reri(dataset), B=10000), probs=c(0.025,0.5, 0.975))                                             

9 \5 k" }4 m4 H————————————我是分割线——————————————————————————————      
* Q, a1 z2 o. A- H
; W( f, B, ]$ L* I" P& W

library(Design)
> reri <- function(datsam)
1 H" s- X1 |* {4 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}
9 ]- g0 `& e7 ]    Last expression in function is an assignment
+ ?8 f3 x& n9 r1 D9 b* c' _                (You probably wanted to return the left-hand side)
         in: reri <- exp(fitlr$coef[2] + fitlr$coef[3] + fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1
4 j0 i$ B# q0 B3 t( P> summary.bootstrap(bootstrap(smoking, reri(smoking), B=10000), probs=c(0.025,0.5, 0.975))                                               
1 S' @3 [9 _2 tWarning messages:
  Numerical expression has 7028 elements: only the first used in: model.frame(formula, data, na.action, dots)
0 p% }' Z- I% S# B# H* [0 RProblem: Object "DM.0813" not found
+ n/ W( p$ `  w& p5 tUse traceback() to see the call stack

. O4 Y. S, e9 q/ |
不明白这个错误什么意思，小白求指导……

: s7 r( N' z& d7 y% G3 [7 C. e