# NOT RUN {
set.seed(1)
yd <- data.frame(sample(c(0,1),30,replace=TRUE))
colnames(yd) <- "remiss"
set.seed(4)
xd <- data.frame(matrix(c(round(rnorm(100,0,2),2),round(rnorm(140,2,4),2),
sample(c(1,0),30,replace=TRUE),sample(1:80,30,replace=TRUE)),30,10))
colnames(xd) <- c(paste("X",1:8,sep=""),"gender","age")
yx <- cbind(yd,xd)
y <- "remiss"
stepwiselogit(yx,y,selection="bidirection",select="IC(3/2)")
# }
Run the code above in your browser using DataLab