[ index.php ] [ docs.php ] [ package.php ] [ tests.php ] [ examples.php ] [ download.php ]
Tests

beta.php(execute)
binomial.php(execute)
cauchy.php(execute)
chisqr.php(execute)
exponential.php(execute)
f.php(execute)
gamma.php(execute)
geometric.php(execute)
hypergeometric.php(execute)
lognormal.php(execute)
make_table.php(execute)
multinormal.php(execute)
negativebinomial.php(execute)
normal.php(execute)
pareto.php(execute)
poisson.php(execute)
t.php(execute)
triangle.php(execute)
uniform.php(execute)
weibull.php(execute)

<?php 
/** 
* @package PDL 

* Script to test BetaDistribution methods. 
*/ 
require_once '../BetaDistribution.php'
require_once 
'make_table.php'

$p 1;
$q 4;

$beta = new BetaDistribution($p$q); 

$Methods    = array("getMean()","getStandardDeviation()","PDF(.2)","CDF(.50)","ICDF(0.95)","RNG(1)"); 
$Output[0] = $beta->getMean(); 
$Output[1] = $beta->getStandardDeviation(); 
$Output[2] = $beta->PDF(.2); 
$Output[3] = $beta->CDF(.50); 
$Output[4] = $beta->ICDF(0.95); 
$Output[5] = $beta->RNG(1); 
make_table("BetaDistribution($p$q)""Methods""Output"$Methods$Output); 

// Test PDF function by feeding an array of $x_vals and 
// getting a corresponding array of $p_vals. 
$X_Vals = array(0.10.150.20.250.30.35); 
$P_Vals $beta->PDF($X_Vals); 
make_table("PDF(X_VALS)""X Vals Input""P Vals Output"$X_Vals$P_Vals); 

// Test CDF function by feeding an array of $x_vals and getting 
// a corresponding array of $p_vals where each p_val corresponds 
// to p(x < $x_vals[$i]) 
$X_Vals = array(0.10.150.20.250.30.35); 
$P_Vals $beta->CDF($X_Vals); 
make_table("CDF(X_VALS)""X Vals Input""P Vals Output"$X_Vals$P_Vals); 

// Test ICDF function by feeding in P_Vals from previous 
// test. Result should be mirror of CDF output. 
$X_Vals $beta->ICDF($P_Vals); 
make_table("ICDF(P_VALS)""P Vals Input""X Vals Output"$P_Vals$X_Vals);

// Test RNG function by passing the number of values you want generated. 
// Result is an array of random numbers from a beta distribution 
$Counter range(07);
$Rnd_Vals $beta->RNG(8); 
make_table("RNG(N_VALS)""Counter""Rnd Vals"$Counter$Rnd_Vals); 
?>