data(nh0506Homocysteine)
attach(nh0506Homocysteine)
p<-glm(z ~ female + age + black + education + povertyr + bmi,
family = binomial)$fitted.values
edgenum(z, p, 0.2)
edgenum(z, p, 0.2, 10, exact=female)
detach(nh0506Homocysteine)
Run the code above in your browser using DataLab