Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- > 1 - pbinom(2,50,0.04)
- [1] 0.323286
- > x <- 0
- > for(i in (3:50)) x <- x + dbinom(i,50,0.04)
- > x
- [1] 0.323286
- > x <- 0
- > for(i in (0:2)) x <- x + dbinom(i,50,0.04)
- > 1-x
- [1] 0.323286
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement