Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- x <- c(20, 60, 100, 140, 180, 220, 260, 300, 340, 380, 420, 460, 500)
- y <- cbind(
- c(2, 13, 30, 30, 21, 19, 18, 13, 19, 15, 7, 8, 35)
- , c(88, 26, 8, 5, 0, 1, 1, 1, 0, 0, 0, 0, 0)
- )
- summary(glm(y~x, family = binomial))
Add Comment
Please, Sign In to add comment