R中写函数遇到的问题

function (yvars=case, xvars=age sex x1 x2) {

}
能否这样实现？或有没更好的办法，谢谢！

dxystata 发表于 2013-4-15 10:08
谢谢！
如何将yvars xvars 传递到 glm(case~ age + sex + x1+x2, 呢, family = "binomial") 函数呢？
谢 ...

试试
yvar <- "case"
xvars <- "age sex x1 x2"

formula <- as.formula(paste(yvar, "~", paste(strsplit(xvars, " ")[[1]], collapse="+")))

glm(formula, family="binomial)

不是很明白楼主遇到具体问题何在
（如果是针对"xvars=age sex x1 x2",好像没见过如此定义，为了统一定义xvars，为什么不采用

1. xvars=data.frame(age,sex,x1,x2)
   
2. myfun<-function(yvars,xvars）{
   
3. }

复制代码

）当然这是个人想法，望有助楼主

这样定义会报错的，lz不要受stata影响太深，，，针对lz这个函数，R中函数定义一般是这样的
fun<-function(yvars=缺省值,xvars=c("age的缺省值","sex的缺省值","以此类推")){
"函数主体"
}
或者也可以这样
fun<-function(yvars=缺省值,age="缺省值",sex="缺省值","以此类推")){
"函数主体"
}
最后ym一下stata版主，求多多指教

可以用formula object 比如

y <- rnorm(10)
x1 <- rnorm(10)
age <- 1:10
sex <- rep(0:1, each=5)

test <- function(formula) {
        model.frame(formula)
}

test(y~age)
test(y~age+sex)
test(y~x1+age+sex)

水天一色DIY 发表于 2013-4-12 16:03
不是很明白楼主遇到具体问题何在
（如果是针对"xvars=age sex x1 x2",好像没见过如此定义，为了统一定义xv ...

谢谢！
如何将yvars xvars 传递到 glm(case~ age + sex + x1+x2, 呢, family = "binomial") 函数呢？
谢谢！

dxystata 发表于 2013-4-15 10:08
谢谢！
如何将yvars xvars 传递到 glm(case~ age + sex + x1+x2, 呢, family = "binomial") 函数呢？
谢 ...

不知道你的问题是否有解决，如果你是要定义两个函数，并实现参数传递，可以参考一下：
"<<-"

水天一色DIY 发表于 2013-4-15 15:59
不知道你的问题是否有解决，如果你是要定义两个函数，并实现参数传递，可以参考一下：
"

可以举个例子吗？

水天一色DIY 发表于 2013-4-15 15:59
不知道你的问题是否有解决，如果你是要定义两个函数，并实现参数传递，可以参考一下：
"

"<<-"
英文名称是什么? 谢谢！

dxystata 发表于 2013-4-15 17:07
可以举个例子吗？

嗯，是这样子的，比如：

1. xvar=0;yvar=0
   
2. 
   
3. myfun1<-function(){
   
4.    xvar<<-1;yvar<<-1
   
5.                             }
   
6. 
   
7. myfun2<-function(){
   
8.     print(xvar);print(yvar)
   
9.                                }

复制代码

这个例子说明（刚开始xvar和yvar变量值都是0，当运行了myfun1后，xvar和yvar变量赋予全局变量，及突破了只作用于function函数的限制，对于function外的xvar值有影响的【你可以把<<-改成<-比较】