R中写函数遇到的问题

dxystata 发表于 2013-4-30 08:55
希望得到的结果是 y ~ x0 + z

1. yvar<-"y"
   
2. xvars<-"x0 x1"
   
3. covars<-"z"
   
4. formula <- paste(yvar,"~",strsplit(xvars, " ")[[1]],"+",covars,sep="")
   
5. formula<-as.formula(formula)

复制代码

水天一色DIY 发表于 2013-4-30 10:48
delete double quote

mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv")
attach(mydata)
yvar=data.frame(admit)
xvars=data.frame(gre,gpa,rank)
myfun<-function(yvar,xvars) {
        glm(yvar~xvars, data = mydata, family = "binomial")
}
myfun(yvar=yvar,xvars=xvars)
运行有误

dxystata 发表于 2013-4-30 12:39
mydata

1. mydata <- read.csv("http://www.ats.ucla.edu/stat/data/binary.csv")
   
2. attach(mydata)
   
3. yvar<-admit
   
4. xvars<-data.frame(gre,gpa,rank)
   
5. myfun<-function(yvar,xvars){
   
6.    glm(yvar~c(xvars[,1])+c(xvars[,2])+c(xvars[,3]), data=mydata,family="binomial")
   
7. }
   
8. myfun(yvar=yvar,xvars=xvars)

复制代码