Description Usage Arguments Value Note Author(s) References See Also Examples

View source: R/ApplicIntegralTheo.r

This function shows three applications of the integral theorem of DeMoivre-Laplace: 1. To estimate the probability (beta) that the frequency of occurrence of the successful event will deviate from the probability that this event will happen in any single Bernoulli experiment (p) in a quantity not bigger than alpha. 2. To calculate the least number of experiments that must be carried out (n). 3. To determine the boundary of possible variations between the frequency of occurrence of the successful event and the probability p (alpha).

1 | ```
ApplicIntegralTheo(Applic = "alpha", n = 10000, p = 0.5, alpha = 0.01, beta = 0.9)
``` |

`Applic` |
It indicates the calculation to be carried out: if "n", the function calculates the number of repetitions, if "alpha", the function calculates the boundary of possible variations of abs(frequency-p) if "beta", the function calculates the probability that the frequency of occurrence of the successful event will deviate from the probability p by no more than alpha. |

`n` |
Number of repetitions of the Bernoulli trial. |

`p` |
Probability that a successful event happens in any single Bernoulli trial (called the probability of success). |

`alpha` |
The boundary of possible variations of abs(frequency-p). |

`beta` |
Probability that the frequency of occurrence of the successful event will deviate from the probability p by no more than alpha. |

Numeric value representing the values of n, alpha or beta according to the value that the parameter "Applic" takes ("n", "alpha" or "beta").

Department of Mathematics. University of Oriente. Cuba.

Larisa Zamora and Jorge Diaz

Gnedenko, B. V. (1978). The Theory of Probability. Mir Publishers. Moscow.

Integral_Theorem.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | ```
beta<-ApplicIntegralTheo(Applic="beta",n=369,p=0.4,alpha=0.05)
beta
alpha<-ApplicIntegralTheo(Applic="alpha",n=369,p=0.4,beta=0.95)
alpha
n<-ApplicIntegralTheo(Applic="n",p=0.4,alpha=0.05,beta=0.95)
n
## The function is currently defined as
function (Applic = "alpha", n = 10000, p = 0.5, alpha = 0.01,
beta = 0.9)
{
Alpha <- function(n, p, beta) {
a <- (beta + 1)/2
alpha <- ((p * (1 - p)/n)^0.5) * qnorm(a)
return(alpha)
}
Beta <- function(n, p, alpha) {
b <- alpha * (n/(p * (1 - p)))^0.5
beta <- 2 * pnorm(b) - 1
return(beta)
}
Repetitions <- function(p, alpha, beta) {
a <- (beta + 1)/2
n <- (p * (1 - p) * ((qnorm(a)/alpha)^2))%/%1 + 1
return(n)
}
options(digits = 17)
value <- switch(Applic, alpha = Alpha(n, p, beta), beta = Beta(n,
p, alpha), n = Repetitions(p, alpha, beta))
return(value)
}
``` |

ExpRep documentation built on July 4, 2017, 9:45 a.m.

Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.