2
include ("plot_clt_common.php");
4
function doParameters () {
6
prob <- <? echo(getRK_val ("prob")); ?>;
10
function doExpVar () {
13
avg.exp <- (1-prob)/prob;
14
avg.var <- ((1-prob)/(prob^2))/<? echo ($nAvg); ?>;
18
function doGenerateData () {
22
data <- matrix(rgeom(n=<? echo ($nAvg*$nDist); ?>, prob=prob), nrow=<? echo ($nAvg); ?>);