dbinom(3, size = 8, prob = 0.5)
## [1] 0.21875
dbinom(2, size = 10, prob = 1/6)
## [1] 0.29071
dbinom(12, size = 15, prob = 0.9)
## [1] 0.1285054
1 - pbinom(14, size = 20, prob = 0.25)
## [1] 3.813027e-06
probabilidade2 <- dhyper(2, m = 8, n = 5, k = 3)
print(paste("Em percentual temos: ", round(probabilidade2 * 100, 2), "%"))
## [1] "Em percentual temos: 48.95 %"
dbinom(3, size = 5, prob = 1/4)
## [1] 0.08789063
dbinom(2, size = 6, prob = 0.4)
## [1] 0.31104
dbinom(6, size = 20, prob = 0.3)
## [1] 0.191639
result <- dhyper(2, m = 4, n = 8, k = 3) + dhyper(3, m = 4, n = 8, k = 3)
print(result)
## [1] 0.2363636
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 23.64 %"
result <- dbinom(4, 5, 0.9) + dbinom(5, 5, 0.9)
print(result)
## [1] 0.91854
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 91.85 %"
result <- dpois(3, lambda = 2)
print(result)
## [1] 0.180447
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 18.04 %"
result <- 1 - ppois(5, lambda = 4)
print(result)
## [1] 0.2148696
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 21.49 %"
result <- 1 - ppois(9, lambda = 8)
print(result)
## [1] 0.2833757
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 28.34 %"
result <- dpois(1, lambda = 0.5)
print(result)
## [1] 0.3032653
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 30.33 %"
result <- 1 - ppois(4, lambda = 3)
print(result)
## [1] 0.1847368
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 18.47 %"
result <- dpois(10, lambda = 12)
print(result)
## [1] 0.1048373
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 10.48 %"
result <- dpois(2, lambda = 1.5)
print(result)
## [1] 0.2510214
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 25.1 %"
result <- 1 - ppois(7, lambda = 5)
print(result)
## [1] 0.1333717
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 13.34 %"
result <- dpois(0, lambda = 0.2)
print(result)
## [1] 0.8187308
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 81.87 %"
result <- dpois(6, lambda = 7)
print(result)
## [1] 0.1490028
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 14.9 %"
result <- pnorm(185, mean = 170, sd = 10, lower.tail = FALSE)
print(result)
## [1] 0.0668072
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 6.68 %"
result <- pnorm(750, mean = 800, sd = 50, lower.tail = FALSE)
print(result)
## [1] 0.8413447
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 84.13 %"
result <- pnorm(120, mean = 100, sd = 15, lower.tail = FALSE)
print(result)
## [1] 0.09121122
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 9.12 %"
result <- pnorm(4.2, mean = 5, sd = 0.5)
print(result)
## [1] 0.05479929
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 5.48 %"
result <- pnorm(30, mean = 25, sd = 3, lower.tail = FALSE)
print(result)
## [1] 0.04779035
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 4.78 %"
result <- pnorm(40, mean = 50, sd = 8)
print(result)
## [1] 0.1056498
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 10.56 %"
result <- pnorm(80, mean = 70, sd = 10) - pnorm(60, mean = 70, sd = 10)
print(result)
## [1] 0.6826895
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 68.27 %"
result <- pnorm(2500, mean = 2000, sd = 300, lower.tail = FALSE)
print(result)
## [1] 0.04779035
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 4.78 %"
result <- pnorm(130, mean = 120, sd = 10, lower.tail = FALSE)
print(result)
## [1] 0.1586553
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 15.87 %"
result <- pnorm(6.5, mean = 8, sd = 1)
print(result)
## [1] 0.0668072
print(paste("Em percentual:", round(result * 100, 2), "%"))
## [1] "Em percentual: 6.68 %"
Tipo de Amostragem: Amostragem Aleatória Simples.
Tipo de Amostragem: Amostragem Estratificada.
Tipo de Amostragem: Amostragem Estratificada.
Tipo de Amostragem: Amostragem por Conglomerados.
Tipo de Amostragem: Amostragem por Conglomerados.
Tipo de Amostragem: Amostragem Aleatória Simples.
Tipo de Amostragem: Amostragem Estratificada.
Tipo de Amostragem: Amostragem Estratificada.
Tipo de Amostragem: Amostragem por Conglomerados.
Tipo de Amostragem: Amostragem por Conveniência.
z <- qnorm(0.975)
media <- 175
desvio <- 8
n <- 100
erro <- z * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 173.432 176.568
p <- 150 / 200
z <- qnorm(0.95)
erro <- z * sqrt(p * (1 - p) / 200)
c(p - erro, p + erro)
## [1] 0.6996368 0.8003632
t <- qt(0.995, df = 29)
media <- 50
desvio <- 6
n <- 30
erro <- t * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 46.98053 53.01947
z <- qnorm(0.975)
media <- 1200
desvio <- 100
n <- 50
erro <- z * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 1172.282 1227.718
z <- qnorm(0.99)
media <- 0.04
desvio <- 0.001
n <- 500
erro <- z * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 0.03989596 0.04010404
t <- qt(0.95, df = 19)
media <- 25
desvio <- 3
n <- 20
erro <- t * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 23.84006 26.15994
z <- qnorm(0.975)
media <- 2000
desvio <- 300
n <- 100
erro <- z * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 1941.201 2058.799
z <- qnorm(0.995)
media <- 500
desvio <- 100
n <- 50
erro <- z * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 463.5723 536.4277
t <- qt(0.98, df = 24)
media <- 12
desvio <- 2
n <- 25
erro <- t * desvio / sqrt(n)
c(media - erro, media + erro)
## [1] 11.13138 12.86862
p <- 120 / 150
z <- qnorm(0.995)
erro <- z * sqrt(p * (1 - p) / 150)
c(p - erro, p + erro)
## [1] 0.7158738 0.8841262
z <- qnorm(0.975)
erro <- 100
desvio <- 500
n <- (z * desvio / erro)^2
ceiling(n)
## [1] 97
N <- 5000
E <- 0.05
sigma <- 0.03
z <- qnorm(0.95)
n2 <- ceiling((z^2 * sigma^2 * N) / (z^2 * sigma^2 + E^2 * (N - 1)))
ceiling(n2)
## [1] 1
z <- qnorm(0.975)
E <- 0.03
p <- 0.5
N <- 8000
n0 <- (z^2 * p * (1 - p)) / E^2
n <- n0 / (1 + ((n0 - 1) / N))
ceiling(n)
## [1] 942
z <- qnorm(0.95)
erro <- 1
desvio <- 0.5
n <- (z * desvio / erro)^2
ceiling(n)
## [1] 1
z <- qnorm(0.98)
erro <- 0.02
p <- 0.5
N <- 10000
n_bruto <- (z^2 * p * (1 - p)) / erro^2
n_56 <- n_bruto / (1 + ((n_bruto - 1) / N))
ceiling(n_56)
## [1] 2087
z <- qnorm(0.99)
erro <- 10
desvio <- 50
n <- (z * desvio / erro)^2
ceiling(n)
## [1] 136
z <- qnorm(0.97)
erro <- 0.04
p <- 0.5
N <- 6000
n_bruto <- (z^2 * p * (1 - p)) / erro^2
n_58 <- n_bruto / (1 + ((n_bruto - 1) / N))
ceiling(n_58)
## [1] 507
z <- qnorm(0.995)
erro <- 5
desvio <- 10
n <- (z * desvio / erro)^2
ceiling(n)
## [1] 27
z <- qnorm(0.96)
E <- 0.02
p <- 0.03
N <- 12000
n0 <- (z^2 * p * (1 - p)) / E^2
n <- n0 / (1 + ((n0 - 1) / N))
ceiling(n)
## [1] 219