第一个select可以运行出来，但第二个select总是说“Error in select(newds1, i1, i2, female, drinkstat) : 参数没有用(i1, i2, female, drinkstat)”，不知为何。

options(digits = 3)
options(width = 72)
ds=read.csv("http://www.amherst.edu/~nhorton/r2/datasets/help.csv")
library(dplyr)
newds=select(ds, cesd, female, i1, i2, id, treat, f1a, f1b, f1c, f1d,
             f1e, f1f, f1g, f1h, f1i, f1j, f1k, f1l, f1m, f1n, f1o, f1p, f1q, f1r,
             f1s, f1t)
library(memisc)
newds=mutate(newds,drinkstat=
               cases(
                 "abstinent"=i1==0,
                 "moderate"=(i1>0&i1<=1&i2<=3&female==1)|
                   (i1>0&i1<=2&i2<=4&female==0),
                 "highrisk"=((i1>1|i2>3)&female==1)|
                   ((i1>2|i2>4)&female==0)
               ))
tmpds=select(newds,i1,i2,female,drinkstat)

可以尝试如下：

##因为系统无法辨别select这个函数属于哪个程序包

dplyr::select