如何通过yvar传递can

1. can <- c(rep(1, times = 231), rep(0, times = 178), rep(1, times = 11),rep(0, times = 38))
   
2. smk <- c(rep(1, times = 225), rep(0, times = 6), rep(1, times = 166),
   
3.          rep(0, times = 12), rep(1, times = 8), rep(0, times = 3), rep(1, times = 18),
   
4.          rep(0, times = 20))
   
5. alc <- c(rep(1, times = 409), rep(0, times = 49))
   
6. dat <- as.data.frame(cbind(alc, smk, can))
   
7. 
   
8. aaa<-function(yvar,data) {
   
9.    bbb1 <- data.frame(ftable(xtabs(~ smk + alc + can,data=data)))
   
10.    print(bbb1)
    
11.    bbb2<-subset(bbb1,yvar==1,select=c(1,2,4))
    
12.    print(bbb2)
    
13. }
    
14. aaa(yvar=can,data=dat)

复制代码

如何通过yvar传递can，想得到的结果为
  smk alc Freq
   0   0    3
   1   0    8
   0   1    6
   1   1  225
谢谢！

can <- c(rep(1, times = 231), rep(0, times = 178), rep(1, times = 11),rep(0, times = 38))
smk <- c(rep(1, times = 225), rep(0, times = 6), rep(1, times = 166),
         rep(0, times = 12), rep(1, times = 8), rep(0, times = 3), rep(1, times = 18),
         rep(0, times = 20))
alc <- c(rep(1, times = 409), rep(0, times = 49))
dat <- as.data.frame(cbind(alc, smk, can))

aaa<-function(yvar,data) {
   bbb1 <- data.frame(ftable(xtabs(~ smk + alc + can,data=data)))
   print(bbb1)
   yvarc <- as.character(match.call()$yvar)
   subs<- bbb1[, yvarc]==1

   bbb2<-subset(bbb1,subs,select=c(1,2,4))
   print(bbb2)

}
aaa(yvar=smk,data=dat)

can <- c(rep(1, times = 231), rep(0, times = 178), rep(1, times = 11),rep(0, times = 38))
smk <- c(rep(1, times = 225), rep(0, times = 6), rep(1, times = 166),
         rep(0, times = 12), rep(1, times = 8), rep(0, times = 3), rep(1, times = 18),
         rep(0, times = 20))
alc <- c(rep(1, times = 409), rep(0, times = 49))
dat <- as.data.frame(cbind(alc, smk, can))

aaa<-function(yvar,data) {
   bbb1 <- data.frame(ftable(xtabs(~ smk + alc + can,data=data)))
   print(bbb1)
   subs <- eval(yval, bbb1)==1
   bbb2<-subset(bbb1,subs,select=c(1,2,4))
   print(bbb2)
}
aaa(yvar=can,data=dat)

ntsean 发表于 2013-7-8 09:24
can

输出的结果不对！