Sandbox

<R output="html" iframe="width:100%;height:250px;"> prob=0.15; nmin=1; nmax=15; x=6 m <-pbinom(rep(0:x, each = nmax-nmin+1), rep(nmin:nmax,x), prob) dim(m) <- c(nmax-nmin+1,x+1) m <- t(m) colnames(m) <- format(nmin:nmax) rownames(m) <- format(0:x) outHTML(rhtml, m, title="x\n", format="f", digits=4) </R>

<R output="display" iframe="width:400px;height:400px"> pdf(rpdf, width=5, height=5) n <- 10 prob <- 0.2 x <- seq(0, n, 1) p <- dbinom(x, n, prob) param <- list(n, prob) main <- c("Binomialverteilung - Wahrscheinlichkeitsfunktion", paste (c("Stichprobenumfang n", "Wahrscheinlichkeit p"), param, sep="=")) plot(x,p, type="h", main=main) </R>

<R>1:20</R>

---

$\int _{-N}^{N}e^{x}\,dx$

$\operatorname {erfc} (x)={\frac {2}{\sqrt {\pi }}}\int _{x}^{\infty }e^{-t^{2}}\,dt={\frac {e^{-x^{2}}}{x{\sqrt {\pi }}}}\sum _{n=0}^{\infty }(-1)^{n}{\frac {(2n)!}{n!(2x)^{2n}}}$

---

1. Farthing, M.J.G., Du Pont, H.L., Guandalini, S. et al (1992) Treatment and prevention of travellers' diarrhoea. Gastroenterology International 5(3), 162-175.

2. ISBN:978-0-240-52118-3

   Figure 5, page 72 is particularly interesting.