> px <- c(0.2, 0.45, 0.25, 0.09, 0.01) > names(px) <- c("1", "2", "3", "4", "5") > px
1 2 3 4 5 0.20 0.45 0.25 0.09 0.01
> soma <- sum(px) > soma
[1] 1
> dbinom(1, 1, 0.6)
[1] 0.6
> dbinom(0, 1, 0.6)
[1] 0.4
> dbinom(2, 6, 0.5)
[1] 0.234375
> 1 - pbinom(3, 6, 0.5)
[1] 0.34375
> 1 - pbinom(0, 6, 0.5)
[1] 0.984375
> dbinom(0, 5, 0.7)
[1] 0.00243
> dbinom(4, 5, 0.7)
[1] 0.36015
> dpois(2, 5)
[1] 0.08422434
> ppois(2, 5)
[1] 0.1246520
> 1 - pnorm(2.63)
[1] 0.004269243
> x <- 1 - pnorm(-1.67) > x
[1] 0.9525403
> y <- 1 - pnorm(2.22) > y
[1] 0.01320938
> (x - y) * 100
[1] 93.9331