المثال التفاعلي للتوزيع الهندسي

يملك المتغير العشوائي X الذي يحتوي عدد النجاحات A بعد n تكرار للتجربة التوزيع الهندسي مع العناصر M,N و n مع تابع الكثافة الاحتمالي

$f_{H}(x;N,M,n)={\begin{cases}{\frac {{M \choose x}\cdot {N-M \choose n-x}}{N \choose n}}&{\mbox{for }}\ x=max[0,n-(N-M)],\dots ,min[n,M]\\0&{\mbox{sonst}}\end{cases}}$

<Rform name="cdfhyper"> n: <input name="n" type="text" size="5" maxlength="5" value="6">  N: <input name="N" type="text" size="5" maxlength="5" value="49">  M: <input name="M" type="text" size="5" maxlength="5" value="6">  <input type="submit" value="Absenden"> </Rform> <R output="html" name="cdfhyper" iframe="width:200px,height:200px;">

if (exists("M")) M <- as.numeric(M) else M <- 6

if (exists("N")) N <- as.numeric(N) else N <- 49 if (exists("n")) n <- as.numeric(n) else n <- 6

xmin=max(0,M+n-N); xmax=min(n,M)

dis <- phyper(rep(xmin:xmax,1), M, N-M, n) prob <- dhyper(rep(xmin:xmax,1), M, N-M, n) m <- cbind(dis,prob) dim(m) <- c(xmax-xmin+1,2) colnames(m) <- c("F(x)", "P(X=i)") rownames(m) <- format(xmin:xmax) outHTML(rhtml, m, title="i", format="f", digits=6) </R>