悬赏 200 个论坛币 已解决
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))
smk1 <- 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))
alc1 <- c(rep(1, times = 409), rep(0, times = 49))
dat <- as.data.frame(cbind(alc, alc1,smk,smk1, can))
通过自己写的函数得到新的数据框
aaa<-function(yvar,xvars,data) {
}
如果调用aaa(yvar=can,xvar="smk alc",data=dat)
则得到新的数据框，其变量依次为为can smk alc
如果调用aaa(yvar=can,xvar="alc1 alc",data=dat)
则得到新的数据框，其变量依次为为can alc1 alc
谢谢！
扫码加好友，拉您进群
全部版块
我的主页
收藏
