Displaying 1 result from an estimated 1 matches for "lowmo".
Did you mean:
lomo
2009 Nov 16
1
object not found inside step() function
...is problem?
Thanks a lot in advance.
I am using R 2.9.0. Here is the sample code:
#------------
naivelr<-function(x,y){
:
:
:
a<-data.frame(x)
form<-paste("y~1+",paste(grep("X.*",names(a),value=T),collapse="+"),sep="")
if(is.null(force.in)!=T){
lowmo<-paste("y~1+",paste(grep("X.*",names(a)[force.in],value=T),collapse="+"),sep="")
} else
{lowmo<-"y~1"}
lower1<-glm(lowmo,family="binomial",data=data.frame(a,y))
upper1<-glm(form,family="binomial",data=data.frame(a,y...