# NOT RUN {
data(wallabies)
wdat = data.frame(subset(wallabies,select=-c(lat,long)),
EaD = wallabies$edible*wallabies$distance,
EaS = wallabies$edible*wallabies$shelter,
DaS = wallabies$distance*wallabies$shelter)
M1 = glm(rw~., family = binomial(link = "logit"), data = wdat)
# }
Run the code above in your browser using DataLab