mirror of
https://github.com/BreizhHardware/TD-R.git
synced 2026-01-18 16:47:34 +01:00
Félix MARQUET
d5e8889148
- Added examples for Bernoulli experiments including probability of success, failure, and simulation of multiple experiments. - Added examples for calculating integrals using different methods such as rectangles, Simpson's rule, and the integrate function. - Added examples for binomial distribution including probability calculations and cumulative probability. - Added examples for calculating the cardinality of sets including unique elements and empty sets.
35 lines
828 B
R
35 lines
828 B
R
# Exemple 1
|
|
# Définir la probabilité de succès
|
|
p <- 0.4
|
|
|
|
# Calculer la probabilité de succès
|
|
prob_succes <- dbinom(x=1, size=1, prob=p)
|
|
|
|
# Afficher le résultat
|
|
print(paste("La probabilité de succès est:", prob_succes))
|
|
|
|
# Exemple 2
|
|
# Définir la probabilité de succès
|
|
p <- 0.4
|
|
|
|
# Calculer la probabilité d'échec
|
|
prob_echec <- dbinom(x=0, size=1, prob=p)
|
|
|
|
# Afficher le résultat
|
|
print(paste("La probabilité d'échec est:", prob_echec))
|
|
|
|
# Exemple 3
|
|
# Définir la probabilité de succès
|
|
p <- 0.4
|
|
|
|
# Définir le nombre d'expériences
|
|
n <- 1000
|
|
|
|
# Simuler les expériences de Bernoulli
|
|
experiences <- rbinom(n=n, size=1, prob=p)
|
|
|
|
# Calculer la proportion de succès
|
|
proportion_succes <- mean(experiences)
|
|
|
|
# Afficher le résultat
|
|
print(paste("La proportion de succès sur", n, "expériences est:", proportion_succes)) |