## logit model for Segal's search and seizure data
## ADM 11/10/2008

load("search.Rda")
model <- glm(sctdec~house+business+person+car+search+warrant+
	lctpc+lctinc+lctaft+except+lctdec, family=binomial(),
	data=search)
summary(model)