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

419595891

2 P2 O1 b/ H- e+ B2 _9 O. n
6 Z  _' K/ s9 I7 n- m% f2 J5 k; k这是一篇文献里给出的script，但我放到S-plus里跑不出来，有错误，有可能是我不会用S-plus，所以请教大神下面的script是否有错，没有错的话怎么解决错误？能不能改动换到R里运行？

library(Design)                                                        
reri <- function(datsam)                                                        
% p5 G% d5 C% N1 S* T; z{                                                        
fitlr <- glm(outcome ~ determinant A * determinant B, family=binomial, data=datsam)                                                        
1 ]4 x' d& j' I1 Ireri <- exp(fitlr$coef[2]+fitlr$coef[3]+fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1                                                        
9 a6 d0 l+ T! p}                                                        
summary.bootstrap(bootstrap(dataset, reri(dataset), B=10000), probs=c(0.025,0.5, 0.975))                                             
9 P2 Z1 E0 N" z7 j" V$ Q
————————————我是分割线——————————————————————————————      
5 i" z4 _- R9 x
# X& _$ }+ [4 `4 d# F0 @
( q9 P8 d1 q7 H9 Q$ F# T+ O
library(Design)
> reri <- function(datsam)
+ {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}
- B% Z  {5 _. U; \    Last expression in function is an assignment
                (You probably wanted to return the left-hand side)
- x0 D# \2 E# n3 y( {         in: reri <- exp(fitlr$coef[2] + fitlr$coef[3] + fitlr$coef[4]) - exp(fitlr$coef[2]) - exp(fitlr$coef[3]) + 1
4 V* [9 l/ v6 N1 p4 J" b> summary.bootstrap(bootstrap(smoking, reri(smoking), B=10000), probs=c(0.025,0.5, 0.975))                                               
Warning messages:
. u* A. b5 c( T3 q  b6 m  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
) ~7 n8 t- V. _1 y
4 L' F+ Z- T; `
不明白这个错误什么意思，小白求指导……