[rkward-cvs] [rkward/work/distributions] /: Adjust tests for reworked distributions plugins, and fix some small issues that turned up in the process.
Thomas Friedrichsmeier
thomas.friedrichsmeier at ruhr-uni-bochum.de
Wed Jan 28 14:57:20 UTC 2015
Git commit e44a0cdb950ef2778e7353021ceb8c2a9f751caa by Thomas Friedrichsmeier.
Committed on 28/01/2015 at 14:56.
Pushed by tfry into branch 'work/distributions'.
Adjust tests for reworked distributions plugins, and fix some small issues that turned up in the process.
M +1 -0 rkward/plugins/distributions/binomial.rkh
M +1 -1 rkward/plugins/distributions/chi_squared.js
M +1 -1 rkward/plugins/distributions/dist_snippets.xml
M +1 -1 rkward/plugins/distributions/exponential.xml
M +1 -1 rkward/plugins/distributions/geom.rkh
M +2 -2 rkward/plugins/distributions/gumbel.rkh
M +1 -1 rkward/plugins/distributions/hypergeometric.rkh
M +2 -2 rkward/plugins/distributions/log_normal.xml
M +1 -1 rkward/plugins/distributions/plot_geometric_distribution.rkh
M +1 -1 rkward/plugins/distributions/plot_lognormal_distribution.rkh
M +1 -1 rkward/plugins/distributions/t.rkh
M +1 -1 rkward/plugins/distributions/tukey.rkh
M +1 -0 rkward/plugins/distributions/tukey.xml
M +2 -2 rkward/plugins/distributions/wilcoxon.xml
M +29 -92 tests/distributions.R
M +78 -6 tests/distributions/beta_probabilities.rkcommands.R
M +207 -15 tests/distributions/beta_probabilities.rkout
D +0 -14 tests/distributions/beta_quantiles.rkcommands.R
D +0 -21 tests/distributions/beta_quantiles.rkout
M +6 -3 tests/distributions/binomial_probabilities.rkcommands.R
M +17 -6 tests/distributions/binomial_probabilities.rkout
D +0 -7 tests/distributions/binomial_quantiles.rkcommands.R
D +0 -10 tests/distributions/binomial_quantiles.rkout
M +6 -10 tests/distributions/cauchy_probabilities.rkcommands.R
M +27 -16 tests/distributions/cauchy_probabilities.rkout
D +0 -14 tests/distributions/cauchy_quantiles.rkcommands.R
D +0 -19 tests/distributions/cauchy_quantiles.rkout
M +6 -10 tests/distributions/chi_squared_probabilities.rkcommands.R
M +27 -16 tests/distributions/chi_squared_probabilities.rkout
D +0 -14 tests/distributions/chi_squared_quantiles.rkcommands.R
D +0 -19 tests/distributions/chi_squared_quantiles.rkout
M +5 -3 tests/distributions/exponential_probabilities.rkcommands.R
M +26 -6 tests/distributions/exponential_probabilities.rkout
D +0 -7 tests/distributions/exponential_quantiles.rkcommands.R
D +0 -9 tests/distributions/exponential_quantiles.rkout
M +7 -3 tests/distributions/f_probabilities.rkcommands.R
M +28 -8 tests/distributions/f_probabilities.rkout
D +0 -7 tests/distributions/f_quantiles.rkcommands.R
D +0 -11 tests/distributions/f_quantiles.rkout
M +6 -3 tests/distributions/gamma_probabilities.rkcommands.R
M +27 -7 tests/distributions/gamma_probabilities.rkout
D +0 -8 tests/distributions/gamma_quantiles.rkcommands.R
D +0 -10 tests/distributions/gamma_quantiles.rkout
M +5 -3 tests/distributions/geom_probabilities.rkcommands.R
M +17 -6 tests/distributions/geom_probabilities.rkout
D +0 -7 tests/distributions/geom_quantiles.rkcommands.R
D +0 -9 tests/distributions/geom_quantiles.rkout
M +8 -3 tests/distributions/gumbel_probabilities.rkcommands.R
M +27 -7 tests/distributions/gumbel_probabilities.rkout
D +0 -7 tests/distributions/gumbel_quantiles.rkcommands.R
D +0 -10 tests/distributions/gumbel_quantiles.rkout
M +7 -3 tests/distributions/hypergeometric_probabilities.rkcommands.R
M +19 -8 tests/distributions/hypergeometric_probabilities.rkout
D +0 -7 tests/distributions/hypergeometric_quantiles.rkcommands.R
D +0 -11 tests/distributions/hypergeometric_quantiles.rkout
M +6 -3 tests/distributions/log_normal_probabilities.rkcommands.R
M +27 -7 tests/distributions/log_normal_probabilities.rkout
D +0 -7 tests/distributions/log_normal_quantiles.rkcommands.R
D +0 -10 tests/distributions/log_normal_quantiles.rkout
M +6 -3 tests/distributions/logistic_probabilities.rkcommands.R
M +27 -7 tests/distributions/logistic_probabilities.rkout
D +0 -7 tests/distributions/logistic_quantiles.rkcommands.R
D +0 -10 tests/distributions/logistic_quantiles.rkout
M +6 -3 tests/distributions/negative_binomial_probabilities.rkcommands.R
M +23 -7 tests/distributions/negative_binomial_probabilities.rkout
D +0 -7 tests/distributions/negative_binomial_quantiles.rkcommands.R
D +0 -10 tests/distributions/negative_binomial_quantiles.rkout
M +6 -3 tests/distributions/normal_probabilities.rkcommands.R
M +27 -7 tests/distributions/normal_probabilities.rkout
D +0 -7 tests/distributions/normal_quantiles.rkcommands.R
D +0 -10 tests/distributions/normal_quantiles.rkout
M +5 -3 tests/distributions/poisson_probabilities.rkcommands.R
M +12 -6 tests/distributions/poisson_probabilities.rkout
D +0 -7 tests/distributions/poisson_quantiles.rkcommands.R
D +0 -9 tests/distributions/poisson_quantiles.rkout
M +6 -3 tests/distributions/t_probabilities.rkcommands.R
M +27 -7 tests/distributions/t_probabilities.rkout
D +0 -7 tests/distributions/t_quantiles.rkcommands.R
D +0 -10 tests/distributions/t_quantiles.rkout
M +6 -3 tests/distributions/tukey_probabilities.rkcommands.R
M +27 -8 tests/distributions/tukey_probabilities.rkout
D +0 -7 tests/distributions/tukey_quantiles.rkcommands.R
D +0 -11 tests/distributions/tukey_quantiles.rkout
M +6 -3 tests/distributions/uniform_probabilities.rkcommands.R
M +27 -7 tests/distributions/uniform_probabilities.rkout
D +0 -7 tests/distributions/uniform_quantiles.rkcommands.R
D +0 -10 tests/distributions/uniform_quantiles.rkout
M +6 -3 tests/distributions/weibull_probabilities.rkcommands.R
M +27 -7 tests/distributions/weibull_probabilities.rkout
D +0 -7 tests/distributions/weibull_quantiles.rkcommands.R
D +0 -10 tests/distributions/weibull_quantiles.rkout
M +6 -3 tests/distributions/wilcoxon_probabilities.rkcommands.R
M +20 -7 tests/distributions/wilcoxon_probabilities.rkout
D +0 -7 tests/distributions/wilcoxon_quantiles.rkcommands.R
D +0 -10 tests/distributions/wilcoxon_quantiles.rkout
http://commits.kde.org/rkward/e44a0cdb950ef2778e7353021ceb8c2a9f751caa
diff --git a/rkward/plugins/distributions/binomial.rkh b/rkward/plugins/distributions/binomial.rkh
index 0b3d8ef..0a72d8f 100644
--- a/rkward/plugins/distributions/binomial.rkh
+++ b/rkward/plugins/distributions/binomial.rkh
@@ -17,6 +17,7 @@
<related>
<ul>
<li><link href="rkward://rhelp/Binomial"/></li>
+ <li><link href="rkward://component/rkward/plot_binomial_distribution"/></li>
</ul>
</related>
</document>
diff --git a/rkward/plugins/distributions/chi_squared.js b/rkward/plugins/distributions/chi_squared.js
index 71631e4..777b899 100644
--- a/rkward/plugins/distributions/chi_squared.js
+++ b/rkward/plugins/distributions/chi_squared.js
@@ -4,5 +4,5 @@ function getDistSpecifics () {
var df = Number (getString ("df"));
return initDistSpecifics (i18n ('Chi-squared distribution'), 'chisq', ["df", "ncp"],
[Math.max (0, Math.floor (df * .6 - 4)), Math.floor (df * 1.4 + 4)], // NOTE: crude self-made heuristic for covering the likely range of interest for auto-quantiles
- continuos);
+ continuous);
}
diff --git a/rkward/plugins/distributions/dist_snippets.xml b/rkward/plugins/distributions/dist_snippets.xml
index 25c5b21..d7d817b 100644
--- a/rkward/plugins/distributions/dist_snippets.xml
+++ b/rkward/plugins/distributions/dist_snippets.xml
@@ -16,7 +16,7 @@
<snippet id="dialog_layout">
<dropdown id="mode" label="Mode">
<option value="p" label="Calculate probabilities for given quantiles"/>
- <option value="d" label="Calculate densities at given quantiles"/>
+ <option value="d" id="d" label="Calculate densities at given quantiles"/>
<option value="q" label="Calculate quantiles for given probabilities"/>
</dropdown>
<row>
diff --git a/rkward/plugins/distributions/exponential.xml b/rkward/plugins/distributions/exponential.xml
index 339a809..bd5cd85 100755
--- a/rkward/plugins/distributions/exponential.xml
+++ b/rkward/plugins/distributions/exponential.xml
@@ -7,7 +7,7 @@
</logic>
<snippets>
<snippet id="dist_options">
- <spinbox default_precision="1" type="real" min="0" initial="1" id="rate" label="Rates"/>
+ <spinbox default_precision="1" type="real" min="0" initial="1" id="rate" label="Rate"/>
</snippet>
<include file="dist_snippets.xml"/>
</snippets>
diff --git a/rkward/plugins/distributions/geom.rkh b/rkward/plugins/distributions/geom.rkh
index 64e4c80..e9a06e7 100644
--- a/rkward/plugins/distributions/geom.rkh
+++ b/rkward/plugins/distributions/geom.rkh
@@ -16,7 +16,7 @@
<related>
<ul>
<li><link href="rkward://rhelp/Geometric"/></li>
- <li><link href="rkward://component/rkward/plot_geom_distribution"/></li>
+ <li><link href="rkward://component/rkward/plot_geometric_distribution"/></li>
</ul>
</related>
</document>
diff --git a/rkward/plugins/distributions/gumbel.rkh b/rkward/plugins/distributions/gumbel.rkh
index 9555fd4..5f59b0e 100644
--- a/rkward/plugins/distributions/gumbel.rkh
+++ b/rkward/plugins/distributions/gumbel.rkh
@@ -14,8 +14,8 @@
</settings>
<related>
<ul>
- <li><link href="rkward://rhelp/pgumgel">R help on the gumbel distribution functions from package FAdist</li>
- <li><link href="rkward://component/rkward/plot_gumbel_distribution"/></li>
+ <li><link href="rkward://rhelp/pgumgel">R help on the gumbel distribution functions from package FAdist</link></li>
+ <!-- <li><link href="rkward://component/rkward/plot_gumbel_distribution"/></li> -->
</ul>
</related>
</document>
diff --git a/rkward/plugins/distributions/hypergeometric.rkh b/rkward/plugins/distributions/hypergeometric.rkh
index 24358c8..6e4c17c 100644
--- a/rkward/plugins/distributions/hypergeometric.rkh
+++ b/rkward/plugins/distributions/hypergeometric.rkh
@@ -18,7 +18,7 @@
<related>
<ul>
<li><link href="rkward://rhelp/Hypergeometric"/></li>
- <li><link href="rkward://component/rkward/plot_hypergeom_distribution"/></li>
+ <li><link href="rkward://component/rkward/plot_hypergeometric_distribution"/></li>
</ul>
</related>
</document>
diff --git a/rkward/plugins/distributions/log_normal.xml b/rkward/plugins/distributions/log_normal.xml
index 24d3164..86710c8 100644
--- a/rkward/plugins/distributions/log_normal.xml
+++ b/rkward/plugins/distributions/log_normal.xml
@@ -7,8 +7,8 @@
</logic>
<snippets>
<snippet id="dist_options">
- <spinbox default_precision="1" type="real" initial="0" id="meanlog" label="meanlog (mean of the distribution on the log scale)"/>
- <spinbox default_precision="1" type="real" min="0.000001" initial="1" id="sdlog" label="sdlog (standard deviation of the distribution on the log scale)"/>
+ <spinbox default_precision="1" type="real" initial="0" id="meanlog" label="meanlog (mean on log scale)"/>
+ <spinbox default_precision="1" type="real" min="0.000001" initial="1" id="sdlog" label="sdlog (standard deviation on log scale)"/>
</snippet>
<include file="dist_snippets.xml"/>
</snippets>
diff --git a/rkward/plugins/distributions/plot_geometric_distribution.rkh b/rkward/plugins/distributions/plot_geometric_distribution.rkh
index eb40014..2e595c6 100644
--- a/rkward/plugins/distributions/plot_geometric_distribution.rkh
+++ b/rkward/plugins/distributions/plot_geometric_distribution.rkh
@@ -19,7 +19,7 @@ Density and distribution function plots for the Geometric distribution.
<related>
<ul>
- <li><link href="rkward://component/geometric_probabilities"/></li>
+ <li><link href="rkward://component/geom_probabilities"/></li>
<li><link href="rkward://rhelp/Geometric"/></li>
<li><link href="rkward://component/plot_options"/></li>
<li><link href="rkward://rhelp/curve"/></li>
diff --git a/rkward/plugins/distributions/plot_lognormal_distribution.rkh b/rkward/plugins/distributions/plot_lognormal_distribution.rkh
index 97ea5d4..4f2395f 100644
--- a/rkward/plugins/distributions/plot_lognormal_distribution.rkh
+++ b/rkward/plugins/distributions/plot_lognormal_distribution.rkh
@@ -20,7 +20,7 @@ Density and distribution function plots for the Lognormal distribution.
<related>
<ul>
- <li><link href="rkward://component/lognormal_probabilities"/></li>
+ <li><link href="rkward://component/log_normal_probabilities"/></li>
<li><link href="rkward://rhelp/Lognormal"/></li>
<li><link href="rkward://component/plot_options"/></li>
<li><link href="rkward://rhelp/curve"/></li>
diff --git a/rkward/plugins/distributions/t.rkh b/rkward/plugins/distributions/t.rkh
index 61a5ac2..bf9c97b 100644
--- a/rkward/plugins/distributions/t.rkh
+++ b/rkward/plugins/distributions/t.rkh
@@ -4,7 +4,7 @@
<include file="dist_help_snippets.xml"/>
</snippets>
<summary>
- Provides a calculator for probabilities, quantiles, and densities in the Studentized Range (Tukey) distribution.
+ Provides a calculator for probabilities, quantiles, and densities in the <i>t</i> distribution.
</summary>
<insert snippet="dialog_usage"/>
<settings>
diff --git a/rkward/plugins/distributions/tukey.rkh b/rkward/plugins/distributions/tukey.rkh
index 459b524..ed9ece8 100644
--- a/rkward/plugins/distributions/tukey.rkh
+++ b/rkward/plugins/distributions/tukey.rkh
@@ -4,7 +4,7 @@
<include file="dist_help_snippets.xml"/>
</snippets>
<summary>
- Provides a calculator for probabilities, quantiles, and densities in the Standardized Range (Tukey) distribution.
+ Provides a calculator for probabilities, quantiles in the Standardized Range (Tukey) distribution. Calculating densities is not supported by this plugin.
Quantiles are the ratio between the observed range in the given number of observations, and the standard deviation estimate (based on given number of degrees of freedom) of an independent sample.
</summary>
diff --git a/rkward/plugins/distributions/tukey.xml b/rkward/plugins/distributions/tukey.xml
index b82c52b..943813b 100644
--- a/rkward/plugins/distributions/tukey.xml
+++ b/rkward/plugins/distributions/tukey.xml
@@ -4,6 +4,7 @@
<help file="tukey.rkh" />
<logic>
<insert snippet="dialog_logic"/>
+ <set id="mode.d.enabled" to="false"/>
</logic>
<snippets>
<snippet id="dist_options">
diff --git a/rkward/plugins/distributions/wilcoxon.xml b/rkward/plugins/distributions/wilcoxon.xml
index f45a16c..6d698d4 100755
--- a/rkward/plugins/distributions/wilcoxon.xml
+++ b/rkward/plugins/distributions/wilcoxon.xml
@@ -10,8 +10,8 @@
</logic>
<snippets>
<snippet id="dist_options">
- <spinbox type="integer" min="1" initial="1" id="m" label="m (Numbers of observations in the first sample)"/>
- <spinbox type="integer" min="1" initial="1" id="n" label="n (Numbers of observations in the second sample)"/>
+ <spinbox type="integer" min="1" initial="5" id="m" label="m (Numbers of observations in the first sample)"/>
+ <spinbox type="integer" min="1" initial="5" id="n" label="n (Numbers of observations in the second sample)"/>
</snippet>
<include file="dist_snippets.xml"/>
</snippets>
diff --git a/tests/distributions.R b/tests/distributions.R
index 3e05988..2ea6537 100644
--- a/tests/distributions.R
+++ b/tests/distributions.R
@@ -33,14 +33,16 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::jb_test", excludenas.state="1", length.state="1", x.available="rock[[\"shape\"]]\nrock[[\"perm\"]]", submit.mode="submit")
}, libraries=c("tseries")),
new ("RKTest", id="beta_probabilities", call=function () {
- rk.call.plugin ("rkward::beta_probabilities", logp.string="log.p = FALSE", ncp.real="0.00", q.text="0.95", shape1.real="1.00", shape2.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::beta_probabilities", logp.string="log.p = TRUE", ncp.real="0.02", q.text="0.96", shape1.real="1.01", shape2.real="1.01", tail.string="lower.tail=FALSE", submit.mode="submit")
- }),
- new ("RKTest", id="beta_quantiles", call=function () {
- rk.call.plugin ("rkward::beta_quantiles", logp.string="log.p = FALSE", ncp.real="0.00", p.text="0.95", shape1.real="1.00", shape2.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::beta_quantiles", logp.string="log.p = TRUE", ncp.real="0.08", p.text="-1", shape1.real="1.04", shape2.real="1.03", tail.string="lower.tail=FALSE", submit.mode="submit")
+ # NOTE: The XYZ_probabilities plugins are all based on common code. We test this one, extensively, while for the other plugins we'll only test the case of
+ # calculating probabilities for automatic quantiles, which is the trickiest operation.
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="0", lower.state="1", mode.string="p", ncp.real="0.0", q.tsv="", shape1.real="1.0", shape2.real="1.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="1", lower.state="0", mode.string="p", ncp.real="0.0", q.tsv="", shape1.real="1.0", shape2.real="1.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logd.state="1", mode.string="d", ncp.real="0.0", q.tsv="", shape1.real="2.0", shape2.real="1.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logd.state="0", mode.string="d", ncp.real="0.0", q.tsv="", shape1.real="1.0", shape2.real="2.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="1", lower.state="1", mode.string="q", ncp.real="0.0", p.tsv="", shape1.real="1.0", shape2.real="2.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="0", lower.state="1", mode.string="q", ncp.real="0.0", p.tsv="", shape1.real="1.0", shape2.real="2.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="0", lower.state="1", mode.string="q", ncp.real="0.0", p.tsv=".1\t.2\t.3", shape1.real="1.0", shape2.real="2.0", submit.mode="submit")
+ rk.call.plugin ("rkward::beta_probabilities", logp.state="0", lower.state="1", mode.string="p", ncp.real="0.0", q.tsv="1", shape1.real="1.0", shape2.real="2.0", submit.mode="submit")
}),
new ("RKTest", id="beta_clt", call=function () {
rk.call.plugin ("rkward::plot_beta_clt", a.real="2.00", b.real="2.00", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="1", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histfillcol.color.string="azure", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="1", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
@@ -49,27 +51,13 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_beta_distribution", a.real="2.00", b.real="2.00", function.string="p", log.state="1", lower.state="1", max.real="1.00", min.real="0.00", n.real="100.00", ncp.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="cauchy_probabilities", call=function () {
- rk.call.plugin ("rkward::cauchy_probabilities", location.real="0.03", logp.string="log.p = FALSE", q.text="0.95", scale.real="1.02", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::cauchy_probabilities", location.real="-0.02", logp.string="log.p = TRUE", q.text="0.95", scale.real="1.03", tail.string="lower.tail=FALSE", submit.mode="submit")
- }),
- new ("RKTest", id="cauchy_quantiles", call=function () {
- rk.call.plugin ("rkward::cauchy_quantiles", location.real="-0.03", logp.string="log.p = FALSE", p.text="0.95", scale.real="1.03", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::cauchy_quantiles", location.real="0.02", logp.string="log.p = TRUE", p.text="-1 -2", scale.real="0.98", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::cauchy_probabilities", location.real="0.00", logp.state="0", lower.state="1", mode.string="p", q.tsv="", scale.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="plot_cauchy_distribution", call=function () {
rk.call.plugin ("rkward::plot_cauchy_distribution", function.string="d", loc.real="0.00", log.state="0", max.real="3.29", min.real="-3.29", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scale.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="chi_squared_probabilities", call=function () {
- rk.call.plugin ("rkward::chi_squared_probabilities", df.real="3.00", logp.string="log.p = FALSE", ncp.real="0.05", q.text="0.97 0.65", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::chi_squared_probabilities", df.real="1.01", logp.string="log.p = TRUE", ncp.real="0.02", q.text="1", tail.string="lower.tail=FALSE", submit.mode="submit")
- }),
- new ("RKTest", id="chi_squared_quantiles", call=function () {
- rk.call.plugin ("rkward::chi_squared_quantiles", df.real="1.00", logp.string="log.p = FALSE", ncp.real="0.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
-
- rk.call.plugin ("rkward::chi_squared_quantiles", df.real="1.02", logp.string="log.p = TRUE", ncp.real="3.00", p.text="-1 -2", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::chi_squared_probabilities", df.real="1.00", logp.state="0", lower.state="1", mode.string="p", ncp.real="0.00", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="chi_squared_clt", call=function () {
rk.call.plugin ("rkward::plot_chi_squared_clt", df.real="4.00", dist_stepfun.addtoplot.state="", dist_stepfun.col_hor.color.string="", dist_stepfun.col_vert.color.string="", dist_stepfun.col_y0.color.string="", dist_stepfun.col_y1.color.string="", dist_stepfun.do_points.state="", dist_stepfun.linetype.string="", dist_stepfun.verticals.state="1", drawnorm.state="1", function.string="dist", nAvg.real="12.00", nDist.real="1000.00", ncp.real="0.6", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="1", submit.mode="submit")
@@ -78,10 +66,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_chi_squared_distribution", df.real="4.00", function.string="d", log.state="0", max.real="24.10", min.real="0.30", n.real="100.00", ncp.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="exponential_probabilities", call=function () {
- rk.call.plugin ("rkward::exponential_probabilities", logp.string="log.p = FALSE", q.text="0.96", rate.real="1.07", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="exponential_quantiles", call=function () {
- rk.call.plugin ("rkward::exponential_quantiles", logp.string="log.p = TRUE", p.text="-1.1", rate.real="1.05", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::exponential_probabilities", logp.state="0", lower.state="1", mode.string="p", q.tsv="", rate.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="exponential_clt", call=function () {
rk.call.plugin ("rkward::plot_exponential_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="grey4", normpointtype.string="h", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", rate.real="1.00", scalenorm.state="1", submit.mode="submit")
@@ -90,10 +75,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_exponential_distribution", function.string="p", log.state="0", lower.state="0", max.real="10.00", min.real="0.00", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", rate.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="f_probabilities", call=function () {
- rk.call.plugin ("rkward::f_probabilities", df1.real="1.02", df2.real="1.11", logp.string="log.p = FALSE", ncp.real="0.02", q.text=".1, .2", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="f_quantiles", call=function () {
- rk.call.plugin ("rkward::f_quantiles", df1.real="1.00", df2.real="1.00", logp.string="log.p = FALSE", ncp.real="0.00", p.text="0.95", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::f_probabilities", df1.real="1.0", df2.real="10.0", logp.state="0", lower.state="1", mode.string="p", ncp.real="0.0", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="f_clt", call=function () {
rk.call.plugin ("rkward::plot_f_clt", df1.real="5.00", df2.real="5.00", drawnorm.state="0", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", ncp.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
@@ -102,10 +84,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_f_distribution", df1.real="5.00", df2.real="5.00", function.string="d", log.state="1", max.real="25.00", min.real="0.001", n.real="100.00", ncp.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="gamma_probabilities", call=function () {
- rk.call.plugin ("rkward::gamma_probabilities", logp.string="log.p = FALSE", q.text="0.95", rate.real="1.00", shape.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="gamma_quantiles", call=function () {
- rk.call.plugin ("rkward::gamma_quantiles", logp.string="log.p = TRUE", p.text="-5", rate.real="1.00", shape.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::gamma_probabilities", logp.state="0", lower.state="1", mode.string="p", q.tsv="", rate.real="1.0", shape.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="gamma_clt", call=function () {
rk.call.plugin ("rkward::plot_gamma_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", rate.real="0.3", scalenorm.state="0", shape.real="5.9", submit.mode="submit")
@@ -114,16 +93,10 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_gamma_distribution", function.string="d", log.state="0", max.real="4.60", min.real="0.01", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", rate.real="0.87", shape.real="1.61", submit.mode="submit")
}),
new ("RKTest", id="gumbel_probabilities", call=function () {
- rk.call.plugin ("rkward::gumbel_probabilities", logp.string="log.p = FALSE", q.text="0.95", scale.real="1.04", shape.real="1.03", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="gumbel_quantiles", call=function () {
- rk.call.plugin ("rkward::gumbel_quantiles", logp.string="log.p = FALSE", p.text="0.95", scale.real="1.00", shape.real="1.00", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::gumbel_probabilities", location.real="0.0", logp.state="0", lower.state="1", mode.string="p", q.tsv="", scale.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="logistic_probabilities", call=function () {
- rk.call.plugin ("rkward::logistic_probabilities", location.real="1.04", logp.string="log.p = TRUE", q.text="0.95", scale.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="logistic_quantiles", call=function () {
- rk.call.plugin ("rkward::logistic_quantiles", location.real="1.00", logp.string="log.p = FALSE", p.text="0.95", scale.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::logistic_probabilities", location.real="0.0", logp.state="0", lower.state="1", mode.string="p", q.tsv="", scale.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="logistic_clt", call=function () {
rk.call.plugin ("rkward::plot_logistic_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="1", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="int", histogram_opt.histlinetype.string="solid", histogram_opt.include_lowest.state="1", histogram_opt.rightclosed.state="", histogram_opt.usefillcol.state="", loc.real="0.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scale.real="3.00", scalenorm.state="0", submit.mode="submit")
@@ -132,10 +105,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_logistic_distribution", function.string="d", loc.real="0.00", log.state="0", max.real="3.29", min.real="-3.29", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scale.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="log_normal_probabilities", call=function () {
- rk.call.plugin ("rkward::log_normal_probabilities", logp.string="log.p = FALSE", meanlog.real="0.00", q.text="0.95", sdlog.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="log_normal_quantiles", call=function () {
- rk.call.plugin ("rkward::log_normal_quantiles", logp.string="log.p = FALSE", meanlog.real="0.00", p.text="0.95", sdlog.real="1.00", tail.string="lower.tail=FALSE", submit.mode="submit")
+ rk.call.plugin ("rkward::log_normal_probabilities", logp.state="0", lower.state="1", meanlog.real="0.0", mode.string="p", q.tsv="", sdlog.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="log_normal_clt", call=function () {
rk.call.plugin ("rkward::plot_log_normal_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.angle.real="45.00", histogram_opt.barlabels.state="", histogram_opt.density.real="7.00", histogram_opt.doborder.state="", histogram_opt.freq.state="0", histogram_opt.histbreaksFunction.string="Scott", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", mean.real="0.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", sd.real="1.00", submit.mode="submit")
@@ -144,10 +114,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_lognormal_distribution", function.string="p", log.state="0", lower.state="1", max.real="3.29", mean.real="4.00", min.real="0.01", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", sd.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="normal_probabilities", call=function () {
- rk.call.plugin ("rkward::normal_probabilities", logp.string="log.p = FALSE", mean.real="0.00", q.text="0.95", sd.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="normal_quantiles", call=function () {
- rk.call.plugin ("rkward::normal_quantiles", logp.string="log.p = FALSE", mean.real="0.00", p.text="0.95", sd.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::normal_probabilities", logp.state="0", lower.state="1", mean.real="0.00", mode.string="p", q.tsv="", sd.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="normal_clt", call=function () {
rk.call.plugin ("rkward::plot_normal_clt", dist_stepfun.addtoplot.state="", dist_stepfun.col_hor.color.string="blue", dist_stepfun.col_vert.color.string="blue", dist_stepfun.col_y0.color.string="gold", dist_stepfun.col_y1.color.string="cyan", dist_stepfun.do_points.state="", dist_stepfun.linetype.string="", dist_stepfun.verticals.state="1", drawnorm.state="1", function.string="dist", mean.real="0.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", sd.real="1.00", submit.mode="submit")
@@ -156,10 +123,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_normal_distribution", function.string="d", log.state="0", max.real="3.29", mean.real="0.00", min.real="-3.29", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", sd.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="t_probabilities", call=function () {
- rk.call.plugin ("rkward::t_probabilities", df.real="1.00", logp.string="log.p = FALSE", ncp.real="0.00", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="t_quantiles", call=function () {
- rk.call.plugin ("rkward::t_quantiles", df.real="1.00", logp.string="log.p = FALSE", ncp.real="0.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::t_probabilities", df.real="10.0", logp.state="0", lower.state="1", mode.string="p", ncp.real="0.0", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="t_clt", call=function () {
rk.call.plugin ("rkward::plot_t_clt", df.real="3.00", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", ncp.real="0.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
@@ -168,19 +132,13 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_t_distribution", df.real="1.00", function.string="p", log.state="0", lower.state="1", max.real="12.924", min.real="-12.924", n.real="100.00", ncp.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="tukey_probabilities", call=function () {
- rk.call.plugin ("rkward::tukey_probabilities", df.text="5", logp.string="log.p = FALSE", nmeans.real="2.00", nranges.real="1.00", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="tukey_quantiles", call=function () {
- rk.call.plugin ("rkward::tukey_quantiles", df.text="2:11", logp.string="log.p = FALSE", nmeans.real="2.00", nranges.real="1.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::tukey_probabilities", df.real="5.0", logp.state="0", lower.state="1", mode.string="p", nmeans.real="5.00", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="plot_tukey_distribution", call=function () {
rk.call.plugin ("rkward::plot_tukey_distribution", df.real="5.00", log.state="0", lower.state="1", max.real="8.00", min.real="-1.00", n.real="101.00", nmeans.real="6.00", nranges.real="1.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="uniform_probabilities", call=function () {
- rk.call.plugin ("rkward::uniform_probabilities", logp.string="log.p = FALSE", max.real="1.00", min.real="0.00", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="uniform_quantiles", call=function () {
- rk.call.plugin ("rkward::uniform_quantiles", logp.string="log.p = FALSE", max.real="1.00", min.real="0.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::uniform_probabilities", logp.state="0", lower.state="1", max.real="1.00", min.real="0.00", mode.string="p", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="uniform_clt", call=function () {
rk.call.plugin ("rkward::plot_uniform_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", llim.real="0.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", ulim.real="1.00", submit.mode="submit")
@@ -189,10 +147,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_uniform_distribution", function.string="d", llim.real="0.00", log.state="0", max.real="2.00", min.real="-1.00", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", ulim.real="1.00", submit.mode="submit")
}),
new ("RKTest", id="weibull_probabilities", call=function () {
- rk.call.plugin ("rkward::weibull_probabilities", logp.string="log.p = FALSE", q.text="0.95", scale.real="1.00", shape.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="weibull_quantiles", call=function () {
- rk.call.plugin ("rkward::weibull_quantiles", logp.string="log.p = FALSE", p.text="0.95", scale.real="1.00", shape.real="1.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::weibull_probabilities", logp.state="0", lower.state="1", mode.string="p", q.tsv="", scale.real="1.0", shape.real="1.0", submit.mode="submit")
}),
new ("RKTest", id="weibull_clt", call=function () {
rk.call.plugin ("rkward::plot_weibull_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scale.real="1.00", scalenorm.state="0", shape.real="2.00", submit.mode="submit")
@@ -201,10 +156,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_weibull_distribution", function.string="d", log.state="0", max.real="5.00", min.real="0.00", n.real="100.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scale.real="1.00", shape.real="2.00", submit.mode="submit")
}),
new ("RKTest", id="binomial_probabilities", call=function () {
- rk.call.plugin ("rkward::binomial_tail_probabilities", logp.string="log.p = FALSE", prob.real="0.50", q.text="0.95 2", size.real="3.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="binomial_quantiles", call=function () {
- rk.call.plugin ("rkward::binomial_quantiles", logp.string="log.p = FALSE", p.text="0.95 .5", prob.real="0.50", size.real="3.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::binomial_probabilities", logp.state="0", lower.state="1", mode.string="p", prob.real="0.50", q.tsv="", size.real="10.00", submit.mode="submit")
}),
new ("RKTest", id="binomial_clt", call=function () {
rk.call.plugin ("rkward::plot_binomial_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="int", histogram_opt.histlinetype.string="solid", histogram_opt.include_lowest.state="1", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="1.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.50", scalenorm.state="0", size.real="11.00", submit.mode="submit")
@@ -213,10 +165,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_binomial_distribution", function.string="d", log.state="0", max.real="12.00", min.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="p", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.50", size.real="12.00", submit.mode="submit")
}),
new ("RKTest", id="geom_probabilities", call=function () {
- rk.call.plugin ("rkward::geom_probabilities", logp.string="log.p = FALSE", prob.real="0.50", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="geom_quantiles", call=function () {
- rk.call.plugin ("rkward::geom_quantiles", logp.string="log.p = FALSE", p.text="0.95", prob.real="0.50", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::geom_probabilities", logp.state="0", lower.state="1", mode.string="p", prob.real="0.50", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="geometric_clt", call=function () {
rk.call.plugin ("rkward::plot_geometric_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.50", scalenorm.state="0", submit.mode="submit")
@@ -225,10 +174,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_geometric_distribution", function.string="d", log.state="0", max.real="12.00", min.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="p", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.50", submit.mode="submit")
}),
new ("RKTest", id="hypergeometric_probabilities", call=function () {
- rk.call.plugin ("rkward::hypergeometric_probabilities", k.real="4.00", logp.string="log.p = FALSE", m.real="5.00", n.real="4.00", q.text="0 1 2 3 4 5", tail.string="lower.tail=FALSE", submit.mode="submit")
- }),
- new ("RKTest", id="hypergeometric_quantiles", call=function () {
- rk.call.plugin ("rkward::hypergeometric_quantiles", k.real="1.00", logp.string="log.p = FALSE", m.real="1.00", n.real="1.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::hypergeometric_probabilities", k.real="5.00", logp.state="0", lower.state="1", m.real="10.00", mode.string="p", n.real="10.00", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="hypergeometric_clt", call=function () {
rk.call.plugin ("rkward::plot_hypergeometric_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", k.real="15.00", m.real="12.00", n.real="12.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
@@ -237,10 +183,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_hypergeometric_distribution", function.string="p", k.real="15.00", log.state="0", lower.state="1", m.real="12.00", max.real="12.00", min.real="0.00", n_val.real="12.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="p", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="negative_binomial_probabilities", call=function () {
- rk.call.plugin ("rkward::negative_binomial_probabilities", logp.string="log.p = TRUE", prob.real="0.50", q.text="0.95", size.real="3.00", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="negative_binomial_quantiles", call=function () {
- rk.call.plugin ("rkward::negative_binomial_quantiles", logp.string="log.p = FALSE", p.text="0.95", prob.real="0.50", size.real="4.00", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::negative_binomial_probabilities", logp.state="0", lower.state="1", mode.string="p", prob.real="0.5", q.tsv="", size.real="5", submit.mode="submit")
}),
new ("RKTest", id="negbinomial_clt", call=function () {
rk.call.plugin ("rkward::plot_negbinomial_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", param.string="pprob", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.28", scalenorm.state="0", size_disp.real="12.00", size_trial.real="12.00", submit.mode="submit")
@@ -249,10 +192,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_negbinomial_distribution", function.string="d", log.state="0", max.real="24.00", min.real="0.00", param.string="pprob", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="p", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", prob.real="0.75", size_disp.real="12.00", size_trial.real="12.00", submit.mode="submit")
}),
new ("RKTest", id="poisson_probabilities", call=function () {
- rk.call.plugin ("rkward::poisson_probabilities", lambda.real="1.07", logp.string="log.p = TRUE", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="poisson_quantiles", call=function () {
- rk.call.plugin ("rkward::poisson_quantiles", lambda.real="1.00", logp.string="log.p = FALSE", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::poisson_probabilities", lambda.real="1.0", logp.state="0", lower.state="1", mode.string="p", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="poisson_clt", call=function () {
rk.call.plugin ("rkward::plot_poisson_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", mean.real="5.00", nAvg.real="10.00", nDist.real="1000.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
@@ -261,10 +201,7 @@ suite <- new ("RKTestSuite", id="distributions",
rk.call.plugin ("rkward::plot_poisson_distribution", function.string="d", log.state="0", max.real="12.00", mean.real="5.00", min.real="0.00", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="p", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", submit.mode="submit")
}),
new ("RKTest", id="wilcoxon_probabilities", call=function () {
- rk.call.plugin ("rkward::wilcoxon_probabilities", logp.string="log.p = FALSE", m.real="2.00", n.real="1.00", q.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
- }),
- new ("RKTest", id="wilcoxon_quantiles", call=function () {
- rk.call.plugin ("rkward::wilcoxon_quantiles", logp.string="log.p = FALSE", m.real="1.00", n.real="2.00", p.text="0.95", tail.string="lower.tail=TRUE", submit.mode="submit")
+ rk.call.plugin ("rkward::wilcoxon_probabilities", logp.state="0", lower.state="1", m.real="5.00", mode.string="p", n.real="5.00", q.tsv="", submit.mode="submit")
}),
new ("RKTest", id="wilcoxon_clt", call=function () {
rk.call.plugin ("rkward::plot_wilcoxon_clt", drawnorm.state="1", function.string="hist", histogram_opt.addtoplot.state="", histogram_opt.barlabels.state="", histogram_opt.density.real="-1.00", histogram_opt.doborder.state="1", histogram_opt.freq.state="0", histogram_opt.histbordercol.color.string="", histogram_opt.histbreaksFunction.string="Sturges", histogram_opt.histlinetype.string="solid", histogram_opt.rightclosed.state="1", histogram_opt.usefillcol.state="", nAvg.real="10.00", nDist.real="1000.00", nm.real="4.00", nn.real="6.00", normlinecol.color.string="red", normpointtype.string="l", plotoptions.add_grid.state="0", plotoptions.asp.real="0.00", plotoptions.main.text="", plotoptions.pointcolor.color.string="", plotoptions.pointtype.string="", plotoptions.sub.text="", plotoptions.xaxt.state="", plotoptions.xlab.text="", plotoptions.xlog.state="", plotoptions.xmaxvalue.text="", plotoptions.xminvalue.text="", plotoptions.yaxt.state="", plotoptions.ylab.text="", plotoptions.ylog.state="", plotoptions.ymaxvalue.text="", plotoptions.yminvalue.text="", scalenorm.state="0", submit.mode="submit")
diff --git a/tests/distributions/beta_probabilities.rkcommands.R b/tests/distributions/beta_probabilities.rkcommands.R
index da77ecd..6126f2e 100644
--- a/tests/distributions/beta_probabilities.rkcommands.R
+++ b/tests/distributions/beta_probabilities.rkcommands.R
@@ -1,14 +1,86 @@
local({
## Compute
-result <- (pbeta (q = c (0.95), shape1 = 1.00, shape2 = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, 1, length.out=20)
+p <- pbeta (q, shape1=1.0, shape2=1.0, ncp=0.0)
## Print result
-rk.header ("Beta probability", list ("Vector of quantiles", "c (0.95)", "Shape 1", "1.00", "Shape 2", "1.00", "non-centrality parameter (ncp)", "0.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Beta probability")
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="1.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
local({
## Compute
-result <- (pbeta (q = c (0.96), shape1 = 1.01, shape2 = 1.01, ncp = 0.02, lower.tail=FALSE, log.p = TRUE))
+q <- seq (0, 1, length.out=20)
+p <- pbeta (q, shape1=1.0, shape2=1.0, ncp=0.0, log.p=TRUE, lower.tail=FALSE)
## Print result
-rk.header ("Beta probability", list ("Vector of quantiles", "c (0.96)", "Shape 1", "1.01", "Shape 2", "1.01", "non-centrality parameter (ncp)", "0.02", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
-rk.results (result, titles="Beta probability")
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="1.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Upper tail: P[X > x]"))
+rk.results (data.frame ("Quantile"=q, "log (Probability)"=p, check.names=FALSE))
+})
+local({
+## Compute
+q <- seq (0, 1, length.out=20)
+d <- dbeta (q, shape1=2.0, shape2=1.0, ncp=0.0, log=TRUE)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="2.0",
+ "Shape 2"="1.0",
+ "non-centrality parameter (ncp)"="0.0"))
+rk.results (data.frame ("Quantile"=q, "log (Density)"=d, check.names=FALSE))
+})
+local({
+## Compute
+q <- seq (0, 1, length.out=20)
+d <- dbeta (q, shape1=1.0, shape2=2.0, ncp=0.0)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="2.0",
+ "non-centrality parameter (ncp)"="0.0"))
+rk.results (data.frame ("Quantile"=q, "Density"=d, check.names=FALSE))
+})
+local({
+## Compute
+p <- -21:0
+q <- qbeta (p, shape1=1.0, shape2=2.0, ncp=0.0, log.p=TRUE)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="2.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("log (Probability)"=p, "Quantile"=q, check.names=FALSE))
+})
+local({
+## Compute
+p <- seq (0, 1, length.out=21)
+q <- qbeta (p, shape1=1.0, shape2=2.0, ncp=0.0)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="2.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Probability"=p, "Quantile"=q, check.names=FALSE))
+})
+local({
+## Compute
+p <- c (.1, .2, .3)
+q <- qbeta (p, shape1=1.0, shape2=2.0, ncp=0.0)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="2.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Probability"=p, "Quantile"=q, check.names=FALSE))
+})
+local({
+## Compute
+q <- 1
+p <- pbeta (q, shape1=1.0, shape2=2.0, ncp=0.0)
+## Print result
+rk.header ("Beta distribution", parameters=list("Shape 1"="1.0",
+ "Shape 2"="2.0",
+ "non-centrality parameter (ncp)"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/beta_probabilities.rkout b/tests/distributions/beta_probabilities.rkout
index 2eb8d9d..a6a9287 100644
--- a/tests/distributions/beta_probabilities.rkout
+++ b/tests/distributions/beta_probabilities.rkout
@@ -1,21 +1,213 @@
-<h1>Beta probability</h1>
+<h1>Beta distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Shape 1: 1.00</li>
-<li>Shape 2: 1.00</li>
-<li>non-centrality parameter (ncp): 0.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 1.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Beta probability: 0.95</h3><h1>Beta probability</h1>
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.000000</td><td>0.000000</td></tr>
+<tr><td>0.052632</td><td>0.052632</td></tr>
+<tr><td>0.105263</td><td>0.105263</td></tr>
+<tr><td>0.157895</td><td>0.157895</td></tr>
+<tr><td>0.210526</td><td>0.210526</td></tr>
+<tr><td>0.263158</td><td>0.263158</td></tr>
+<tr><td>0.315789</td><td>0.315789</td></tr>
+<tr><td>0.368421</td><td>0.368421</td></tr>
+<tr><td>0.421053</td><td>0.421053</td></tr>
+<tr><td>0.473684</td><td>0.473684</td></tr>
+<tr><td>0.526316</td><td>0.526316</td></tr>
+<tr><td>0.578947</td><td>0.578947</td></tr>
+<tr><td>0.631579</td><td>0.631579</td></tr>
+<tr><td>0.684211</td><td>0.684211</td></tr>
+<tr><td>0.736842</td><td>0.736842</td></tr>
+<tr><td>0.789474</td><td>0.789474</td></tr>
+<tr><td>0.842105</td><td>0.842105</td></tr>
+<tr><td>0.894737</td><td>0.894737</td></tr>
+<tr><td>0.947368</td><td>0.947368</td></tr>
+<tr><td>1.000000</td><td>1.000000</td></tr>
+</table>
+<h1>Beta distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.96)</li>
-<li>Shape 1: 1.01</li>
-<li>Shape 2: 1.01</li>
-<li>non-centrality parameter (ncp): 0.02</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 1.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Upper tail: P[X > x]</li>
</ul>
DATE<br />
-<h3>Beta probability: -3.2317</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>log (Probability)</td></tr>
+<tr><td>0.000000</td><td> 0.000000</td></tr>
+<tr><td>0.052632</td><td>-0.054067</td></tr>
+<tr><td>0.105263</td><td>-0.111226</td></tr>
+<tr><td>0.157895</td><td>-0.171850</td></tr>
+<tr><td>0.210526</td><td>-0.236389</td></tr>
+<tr><td>0.263158</td><td>-0.305382</td></tr>
+<tr><td>0.315789</td><td>-0.379490</td></tr>
+<tr><td>0.368421</td><td>-0.459532</td></tr>
+<tr><td>0.421053</td><td>-0.546544</td></tr>
+<tr><td>0.473684</td><td>-0.641854</td></tr>
+<tr><td>0.526316</td><td>-0.747214</td></tr>
+<tr><td>0.578947</td><td>-0.864997</td></tr>
+<tr><td>0.631579</td><td>-0.998529</td></tr>
+<tr><td>0.684211</td><td>-1.152680</td></tr>
+<tr><td>0.736842</td><td>-1.335001</td></tr>
+<tr><td>0.789474</td><td>-1.558145</td></tr>
+<tr><td>0.842105</td><td>-1.845827</td></tr>
+<tr><td>0.894737</td><td>-2.251292</td></tr>
+<tr><td>0.947368</td><td>-2.944439</td></tr>
+<tr><td>1.000000</td><td> -Inf</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 2.0</li>
+<li>Shape 2: 1.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Quantile</td><td>log (Density)</td></tr>
+<tr><td>0.000000</td><td> -Inf</td></tr>
+<tr><td>0.052632</td><td>-2.251292</td></tr>
+<tr><td>0.105263</td><td>-1.558145</td></tr>
+<tr><td>0.157895</td><td>-1.152680</td></tr>
+<tr><td>0.210526</td><td>-0.864997</td></tr>
+<tr><td>0.263158</td><td>-0.641854</td></tr>
+<tr><td>0.315789</td><td>-0.459532</td></tr>
+<tr><td>0.368421</td><td>-0.305382</td></tr>
+<tr><td>0.421053</td><td>-0.171850</td></tr>
+<tr><td>0.473684</td><td>-0.054067</td></tr>
+<tr><td>0.526316</td><td> 0.051293</td></tr>
+<tr><td>0.578947</td><td> 0.146603</td></tr>
+<tr><td>0.631579</td><td> 0.233615</td></tr>
+<tr><td>0.684211</td><td> 0.313658</td></tr>
+<tr><td>0.736842</td><td> 0.387766</td></tr>
+<tr><td>0.789474</td><td> 0.456758</td></tr>
+<tr><td>0.842105</td><td> 0.521297</td></tr>
+<tr><td>0.894737</td><td> 0.581922</td></tr>
+<tr><td>0.947368</td><td> 0.639080</td></tr>
+<tr><td>1.000000</td><td> 0.693147</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 2.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Quantile</td><td>Density</td></tr>
+<tr><td>0.000000</td><td>2.00000</td></tr>
+<tr><td>0.052632</td><td>1.89474</td></tr>
+<tr><td>0.105263</td><td>1.78947</td></tr>
+<tr><td>0.157895</td><td>1.68421</td></tr>
+<tr><td>0.210526</td><td>1.57895</td></tr>
+<tr><td>0.263158</td><td>1.47368</td></tr>
+<tr><td>0.315789</td><td>1.36842</td></tr>
+<tr><td>0.368421</td><td>1.26316</td></tr>
+<tr><td>0.421053</td><td>1.15789</td></tr>
+<tr><td>0.473684</td><td>1.05263</td></tr>
+<tr><td>0.526316</td><td>0.94737</td></tr>
+<tr><td>0.578947</td><td>0.84211</td></tr>
+<tr><td>0.631579</td><td>0.73684</td></tr>
+<tr><td>0.684211</td><td>0.63158</td></tr>
+<tr><td>0.736842</td><td>0.52632</td></tr>
+<tr><td>0.789474</td><td>0.42105</td></tr>
+<tr><td>0.842105</td><td>0.31579</td></tr>
+<tr><td>0.894737</td><td>0.21053</td></tr>
+<tr><td>0.947368</td><td>0.10526</td></tr>
+<tr><td>1.000000</td><td>0.00000</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 2.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>log (Probability)</td><td>Quantile</td></tr>
+<tr><td>-21</td><td>3.7913e-10</td></tr>
+<tr><td>-20</td><td>1.0306e-09</td></tr>
+<tr><td>-19</td><td>2.8014e-09</td></tr>
+<tr><td>-18</td><td>7.6150e-09</td></tr>
+<tr><td>-17</td><td>2.0700e-08</td></tr>
+<tr><td>-16</td><td>5.6268e-08</td></tr>
+<tr><td>-15</td><td>1.5295e-07</td></tr>
+<tr><td>-14</td><td>4.1576e-07</td></tr>
+<tr><td>-13</td><td>1.1302e-06</td></tr>
+<tr><td>-12</td><td>3.0721e-06</td></tr>
+<tr><td>-11</td><td>8.3509e-06</td></tr>
+<tr><td>-10</td><td>2.2700e-05</td></tr>
+<tr><td> -9</td><td>6.1707e-05</td></tr>
+<tr><td> -8</td><td>1.6775e-04</td></tr>
+<tr><td> -7</td><td>4.5604e-04</td></tr>
+<tr><td> -6</td><td>1.2401e-03</td></tr>
+<tr><td> -5</td><td>3.3747e-03</td></tr>
+<tr><td> -4</td><td>9.2001e-03</td></tr>
+<tr><td> -3</td><td>2.5211e-02</td></tr>
+<tr><td> -2</td><td>7.0127e-02</td></tr>
+<tr><td> -1</td><td>2.0494e-01</td></tr>
+<tr><td> 0</td><td>1.0000e+00</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 2.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Probability</td><td>Quantile</td></tr>
+<tr><td>0.00</td><td>0.000000</td></tr>
+<tr><td>0.05</td><td>0.025321</td></tr>
+<tr><td>0.10</td><td>0.051317</td></tr>
+<tr><td>0.15</td><td>0.078046</td></tr>
+<tr><td>0.20</td><td>0.105573</td></tr>
+<tr><td>0.25</td><td>0.133975</td></tr>
+<tr><td>0.30</td><td>0.163340</td></tr>
+<tr><td>0.35</td><td>0.193774</td></tr>
+<tr><td>0.40</td><td>0.225403</td></tr>
+<tr><td>0.45</td><td>0.258380</td></tr>
+<tr><td>0.50</td><td>0.292893</td></tr>
+<tr><td>0.55</td><td>0.329180</td></tr>
+<tr><td>0.60</td><td>0.367544</td></tr>
+<tr><td>0.65</td><td>0.408392</td></tr>
+<tr><td>0.70</td><td>0.452277</td></tr>
+<tr><td>0.75</td><td>0.500000</td></tr>
+<tr><td>0.80</td><td>0.552786</td></tr>
+<tr><td>0.85</td><td>0.612702</td></tr>
+<tr><td>0.90</td><td>0.683772</td></tr>
+<tr><td>0.95</td><td>0.776393</td></tr>
+<tr><td>1.00</td><td>1.000000</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 2.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Probability</td><td>Quantile</td></tr>
+<tr><td>0.1</td><td>0.051317</td></tr>
+<tr><td>0.2</td><td>0.105573</td></tr>
+<tr><td>0.3</td><td>0.163340</td></tr>
+</table>
+<h1>Beta distribution</h1>
+<h2>Parameters</h2>
+<ul><li>Shape 1: 1.0</li>
+<li>Shape 2: 2.0</li>
+<li>non-centrality parameter (ncp): 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
+</ul>
+DATE<br />
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>1</td><td>1</td></tr>
+</table>
diff --git a/tests/distributions/beta_quantiles.rkcommands.R b/tests/distributions/beta_quantiles.rkcommands.R
deleted file mode 100644
index 31fc17a..0000000
--- a/tests/distributions/beta_quantiles.rkcommands.R
+++ /dev/null
@@ -1,14 +0,0 @@
-local({
-## Compute
-result <- (qbeta (p = c (0.95), shape1 = 1.00, shape2 = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Beta quantiles", list ("Vector of probabilities", "c (0.95)", "Shape 1", "1.00", "Shape 2", "1.00", "non-centrality parameter (ncp)", "0.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Beta quantiles")
-})
-local({
-## Compute
-result <- (qbeta (p = c (-1), shape1 = 1.04, shape2 = 1.03, ncp = 0.08, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Beta quantiles", list ("Vector of probabilities", "c (-1)", "Shape 1", "1.04", "Shape 2", "1.03", "non-centrality parameter (ncp)", "0.08", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
-rk.results (result, titles="Beta quantiles")
-})
diff --git a/tests/distributions/beta_quantiles.rkout b/tests/distributions/beta_quantiles.rkout
deleted file mode 100644
index c9a3122..0000000
--- a/tests/distributions/beta_quantiles.rkout
+++ /dev/null
@@ -1,21 +0,0 @@
-<h1>Beta quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Shape 1: 1.00</li>
-<li>Shape 2: 1.00</li>
-<li>non-centrality parameter (ncp): 0.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Beta quantiles: 0.95</h3><h1>Beta quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (-1)</li>
-<li>Shape 1: 1.04</li>
-<li>Shape 2: 1.03</li>
-<li>non-centrality parameter (ncp): 0.08</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Beta quantiles: 0.6414</h3>
\ No newline at end of file
diff --git a/tests/distributions/binomial_probabilities.rkcommands.R b/tests/distributions/binomial_probabilities.rkcommands.R
index 7ba0d9d..2626e09 100644
--- a/tests/distributions/binomial_probabilities.rkcommands.R
+++ b/tests/distributions/binomial_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pbinom (q = c (0.95, 2), size = 3, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
+q <- 0:10
+p <- pbinom (q, size=10, prob=0.50)
## Print result
-rk.header ("Binomial tail probability", list ("Vector of quantiles", "c (0.95, 2)", "Binomial trials", "3", "Probability of success", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Binomial tail probabilities")
+rk.header ("Binomial distribution", parameters=list("Binomial trials"="10",
+ "Probability of success"="0.50",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/binomial_probabilities.rkout b/tests/distributions/binomial_probabilities.rkout
index 34fe1aa..d35d8aa 100644
--- a/tests/distributions/binomial_probabilities.rkout
+++ b/tests/distributions/binomial_probabilities.rkout
@@ -1,10 +1,21 @@
-<h1>Binomial tail probability</h1>
+<h1>Binomial distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95, 2)</li>
-<li>Binomial trials: 3</li>
+<ul><li>Binomial trials: 10</li>
<li>Probability of success: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Binomial tail probabilities: 0.125 0.875</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0</td><td>0.00097656</td></tr>
+<tr><td> 1</td><td>0.01074219</td></tr>
+<tr><td> 2</td><td>0.05468750</td></tr>
+<tr><td> 3</td><td>0.17187500</td></tr>
+<tr><td> 4</td><td>0.37695313</td></tr>
+<tr><td> 5</td><td>0.62304687</td></tr>
+<tr><td> 6</td><td>0.82812500</td></tr>
+<tr><td> 7</td><td>0.94531250</td></tr>
+<tr><td> 8</td><td>0.98925781</td></tr>
+<tr><td> 9</td><td>0.99902344</td></tr>
+<tr><td>10</td><td>1.00000000</td></tr>
+</table>
diff --git a/tests/distributions/binomial_quantiles.rkcommands.R b/tests/distributions/binomial_quantiles.rkcommands.R
deleted file mode 100644
index 9b98329..0000000
--- a/tests/distributions/binomial_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qbinom (p = c (0.95, .5), size = 3, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Binomial quantile", list ("Vector of quantiles probabilities", "c (0.95, .5)", "Binomial trials", "3", "Probability of success", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Binomial quantiles")
-})
diff --git a/tests/distributions/binomial_quantiles.rkout b/tests/distributions/binomial_quantiles.rkout
deleted file mode 100644
index 5843bab..0000000
--- a/tests/distributions/binomial_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Binomial quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of quantiles probabilities: c (0.95, .5)</li>
-<li>Binomial trials: 3</li>
-<li>Probability of success: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Binomial quantiles: 3 1</h3>
\ No newline at end of file
diff --git a/tests/distributions/cauchy_probabilities.rkcommands.R b/tests/distributions/cauchy_probabilities.rkcommands.R
index 4ccdfb3..5dbd094 100644
--- a/tests/distributions/cauchy_probabilities.rkcommands.R
+++ b/tests/distributions/cauchy_probabilities.rkcommands.R
@@ -1,14 +1,10 @@
local({
## Compute
-result <- (pcauchy (q = c (0.95), location = 0.03, scale = 1.02, lower.tail=TRUE, log.p = FALSE))
+q <- seq (qcauchy (.01, location=0.00, scale=1.00), qcauchy (.99, location=0.00, scale=1.00), length.out=20)
+p <- pcauchy (q, location=0.00, scale=1.00)
## Print result
-rk.header ("Cauchy probabilities", list ("Vector of quantiles", "c (0.95)", "Location", "0.03", "Scale", "1.02", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Cauchy probabilities")
-})
-local({
-## Compute
-result <- (pcauchy (q = c (0.95), location = -0.02, scale = 1.03, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Cauchy probabilities", list ("Vector of quantiles", "c (0.95)", "Location", "-0.02", "Scale", "1.03", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Cauchy probabilities")
+rk.header ("Cauchy distribution", parameters=list("Location"="0.00",
+ "Scale"="1.00",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/cauchy_probabilities.rkout b/tests/distributions/cauchy_probabilities.rkout
index e3ee319..a026abd 100644
--- a/tests/distributions/cauchy_probabilities.rkout
+++ b/tests/distributions/cauchy_probabilities.rkout
@@ -1,19 +1,30 @@
-<h1>Cauchy probabilities</h1>
+<h1>Cauchy distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Location: 0.03</li>
-<li>Scale: 1.02</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Location: 0.00</li>
+<li>Scale: 1.00</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Cauchy probabilities: 0.73361</h3><h1>Cauchy probabilities</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Location: -0.02</li>
-<li>Scale: 1.03</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Cauchy probabilities: -1.3488</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>-31.8205</td><td>0.010000</td></tr>
+<tr><td>-28.4710</td><td>0.011176</td></tr>
+<tr><td>-25.1215</td><td>0.012664</td></tr>
+<tr><td>-21.7719</td><td>0.014610</td></tr>
+<tr><td>-18.4224</td><td>0.017261</td></tr>
+<tr><td>-15.0729</td><td>0.021087</td></tr>
+<tr><td>-11.7233</td><td>0.027086</td></tr>
+<tr><td> -8.3738</td><td>0.037833</td></tr>
+<tr><td> -5.0243</td><td>0.062537</td></tr>
+<tr><td> -1.6748</td><td>0.171341</td></tr>
+<tr><td> 1.6748</td><td>0.828659</td></tr>
+<tr><td> 5.0243</td><td>0.937463</td></tr>
+<tr><td> 8.3738</td><td>0.962167</td></tr>
+<tr><td> 11.7233</td><td>0.972914</td></tr>
+<tr><td> 15.0729</td><td>0.978913</td></tr>
+<tr><td> 18.4224</td><td>0.982739</td></tr>
+<tr><td> 21.7719</td><td>0.985390</td></tr>
+<tr><td> 25.1215</td><td>0.987336</td></tr>
+<tr><td> 28.4710</td><td>0.988824</td></tr>
+<tr><td> 31.8205</td><td>0.990000</td></tr>
+</table>
diff --git a/tests/distributions/cauchy_quantiles.rkcommands.R b/tests/distributions/cauchy_quantiles.rkcommands.R
deleted file mode 100644
index 5c6e801..0000000
--- a/tests/distributions/cauchy_quantiles.rkcommands.R
+++ /dev/null
@@ -1,14 +0,0 @@
-local({
-## Compute
-result <- (qcauchy (p = c (0.95), location = -0.03, scale = 1.03, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Cauchy quantiles", list ("Vector of probabilities", "c (0.95)", "Location", "-0.03", "Scale", "1.03", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Cauchy quantiles")
-})
-local({
-## Compute
-result <- (qcauchy (p = c (-1, -2), location = 0.02, scale = 0.98, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Cauchy quantiles", list ("Vector of probabilities", "c (-1, -2)", "Location", "0.02", "Scale", "0.98", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
-rk.results (result, titles="Cauchy quantiles")
-})
diff --git a/tests/distributions/cauchy_quantiles.rkout b/tests/distributions/cauchy_quantiles.rkout
deleted file mode 100644
index d44e358..0000000
--- a/tests/distributions/cauchy_quantiles.rkout
+++ /dev/null
@@ -1,19 +0,0 @@
-<h1>Cauchy quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Location: -0.03</li>
-<li>Scale: 1.03</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Cauchy quantiles: 6.4732</h3><h1>Cauchy quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (-1, -2)</li>
-<li>Location: 0.02</li>
-<li>Scale: 0.98</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Cauchy quantiles: 0.45186 2.1844</h3>
\ No newline at end of file
diff --git a/tests/distributions/chi_squared_probabilities.rkcommands.R b/tests/distributions/chi_squared_probabilities.rkcommands.R
index 4a11567..ad2e012 100644
--- a/tests/distributions/chi_squared_probabilities.rkcommands.R
+++ b/tests/distributions/chi_squared_probabilities.rkcommands.R
@@ -1,14 +1,10 @@
local({
## Compute
-result <- (pchisq (q = c (0.97, 0.65), df = 3.00, ncp = 0.05, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, 5, length.out=20)
+p <- pchisq (q, df=1.00, ncp=0.00)
## Print result
-rk.header ("Chi-squared probability", list ("Vector of quantiles", "c (0.97, 0.65)", "Degrees of Freedom", "3.00", "non-centrality parameter", "0.05", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Chi-squared probabilities")
-})
-local({
-## Compute
-result <- (pchisq (q = c (1), df = 1.01, ncp = 0.02, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Chi-squared probability", list ("Vector of quantiles", "c (1)", "Degrees of Freedom", "1.01", "non-centrality parameter", "0.02", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
-rk.results (result, titles="Chi-squared probabilities")
+rk.header ("Chi-squared distribution", parameters=list("Degrees of Freedom"="1.00",
+ "non-centrality parameter"="0.00",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/chi_squared_probabilities.rkout b/tests/distributions/chi_squared_probabilities.rkout
index 0066512..d8f5d2c 100644
--- a/tests/distributions/chi_squared_probabilities.rkout
+++ b/tests/distributions/chi_squared_probabilities.rkout
@@ -1,19 +1,30 @@
-<h1>Chi-squared probability</h1>
+<h1>Chi-squared distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.97, 0.65)</li>
-<li>Degrees of Freedom: 3.00</li>
-<li>non-centrality parameter: 0.05</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Degrees of Freedom: 1.00</li>
+<li>non-centrality parameter: 0.00</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Chi-squared probabilities: 0.18762 0.11261</h3><h1>Chi-squared probability</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (1)</li>
-<li>Degrees of Freedom: 1.01</li>
-<li>non-centrality parameter: 0.02</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Chi-squared probabilities: -1.1229</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.00000</td><td>0.00000</td></tr>
+<tr><td>0.26316</td><td>0.39204</td></tr>
+<tr><td>0.52632</td><td>0.53184</td></tr>
+<tr><td>0.78947</td><td>0.62574</td></tr>
+<tr><td>1.05263</td><td>0.69510</td></tr>
+<tr><td>1.31579</td><td>0.74865</td></tr>
+<tr><td>1.57895</td><td>0.79109</td></tr>
+<tr><td>1.84211</td><td>0.82530</td></tr>
+<tr><td>2.10526</td><td>0.85321</td></tr>
+<tr><td>2.36842</td><td>0.87619</td></tr>
+<tr><td>2.63158</td><td>0.89524</td></tr>
+<tr><td>2.89474</td><td>0.91113</td></tr>
+<tr><td>3.15789</td><td>0.92444</td></tr>
+<tr><td>3.42105</td><td>0.93563</td></tr>
+<tr><td>3.68421</td><td>0.94507</td></tr>
+<tr><td>3.94737</td><td>0.95306</td></tr>
+<tr><td>4.21053</td><td>0.95983</td></tr>
+<tr><td>4.47368</td><td>0.96558</td></tr>
+<tr><td>4.73684</td><td>0.97048</td></tr>
+<tr><td>5.00000</td><td>0.97465</td></tr>
+</table>
diff --git a/tests/distributions/chi_squared_quantiles.rkcommands.R b/tests/distributions/chi_squared_quantiles.rkcommands.R
deleted file mode 100644
index 5172af6..0000000
--- a/tests/distributions/chi_squared_quantiles.rkcommands.R
+++ /dev/null
@@ -1,14 +0,0 @@
-local({
-## Compute
-result <- (qchisq (p = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Chi-squared quantile", list ("Vector of probabilities", "c (0.95)", "Degrees of freedom", "1.00", "non-centrality parameter", "0.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Chi-squared quantiles")
-})
-local({
-## Compute
-result <- (qchisq (p = c (-1, -2), df = 1.02, ncp = 3.00, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Chi-squared quantile", list ("Vector of probabilities", "c (-1, -2)", "Degrees of freedom", "1.02", "non-centrality parameter", "3.00", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
-rk.results (result, titles="Chi-squared quantiles")
-})
diff --git a/tests/distributions/chi_squared_quantiles.rkout b/tests/distributions/chi_squared_quantiles.rkout
deleted file mode 100644
index c5973fd..0000000
--- a/tests/distributions/chi_squared_quantiles.rkout
+++ /dev/null
@@ -1,19 +0,0 @@
-<h1>Chi-squared quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Degrees of freedom: 1.00</li>
-<li>non-centrality parameter: 0.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Chi-squared quantiles: 3.8415</h3><h1>Chi-squared quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (-1, -2)</li>
-<li>Degrees of freedom: 1.02</li>
-<li>non-centrality parameter: 3.00</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Chi-squared quantiles: 4.3068 8.0555</h3>
\ No newline at end of file
diff --git a/tests/distributions/exponential_probabilities.rkcommands.R b/tests/distributions/exponential_probabilities.rkcommands.R
index dbbe6cc..e4ae582 100644
--- a/tests/distributions/exponential_probabilities.rkcommands.R
+++ b/tests/distributions/exponential_probabilities.rkcommands.R
@@ -1,7 +1,9 @@
local({
## Compute
-result <- (pexp (q = c (0.96), rate = 1.07, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, 5, length.out=20)
+p <- pexp (q, rate=1.0)
## Print result
-rk.header ("Exponential probabilities", list ("Vector of quantiles", "c (0.96)", "Rate", "1.07", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Exponential probabilities")
+rk.header ("Exponential distribution", parameters=list("Rate"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/exponential_probabilities.rkout b/tests/distributions/exponential_probabilities.rkout
index ad8a622..24524a4 100644
--- a/tests/distributions/exponential_probabilities.rkout
+++ b/tests/distributions/exponential_probabilities.rkout
@@ -1,9 +1,29 @@
-<h1>Exponential probabilities</h1>
+<h1>Exponential distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.96)</li>
-<li>Rate: 1.07</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Rate: 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Exponential probabilities: 0.64199</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.00000</td><td>0.00000</td></tr>
+<tr><td>0.26316</td><td>0.23138</td></tr>
+<tr><td>0.52632</td><td>0.40922</td></tr>
+<tr><td>0.78947</td><td>0.54592</td></tr>
+<tr><td>1.05263</td><td>0.65098</td></tr>
+<tr><td>1.31579</td><td>0.73174</td></tr>
+<tr><td>1.57895</td><td>0.79381</td></tr>
+<tr><td>1.84211</td><td>0.84152</td></tr>
+<tr><td>2.10526</td><td>0.87819</td></tr>
+<tr><td>2.36842</td><td>0.90637</td></tr>
+<tr><td>2.63158</td><td>0.92804</td></tr>
+<tr><td>2.89474</td><td>0.94469</td></tr>
+<tr><td>3.15789</td><td>0.95748</td></tr>
+<tr><td>3.42105</td><td>0.96732</td></tr>
+<tr><td>3.68421</td><td>0.97488</td></tr>
+<tr><td>3.94737</td><td>0.98069</td></tr>
+<tr><td>4.21053</td><td>0.98516</td></tr>
+<tr><td>4.47368</td><td>0.98859</td></tr>
+<tr><td>4.73684</td><td>0.99123</td></tr>
+<tr><td>5.00000</td><td>0.99326</td></tr>
+</table>
diff --git a/tests/distributions/exponential_quantiles.rkcommands.R b/tests/distributions/exponential_quantiles.rkcommands.R
deleted file mode 100644
index 20630f5..0000000
--- a/tests/distributions/exponential_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qexp (p = c (-1.1), rate = 1.05, lower.tail=FALSE, log.p = TRUE))
-## Print result
-rk.header ("Exponential quantiles", list ("Vector of probabilities", "c (-1.1)", "Rate", "1.05", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Exponential quantiles")
-})
diff --git a/tests/distributions/exponential_quantiles.rkout b/tests/distributions/exponential_quantiles.rkout
deleted file mode 100644
index 63e7164..0000000
--- a/tests/distributions/exponential_quantiles.rkout
+++ /dev/null
@@ -1,9 +0,0 @@
-<h1>Exponential quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (-1.1)</li>
-<li>Rate: 1.05</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Exponential quantiles: 1.0476</h3>
\ No newline at end of file
diff --git a/tests/distributions/f_probabilities.rkcommands.R b/tests/distributions/f_probabilities.rkcommands.R
index 2738e66..3bb1b8d 100644
--- a/tests/distributions/f_probabilities.rkcommands.R
+++ b/tests/distributions/f_probabilities.rkcommands.R
@@ -1,7 +1,11 @@
local({
## Compute
-result <- (pf (q = c (.1, .2), df1 = 1.02, df2 = 1.11, ncp = 0.02, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, qf (.99, df1=1.0, df2=10.0, ncp=0.0), length.out=20)
+p <- pf (q, df1=1.0, df2=10.0, ncp=0.0)
## Print result
-rk.header ("F probability", list ("Vector of quantiles", "c (.1, .2)", "Numerator degrees of freedom", "1.02", "Denominator degrees of freedom", "1.11", "non-centrality parameter", "0.02", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="F probabilities")
+rk.header ("F distribution", parameters=list("Numerator degrees of Freedom"="1.0",
+ "Denominator degrees of Freedom"="10.0",
+ "non-centrality parameter"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/f_probabilities.rkout b/tests/distributions/f_probabilities.rkout
index 8a76c7b..315697e 100644
--- a/tests/distributions/f_probabilities.rkout
+++ b/tests/distributions/f_probabilities.rkout
@@ -1,11 +1,31 @@
-<h1>F probability</h1>
+<h1>F distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (.1, .2)</li>
-<li>Numerator degrees of freedom: 1.02</li>
-<li>Denominator degrees of freedom: 1.11</li>
-<li>non-centrality parameter: 0.02</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Numerator degrees of Freedom: 1.0</li>
+<li>Denominator degrees of Freedom: 10.0</li>
+<li>non-centrality parameter: 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>F probabilities: 0.19324 0.26733</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0.00000</td><td>0.00000</td></tr>
+<tr><td> 0.52865</td><td>0.51615</td></tr>
+<tr><td> 1.05729</td><td>0.67194</td></tr>
+<tr><td> 1.58594</td><td>0.76349</td></tr>
+<tr><td> 2.11459</td><td>0.82344</td></tr>
+<tr><td> 2.64323</td><td>0.86495</td></tr>
+<tr><td> 3.17188</td><td>0.89474</td></tr>
+<tr><td> 3.70053</td><td>0.91670</td></tr>
+<tr><td> 4.22917</td><td>0.93322</td></tr>
+<tr><td> 4.75782</td><td>0.94587</td></tr>
+<tr><td> 5.28647</td><td>0.95569</td></tr>
+<tr><td> 5.81511</td><td>0.96341</td></tr>
+<tr><td> 6.34376</td><td>0.96954</td></tr>
+<tr><td> 6.87241</td><td>0.97447</td></tr>
+<tr><td> 7.40106</td><td>0.97846</td></tr>
+<tr><td> 7.92970</td><td>0.98171</td></tr>
+<tr><td> 8.45835</td><td>0.98439</td></tr>
+<tr><td> 8.98700</td><td>0.98661</td></tr>
+<tr><td> 9.51564</td><td>0.98845</td></tr>
+<tr><td>10.04429</td><td>0.99000</td></tr>
+</table>
diff --git a/tests/distributions/f_quantiles.rkcommands.R b/tests/distributions/f_quantiles.rkcommands.R
deleted file mode 100644
index 86e151c..0000000
--- a/tests/distributions/f_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qf (p = c (0.95), df1 = 1.00, df2 = 1.00, ncp = 0.00, lower.tail=FALSE, log.p = FALSE))
-## Print result
-rk.header ("F quantile", list ("Vector of probabilities", "c (0.95)", "Numerator degrees of freedom", "1.00", "Denominator degrees of freedom", "1.00", "non-centrality parameter", "0.00", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="F quantiles")
-})
diff --git a/tests/distributions/f_quantiles.rkout b/tests/distributions/f_quantiles.rkout
deleted file mode 100644
index 2a9c77b..0000000
--- a/tests/distributions/f_quantiles.rkout
+++ /dev/null
@@ -1,11 +0,0 @@
-<h1>F quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Numerator degrees of freedom: 1.00</li>
-<li>Denominator degrees of freedom: 1.00</li>
-<li>non-centrality parameter: 0.00</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>F quantiles: 0.006194</h3>
\ No newline at end of file
diff --git a/tests/distributions/gamma_probabilities.rkcommands.R b/tests/distributions/gamma_probabilities.rkcommands.R
index 8dc3377..3bf24ca 100644
--- a/tests/distributions/gamma_probabilities.rkcommands.R
+++ b/tests/distributions/gamma_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pgamma (q = c (0.95), shape = 1.00, rate = 1.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, qgamma (.99, shape=1.0, rate=1.0), length.out=20)
+p <- pgamma (q, shape=1.0, rate=1.0)
## Print result
-rk.header ("Gamma probability", list ("Vector of quantiles", "c (0.95)", "Shape", "1.00", "Rate", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Gamma probabilities")
+rk.header ("Gamma distribution", parameters=list("Shape"="1.0",
+ "Rate"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/gamma_probabilities.rkout b/tests/distributions/gamma_probabilities.rkout
index 606eaca..b4ed86d 100644
--- a/tests/distributions/gamma_probabilities.rkout
+++ b/tests/distributions/gamma_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Gamma probability</h1>
+<h1>Gamma distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Shape: 1.00</li>
-<li>Rate: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Shape: 1.0</li>
+<li>Rate: 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Gamma probabilities: 0.61326</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.00000</td><td>0.00000</td></tr>
+<tr><td>0.24238</td><td>0.21524</td></tr>
+<tr><td>0.48475</td><td>0.38415</td></tr>
+<tr><td>0.72713</td><td>0.51671</td></tr>
+<tr><td>0.96951</td><td>0.62073</td></tr>
+<tr><td>1.21189</td><td>0.70236</td></tr>
+<tr><td>1.45426</td><td>0.76643</td></tr>
+<tr><td>1.69664</td><td>0.81670</td></tr>
+<tr><td>1.93902</td><td>0.85616</td></tr>
+<tr><td>2.18140</td><td>0.88712</td></tr>
+<tr><td>2.42377</td><td>0.91141</td></tr>
+<tr><td>2.66615</td><td>0.93048</td></tr>
+<tr><td>2.90853</td><td>0.94544</td></tr>
+<tr><td>3.15091</td><td>0.95719</td></tr>
+<tr><td>3.39328</td><td>0.96640</td></tr>
+<tr><td>3.63566</td><td>0.97363</td></tr>
+<tr><td>3.87804</td><td>0.97931</td></tr>
+<tr><td>4.12042</td><td>0.98376</td></tr>
+<tr><td>4.36279</td><td>0.98726</td></tr>
+<tr><td>4.60517</td><td>0.99000</td></tr>
+</table>
diff --git a/tests/distributions/gamma_quantiles.rkcommands.R b/tests/distributions/gamma_quantiles.rkcommands.R
deleted file mode 100644
index 06c4be9..0000000
--- a/tests/distributions/gamma_quantiles.rkcommands.R
+++ /dev/null
@@ -1,8 +0,0 @@
-local({
-## Compute
-result <- (qgamma (p = c (-5), shape = 1.00, rate = 1.00, lower.tail=TRUE, log.p = TRUE))
-
-## Print result
-rk.header ("Gamma quantile", list ("Vector of probabilities", "c (-5)", "Shape", "1.00", "Rate", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Gamma quantiles")
-})
diff --git a/tests/distributions/gamma_quantiles.rkout b/tests/distributions/gamma_quantiles.rkout
deleted file mode 100644
index 335ea07..0000000
--- a/tests/distributions/gamma_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Gamma quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (-5)</li>
-<li>Shape: 1.00</li>
-<li>Rate: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
-</ul>
-DATE<br />
-<h3>Gamma quantiles: 0.0067607</h3>
\ No newline at end of file
diff --git a/tests/distributions/geom_probabilities.rkcommands.R b/tests/distributions/geom_probabilities.rkcommands.R
index 3279609..7076472 100644
--- a/tests/distributions/geom_probabilities.rkcommands.R
+++ b/tests/distributions/geom_probabilities.rkcommands.R
@@ -1,7 +1,9 @@
local({
## Compute
-result <- (pgeom (q = c (0.95), prob = 0.50, lower.tail=TRUE, log.p = FALSE))
+q <- 0:10
+p <- pgeom (q, prob=0.50)
## Print result
-rk.header ("Geometric probability", list ("Vector of quantiles", "c (0.95)", "Probability of success in each trial", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Geometric probabilities")
+rk.header ("Geometric distribution", parameters=list("probability of success in each trial"="0.50",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/geom_probabilities.rkout b/tests/distributions/geom_probabilities.rkout
index 7f69baf..1bfca62 100644
--- a/tests/distributions/geom_probabilities.rkout
+++ b/tests/distributions/geom_probabilities.rkout
@@ -1,9 +1,20 @@
-<h1>Geometric probability</h1>
+<h1>Geometric distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Probability of success in each trial: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>probability of success in each trial: 0.50</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Geometric probabilities: 0.5</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0</td><td>0.50000</td></tr>
+<tr><td> 1</td><td>0.75000</td></tr>
+<tr><td> 2</td><td>0.87500</td></tr>
+<tr><td> 3</td><td>0.93750</td></tr>
+<tr><td> 4</td><td>0.96875</td></tr>
+<tr><td> 5</td><td>0.98438</td></tr>
+<tr><td> 6</td><td>0.99219</td></tr>
+<tr><td> 7</td><td>0.99609</td></tr>
+<tr><td> 8</td><td>0.99805</td></tr>
+<tr><td> 9</td><td>0.99902</td></tr>
+<tr><td>10</td><td>0.99951</td></tr>
+</table>
diff --git a/tests/distributions/geom_quantiles.rkcommands.R b/tests/distributions/geom_quantiles.rkcommands.R
deleted file mode 100644
index f8ce13f..0000000
--- a/tests/distributions/geom_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qgeom (p = c (0.95), prob = 0.50, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Geometric quantile", list ("Vector of probabilities", "c (0.95)", "Probability of success in each trial", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Geometric quantiles")
-})
diff --git a/tests/distributions/geom_quantiles.rkout b/tests/distributions/geom_quantiles.rkout
deleted file mode 100644
index 60927b1..0000000
--- a/tests/distributions/geom_quantiles.rkout
+++ /dev/null
@@ -1,9 +0,0 @@
-<h1>Geometric quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Probability of success in each trial: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Geometric quantiles: 4</h3>
\ No newline at end of file
diff --git a/tests/distributions/gumbel_probabilities.rkcommands.R b/tests/distributions/gumbel_probabilities.rkcommands.R
index 4060600..9812abd 100644
--- a/tests/distributions/gumbel_probabilities.rkcommands.R
+++ b/tests/distributions/gumbel_probabilities.rkcommands.R
@@ -1,7 +1,12 @@
local({
+## Prepare
+require (FAdist)
## Compute
-result <- (pweibull (q = exp(c (0.95)), shape = 1.03, scale = 1.04, lower.tail=TRUE, log.p = FALSE))
+q <- seq (-2, 5, length.out=20)
+p <- pgumbel (q, location=0.0, scale=1.0)
## Print result
-rk.header ("Gumbel probability", list ("Vector of quantiles", "c (0.95)", "Shape", "1.03", "Scale", "1.04", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Gumbel probabilities")
+rk.header ("Gumbel distribution", parameters=list("Location"="0.0",
+ "Scale"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/gumbel_probabilities.rkout b/tests/distributions/gumbel_probabilities.rkout
index dfb66a3..7879da3 100644
--- a/tests/distributions/gumbel_probabilities.rkout
+++ b/tests/distributions/gumbel_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Gumbel probability</h1>
+<h1>Gumbel distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Shape: 1.03</li>
-<li>Scale: 1.04</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Location: 0.0</li>
+<li>Scale: 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Gumbel probabilities: 0.92232</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>-2.00000</td><td>0.00061798</td></tr>
+<tr><td>-1.63158</td><td>0.00602439</td></tr>
+<tr><td>-1.26316</td><td>0.02911296</td></tr>
+<tr><td>-0.89474</td><td>0.08657953</td></tr>
+<tr><td>-0.52632</td><td>0.18402483</td></tr>
+<tr><td>-0.15789</td><td>0.31004342</td></tr>
+<tr><td> 0.21053</td><td>0.44478790</td></tr>
+<tr><td> 0.57895</td><td>0.57093036</td></tr>
+<tr><td> 0.94737</td><td>0.67857511</td></tr>
+<tr><td> 1.31579</td><td>0.76470705</td></tr>
+<tr><td> 1.68421</td><td>0.83061333</td></tr>
+<tr><td> 2.05263</td><td>0.87950452</td></tr>
+<tr><td> 2.42105</td><td>0.91500288</td></tr>
+<tr><td> 2.78947</td><td>0.94039663</td></tr>
+<tr><td> 3.15789</td><td>0.95837594</td></tr>
+<tr><td> 3.52632</td><td>0.97101527</td></tr>
+<tr><td> 3.89474</td><td>0.97985691</td></tr>
+<tr><td> 4.26316</td><td>0.98602085</td></tr>
+<tr><td> 4.63158</td><td>0.99030791</td></tr>
+<tr><td> 5.00000</td><td>0.99328470</td></tr>
+</table>
diff --git a/tests/distributions/gumbel_quantiles.rkcommands.R b/tests/distributions/gumbel_quantiles.rkcommands.R
deleted file mode 100644
index 4fc522c..0000000
--- a/tests/distributions/gumbel_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- log(qweibull (p = c (0.95), shape = 1.00, scale = 1.00, lower.tail=FALSE, log.p = FALSE))
-## Print result
-rk.header ("Gumbel quantile", list ("Vector of probabilities", "c (0.95)", "Shape", "1.00", "Scale", "1.00", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Gumbel quantiles")
-})
diff --git a/tests/distributions/gumbel_quantiles.rkout b/tests/distributions/gumbel_quantiles.rkout
deleted file mode 100644
index b0e75c6..0000000
--- a/tests/distributions/gumbel_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Gumbel quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Shape: 1.00</li>
-<li>Scale: 1.00</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Gumbel quantiles: -2.9702</h3>
\ No newline at end of file
diff --git a/tests/distributions/hypergeometric_probabilities.rkcommands.R b/tests/distributions/hypergeometric_probabilities.rkcommands.R
index 3f1b134..abfeefa 100644
--- a/tests/distributions/hypergeometric_probabilities.rkcommands.R
+++ b/tests/distributions/hypergeometric_probabilities.rkcommands.R
@@ -1,7 +1,11 @@
local({
## Compute
-result <- (phyper (q = c (0, 1, 2, 3, 4, 5), m = 5, n = 4, k = 4, lower.tail=FALSE, log.p = FALSE))
+q <- 0:10
+p <- phyper (q, m=10, n=10, k=5)
## Print result
-rk.header ("Hypergeometric probability", list ("Vector of quantiles", "c (0, 1, 2, 3, 4, 5)", "Number of white balls in the urn", "5", "Number of black balls in the urn", "4", "Number of balls drawn from the urn", "4", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Hypergeometric probabilities")
+rk.header ("Hypergeometric distribution", parameters=list("m (Number of white balls in the urn)"="10",
+ "n (Number of black balls in the urn)"="10",
+ "k (Number of balls drawn from the urn)"="5",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/hypergeometric_probabilities.rkout b/tests/distributions/hypergeometric_probabilities.rkout
index 01b3357..71daf39 100644
--- a/tests/distributions/hypergeometric_probabilities.rkout
+++ b/tests/distributions/hypergeometric_probabilities.rkout
@@ -1,11 +1,22 @@
-<h1>Hypergeometric probability</h1>
+<h1>Hypergeometric distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0, 1, 2, 3, 4, 5)</li>
-<li>Number of white balls in the urn: 5</li>
-<li>Number of black balls in the urn: 4</li>
-<li>Number of balls drawn from the urn: 4</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>m (Number of white balls in the urn): 10</li>
+<li>n (Number of black balls in the urn): 10</li>
+<li>k (Number of balls drawn from the urn): 5</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Hypergeometric probabilities: 0.99206 0.83333 0.35714 0.039683 0 0</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0</td><td>0.016254</td></tr>
+<tr><td> 1</td><td>0.151703</td></tr>
+<tr><td> 2</td><td>0.500000</td></tr>
+<tr><td> 3</td><td>0.848297</td></tr>
+<tr><td> 4</td><td>0.983746</td></tr>
+<tr><td> 5</td><td>1.000000</td></tr>
+<tr><td> 6</td><td>1.000000</td></tr>
+<tr><td> 7</td><td>1.000000</td></tr>
+<tr><td> 8</td><td>1.000000</td></tr>
+<tr><td> 9</td><td>1.000000</td></tr>
+<tr><td>10</td><td>1.000000</td></tr>
+</table>
diff --git a/tests/distributions/hypergeometric_quantiles.rkcommands.R b/tests/distributions/hypergeometric_quantiles.rkcommands.R
deleted file mode 100644
index f076c2e..0000000
--- a/tests/distributions/hypergeometric_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qhyper (p = c (0.95), m = 1, n = 1, k = 1, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Hypergeometric quantile", list ("Vector of probabilities", "c (0.95)", "Number of white balls in the urn", "1", "Number of black balls in the urn", "1", "Number of balls drawn from the urn", "1", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Hypergeometric quantiles")
-})
diff --git a/tests/distributions/hypergeometric_quantiles.rkout b/tests/distributions/hypergeometric_quantiles.rkout
deleted file mode 100644
index 1114df3..0000000
--- a/tests/distributions/hypergeometric_quantiles.rkout
+++ /dev/null
@@ -1,11 +0,0 @@
-<h1>Hypergeometric quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Number of white balls in the urn: 1</li>
-<li>Number of black balls in the urn: 1</li>
-<li>Number of balls drawn from the urn: 1</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Hypergeometric quantiles: 1</h3>
\ No newline at end of file
diff --git a/tests/distributions/log_normal_probabilities.rkcommands.R b/tests/distributions/log_normal_probabilities.rkcommands.R
index 7185cd7..5f60afd 100644
--- a/tests/distributions/log_normal_probabilities.rkcommands.R
+++ b/tests/distributions/log_normal_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (plnorm (q = c (0.95), meanlog = 0.00, sdlog = 1.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, qlnorm (.99, meanlog=0.0, sdlog=1.0), length.out=20)
+p <- plnorm (q, meanlog=0.0, sdlog=1.0)
## Print result
-rk.header ("Log Normal probability", list ("Vector of quantiles", "c (0.95)", "meanlog", "0.00", "sdlog", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Log Normal probabilities")
+rk.header ("Log Normal distribution", parameters=list("meanlog (mean on log scale)"="0.0",
+ "sdlog (standard deviation on log scale)"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/log_normal_probabilities.rkout b/tests/distributions/log_normal_probabilities.rkout
index 6d3c426..a7493fc 100644
--- a/tests/distributions/log_normal_probabilities.rkout
+++ b/tests/distributions/log_normal_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Log Normal probability</h1>
+<h1>Log Normal distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>meanlog: 0.00</li>
-<li>sdlog: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>meanlog (mean on log scale): 0.0</li>
+<li>sdlog (standard deviation on log scale): 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Log Normal probabilities: 0.47955</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0.00000</td><td>0.00000</td></tr>
+<tr><td> 0.53897</td><td>0.26826</td></tr>
+<tr><td> 1.07794</td><td>0.52991</td></tr>
+<tr><td> 1.61692</td><td>0.68457</td></tr>
+<tr><td> 2.15589</td><td>0.77882</td></tr>
+<tr><td> 2.69486</td><td>0.83924</td></tr>
+<tr><td> 3.23383</td><td>0.87974</td></tr>
+<tr><td> 3.77281</td><td>0.90788</td></tr>
+<tr><td> 4.31178</td><td>0.92804</td></tr>
+<tr><td> 4.85075</td><td>0.94285</td></tr>
+<tr><td> 5.38972</td><td>0.95396</td></tr>
+<tr><td> 5.92870</td><td>0.96245</td></tr>
+<tr><td> 6.46767</td><td>0.96904</td></tr>
+<tr><td> 7.00664</td><td>0.97422</td></tr>
+<tr><td> 7.54561</td><td>0.97836</td></tr>
+<tr><td> 8.08458</td><td>0.98169</td></tr>
+<tr><td> 8.62356</td><td>0.98440</td></tr>
+<tr><td> 9.16253</td><td>0.98662</td></tr>
+<tr><td> 9.70150</td><td>0.98847</td></tr>
+<tr><td>10.24047</td><td>0.99000</td></tr>
+</table>
diff --git a/tests/distributions/log_normal_quantiles.rkcommands.R b/tests/distributions/log_normal_quantiles.rkcommands.R
deleted file mode 100644
index e7424cc..0000000
--- a/tests/distributions/log_normal_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qlnorm (p = c (0.95), meanlog = 0.00, sdlog = 1.00, lower.tail=FALSE, log.p = FALSE))
-## Print result
-rk.header ("Log Normal quantile", list ("Vector of probabilities", "c (0.95)", "meanlog", "0.00", "sdlog", "1.00", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Log Normal quantiles")
-})
diff --git a/tests/distributions/log_normal_quantiles.rkout b/tests/distributions/log_normal_quantiles.rkout
deleted file mode 100644
index 4146dcc..0000000
--- a/tests/distributions/log_normal_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Log Normal quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>meanlog: 0.00</li>
-<li>sdlog: 1.00</li>
-<li>Tail: lower.tail=FALSE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Log Normal quantiles: 0.19304</h3>
\ No newline at end of file
diff --git a/tests/distributions/logistic_probabilities.rkcommands.R b/tests/distributions/logistic_probabilities.rkcommands.R
index f0e8de4..c2a906b 100644
--- a/tests/distributions/logistic_probabilities.rkcommands.R
+++ b/tests/distributions/logistic_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (plogis (q = c (0.95), location = 1.04, scale = 1.00, lower.tail=TRUE, log.p = TRUE))
+q <- seq (-5, 5, length.out=20)
+p <- plogis (q, location=0.0, scale=1.0)
## Print result
-rk.header ("Logistic probability", list ("Vector of quantiles", "c (0.95)", "Location", "1.04", "Scale", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Logistic probabilities")
+rk.header ("Logistic distribution", parameters=list("Location"="0.0",
+ "Scale"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/logistic_probabilities.rkout b/tests/distributions/logistic_probabilities.rkout
index 1530cbc..a332f25 100644
--- a/tests/distributions/logistic_probabilities.rkout
+++ b/tests/distributions/logistic_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Logistic probability</h1>
+<h1>Logistic distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Location: 1.04</li>
-<li>Scale: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
+<ul><li>Location: 0.0</li>
+<li>Scale: 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Logistic probabilities: -0.73916</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>-5.00000</td><td>0.0066929</td></tr>
+<tr><td>-4.47368</td><td>0.0112766</td></tr>
+<tr><td>-3.94737</td><td>0.0189398</td></tr>
+<tr><td>-3.42105</td><td>0.0316440</td></tr>
+<tr><td>-2.89474</td><td>0.0524144</td></tr>
+<tr><td>-2.36842</td><td>0.0856127</td></tr>
+<tr><td>-1.84211</td><td>0.1368025</td></tr>
+<tr><td>-1.31579</td><td>0.2115197</td></tr>
+<tr><td>-0.78947</td><td>0.3122817</td></tr>
+<tr><td>-0.26316</td><td>0.4345876</td></tr>
+<tr><td> 0.26316</td><td>0.5654124</td></tr>
+<tr><td> 0.78947</td><td>0.6877183</td></tr>
+<tr><td> 1.31579</td><td>0.7884803</td></tr>
+<tr><td> 1.84211</td><td>0.8631975</td></tr>
+<tr><td> 2.36842</td><td>0.9143873</td></tr>
+<tr><td> 2.89474</td><td>0.9475856</td></tr>
+<tr><td> 3.42105</td><td>0.9683560</td></tr>
+<tr><td> 3.94737</td><td>0.9810602</td></tr>
+<tr><td> 4.47368</td><td>0.9887234</td></tr>
+<tr><td> 5.00000</td><td>0.9933071</td></tr>
+</table>
diff --git a/tests/distributions/logistic_quantiles.rkcommands.R b/tests/distributions/logistic_quantiles.rkcommands.R
deleted file mode 100644
index 7e0d253..0000000
--- a/tests/distributions/logistic_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qlogis (p = c (0.95), location = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Logistic quantile", list ("Vector of probabilities", "c (0.95)", "Location", "1.00", "Scale", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Logistic quantiles")
-})
diff --git a/tests/distributions/logistic_quantiles.rkout b/tests/distributions/logistic_quantiles.rkout
deleted file mode 100644
index be599d4..0000000
--- a/tests/distributions/logistic_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Logistic quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Location: 1.00</li>
-<li>Scale: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Logistic quantiles: 3.9444</h3>
\ No newline at end of file
diff --git a/tests/distributions/negative_binomial_probabilities.rkcommands.R b/tests/distributions/negative_binomial_probabilities.rkcommands.R
index 38ee7b8..155f4ca 100644
--- a/tests/distributions/negative_binomial_probabilities.rkcommands.R
+++ b/tests/distributions/negative_binomial_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pnbinom (q = c (0.95), size = 3, prob = 0.50, lower.tail=TRUE, log.p = TRUE))
+q <- 0:15
+p <- pnbinom (q, size=5, prob=0.5)
## Print result
-rk.header ("Negative Binomial probability", list ("Vector of quantiles", "c (0.95)", "Size", "3", "Probability of success in each trial", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Negative Binomial probabilities")
+rk.header ("Negative Binomial distribution", parameters=list("Target number of successful trials"="5",
+ "Probability of success in each trial"="0.5",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/negative_binomial_probabilities.rkout b/tests/distributions/negative_binomial_probabilities.rkout
index e9d2335..c102a2a 100644
--- a/tests/distributions/negative_binomial_probabilities.rkout
+++ b/tests/distributions/negative_binomial_probabilities.rkout
@@ -1,10 +1,26 @@
-<h1>Negative Binomial probability</h1>
+<h1>Negative Binomial distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Size: 3</li>
-<li>Probability of success in each trial: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
+<ul><li>Target number of successful trials: 5</li>
+<li>Probability of success in each trial: 0.5</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Negative Binomial probabilities: -2.0794</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0</td><td>0.03125</td></tr>
+<tr><td> 1</td><td>0.10938</td></tr>
+<tr><td> 2</td><td>0.22656</td></tr>
+<tr><td> 3</td><td>0.36328</td></tr>
+<tr><td> 4</td><td>0.50000</td></tr>
+<tr><td> 5</td><td>0.62305</td></tr>
+<tr><td> 6</td><td>0.72559</td></tr>
+<tr><td> 7</td><td>0.80615</td></tr>
+<tr><td> 8</td><td>0.86658</td></tr>
+<tr><td> 9</td><td>0.91022</td></tr>
+<tr><td>10</td><td>0.94077</td></tr>
+<tr><td>11</td><td>0.96159</td></tr>
+<tr><td>12</td><td>0.97548</td></tr>
+<tr><td>13</td><td>0.98456</td></tr>
+<tr><td>14</td><td>0.99039</td></tr>
+<tr><td>15</td><td>0.99409</td></tr>
+</table>
diff --git a/tests/distributions/negative_binomial_quantiles.rkcommands.R b/tests/distributions/negative_binomial_quantiles.rkcommands.R
deleted file mode 100644
index dd101be..0000000
--- a/tests/distributions/negative_binomial_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qnbinom (p = c (0.95), size = 4, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Negative Binomial quantile", list ("Vector of probabilities", "c (0.95)", "Size", "4", "Probability of success in each trial", "0.50", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Negative Binomial quantiles")
-})
diff --git a/tests/distributions/negative_binomial_quantiles.rkout b/tests/distributions/negative_binomial_quantiles.rkout
deleted file mode 100644
index 99b57bf..0000000
--- a/tests/distributions/negative_binomial_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Negative Binomial quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Size: 4</li>
-<li>Probability of success in each trial: 0.50</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Negative Binomial quantiles: 9</h3>
\ No newline at end of file
diff --git a/tests/distributions/normal_probabilities.rkcommands.R b/tests/distributions/normal_probabilities.rkcommands.R
index 0b88017..076fb87 100644
--- a/tests/distributions/normal_probabilities.rkcommands.R
+++ b/tests/distributions/normal_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pnorm (q = c (0.95), mean = 0.00, sd = 1.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (-4, 4, length.out=20)
+p <- pnorm (q, mean=0.00, sd=1.00)
## Print result
-rk.header ("Normal probability", list ("Vector of quantiles", "c (0.95)", "mu", "0.00", "sigma", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Normal probabilities")
+rk.header ("Normal distribution", parameters=list("mu (mean)"="0.00",
+ "sigma (standard deviation)"="1.00",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/normal_probabilities.rkout b/tests/distributions/normal_probabilities.rkout
index f5938e6..62864f4 100644
--- a/tests/distributions/normal_probabilities.rkout
+++ b/tests/distributions/normal_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Normal probability</h1>
+<h1>Normal distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>mu: 0.00</li>
-<li>sigma: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>mu (mean): 0.00</li>
+<li>sigma (standard deviation): 1.00</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Normal probabilities: 0.82894</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>-4.00000</td><td>3.1671e-05</td></tr>
+<tr><td>-3.57895</td><td>1.7249e-04</td></tr>
+<tr><td>-3.15789</td><td>7.9456e-04</td></tr>
+<tr><td>-2.73684</td><td>3.1016e-03</td></tr>
+<tr><td>-2.31579</td><td>1.0285e-02</td></tr>
+<tr><td>-1.89474</td><td>2.9064e-02</td></tr>
+<tr><td>-1.47368</td><td>7.0283e-02</td></tr>
+<tr><td>-1.05263</td><td>1.4625e-01</td></tr>
+<tr><td>-0.63158</td><td>2.6383e-01</td></tr>
+<tr><td>-0.21053</td><td>4.1663e-01</td></tr>
+<tr><td> 0.21053</td><td>5.8337e-01</td></tr>
+<tr><td> 0.63158</td><td>7.3617e-01</td></tr>
+<tr><td> 1.05263</td><td>8.5375e-01</td></tr>
+<tr><td> 1.47368</td><td>9.2972e-01</td></tr>
+<tr><td> 1.89474</td><td>9.7094e-01</td></tr>
+<tr><td> 2.31579</td><td>9.8972e-01</td></tr>
+<tr><td> 2.73684</td><td>9.9690e-01</td></tr>
+<tr><td> 3.15789</td><td>9.9921e-01</td></tr>
+<tr><td> 3.57895</td><td>9.9983e-01</td></tr>
+<tr><td> 4.00000</td><td>9.9997e-01</td></tr>
+</table>
diff --git a/tests/distributions/normal_quantiles.rkcommands.R b/tests/distributions/normal_quantiles.rkcommands.R
deleted file mode 100644
index 46555df..0000000
--- a/tests/distributions/normal_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qnorm (p = c (0.95), mean = 0.00, sd = 1.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Normal quantile", list ("Vector of probabilities", "c (0.95)", "mu", "0.00", "sigma", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Normal quantiles")
-})
diff --git a/tests/distributions/normal_quantiles.rkout b/tests/distributions/normal_quantiles.rkout
deleted file mode 100644
index 374a83b..0000000
--- a/tests/distributions/normal_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Normal quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>mu: 0.00</li>
-<li>sigma: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Normal quantiles: 1.6449</h3>
\ No newline at end of file
diff --git a/tests/distributions/poisson_probabilities.rkcommands.R b/tests/distributions/poisson_probabilities.rkcommands.R
index 7052137..de8f709 100644
--- a/tests/distributions/poisson_probabilities.rkcommands.R
+++ b/tests/distributions/poisson_probabilities.rkcommands.R
@@ -1,7 +1,9 @@
local({
## Compute
-result <- (ppois (q = c (0.95), lambda = 1.07, lower.tail=TRUE, log.p = TRUE))
+q <- 0:5
+p <- ppois (q, lambda=1.0)
## Print result
-rk.header ("Poisson probability", list ("Vector of quantiles", "c (0.95)", "Lambda", "1.07", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = TRUE"))
-rk.results (result, titles="Poisson probabilities")
+rk.header ("Poisson distribution", parameters=list("λ (Lambda)"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/poisson_probabilities.rkout b/tests/distributions/poisson_probabilities.rkout
index 991ea0d..a7eb24b 100644
--- a/tests/distributions/poisson_probabilities.rkout
+++ b/tests/distributions/poisson_probabilities.rkout
@@ -1,9 +1,15 @@
-<h1>Poisson probability</h1>
+<h1>Poisson distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Lambda: 1.07</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = TRUE</li>
+<ul><li>λ (Lambda): 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Poisson probabilities: -1.07</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0</td><td>0.36788</td></tr>
+<tr><td>1</td><td>0.73576</td></tr>
+<tr><td>2</td><td>0.91970</td></tr>
+<tr><td>3</td><td>0.98101</td></tr>
+<tr><td>4</td><td>0.99634</td></tr>
+<tr><td>5</td><td>0.99941</td></tr>
+</table>
diff --git a/tests/distributions/poisson_quantiles.rkcommands.R b/tests/distributions/poisson_quantiles.rkcommands.R
deleted file mode 100644
index 83075cb..0000000
--- a/tests/distributions/poisson_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qpois (p = c (0.95), lambda = 1.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Poisson quantile", list ("Vector of probabilities", "c (0.95)", "Lambda", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Poisson quantiles")
-})
diff --git a/tests/distributions/poisson_quantiles.rkout b/tests/distributions/poisson_quantiles.rkout
deleted file mode 100644
index 86864f0..0000000
--- a/tests/distributions/poisson_quantiles.rkout
+++ /dev/null
@@ -1,9 +0,0 @@
-<h1>Poisson quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Lambda: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Poisson quantiles: 3</h3>
\ No newline at end of file
diff --git a/tests/distributions/t_probabilities.rkcommands.R b/tests/distributions/t_probabilities.rkcommands.R
index 7c2f4a6..5bea24b 100644
--- a/tests/distributions/t_probabilities.rkcommands.R
+++ b/tests/distributions/t_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pt (q = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (qt (.01, df=10.0, ncp=0.0), qt (.99, df=10.0, ncp=0.0), length.out=20)
+p <- pt (q, df=10.0, ncp=0.0)
## Print result
-rk.header ("t probability", list ("Vector of quantiles", "c (0.95)", "Degrees of Freedom", "1.00", "non-centrality parameter", "0.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="t probabilities")
+rk.header ("t distribution", parameters=list("Degrees of Freedom"="10.0",
+ "non-centrality parameter"="0.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/t_probabilities.rkout b/tests/distributions/t_probabilities.rkout
index 68c28d7..34e934c 100644
--- a/tests/distributions/t_probabilities.rkout
+++ b/tests/distributions/t_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>t probability</h1>
+<h1>t distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Degrees of Freedom: 1.00</li>
-<li>non-centrality parameter: 0.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Degrees of Freedom: 10.0</li>
+<li>non-centrality parameter: 0.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>t probabilities: 0.74184</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>-2.76377</td><td>0.010000</td></tr>
+<tr><td>-2.47285</td><td>0.016472</td></tr>
+<tr><td>-2.18192</td><td>0.027035</td></tr>
+<tr><td>-1.89100</td><td>0.043959</td></tr>
+<tr><td>-1.60008</td><td>0.070332</td></tr>
+<tr><td>-1.30915</td><td>0.109882</td></tr>
+<tr><td>-1.01823</td><td>0.166285</td></tr>
+<tr><td>-0.72731</td><td>0.241859</td></tr>
+<tr><td>-0.43638</td><td>0.335914</td></tr>
+<tr><td>-0.14546</td><td>0.443618</td></tr>
+<tr><td> 0.14546</td><td>0.556382</td></tr>
+<tr><td> 0.43638</td><td>0.664086</td></tr>
+<tr><td> 0.72731</td><td>0.758141</td></tr>
+<tr><td> 1.01823</td><td>0.833715</td></tr>
+<tr><td> 1.30915</td><td>0.890118</td></tr>
+<tr><td> 1.60008</td><td>0.929668</td></tr>
+<tr><td> 1.89100</td><td>0.956041</td></tr>
+<tr><td> 2.18192</td><td>0.972965</td></tr>
+<tr><td> 2.47285</td><td>0.983528</td></tr>
+<tr><td> 2.76377</td><td>0.990000</td></tr>
+</table>
diff --git a/tests/distributions/t_quantiles.rkcommands.R b/tests/distributions/t_quantiles.rkcommands.R
deleted file mode 100644
index cc5c7d7..0000000
--- a/tests/distributions/t_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qt (p = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("t quantile", list ("Vector of probabilities", "c (0.95)", "Degrees of freedom", "1.00", "non-centrality parameter", "0.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="t quantiles")
-})
diff --git a/tests/distributions/t_quantiles.rkout b/tests/distributions/t_quantiles.rkout
deleted file mode 100644
index 49987a1..0000000
--- a/tests/distributions/t_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>t quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Degrees of freedom: 1.00</li>
-<li>non-centrality parameter: 0.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>t quantiles: 6.3138</h3>
\ No newline at end of file
diff --git a/tests/distributions/tukey_probabilities.rkcommands.R b/tests/distributions/tukey_probabilities.rkcommands.R
index b9de51d..ae88fc1 100644
--- a/tests/distributions/tukey_probabilities.rkcommands.R
+++ b/tests/distributions/tukey_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (ptukey (q = c (0.95), nmeans = 2, df = 5, nranges = 1, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, qtukey (.99, nmeans=5, df=5.0), length.out=20)
+p <- ptukey (q, nmeans=5, df=5.0)
## Print result
-rk.header ("Studentized Range probability", list ("Vector of quantiles", "c (0.95)", "Sample size for range", "2", "Degrees of freedom for s", "5", "Number of groups whose maximum range is considered", "1", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Studentized Range probabilities")
+rk.header ("Studentized Range (Tukey) distribution", parameters=list("Number of observations"="5",
+ "Degrees of freedom for standard deviation estimate"="5.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/tukey_probabilities.rkout b/tests/distributions/tukey_probabilities.rkout
index d7f7d35..1bf7887 100644
--- a/tests/distributions/tukey_probabilities.rkout
+++ b/tests/distributions/tukey_probabilities.rkout
@@ -1,11 +1,30 @@
-<h1>Studentized Range probability</h1>
+<h1>Studentized Range (Tukey) distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Sample size for range: 2</li>
-<li>Degrees of freedom for s: 5</li>
-<li>Number of groups whose maximum range is considered: 1</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Number of observations: 5</li>
+<li>Degrees of freedom for standard deviation estimate: 5.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Studentized Range probabilities: 0.46848</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.00000</td><td>0.000000</td></tr>
+<tr><td>0.44324</td><td>0.002822</td></tr>
+<tr><td>0.88647</td><td>0.035938</td></tr>
+<tr><td>1.32971</td><td>0.129714</td></tr>
+<tr><td>1.77295</td><td>0.273181</td></tr>
+<tr><td>2.21618</td><td>0.430559</td></tr>
+<tr><td>2.65942</td><td>0.572803</td></tr>
+<tr><td>3.10266</td><td>0.687482</td></tr>
+<tr><td>3.54589</td><td>0.774014</td></tr>
+<tr><td>3.98913</td><td>0.836968</td></tr>
+<tr><td>4.43237</td><td>0.881957</td></tr>
+<tr><td>4.87560</td><td>0.913905</td></tr>
+<tr><td>5.31884</td><td>0.936613</td></tr>
+<tr><td>5.76208</td><td>0.952840</td></tr>
+<tr><td>6.20531</td><td>0.964527</td></tr>
+<tr><td>6.64855</td><td>0.973024</td></tr>
+<tr><td>7.09179</td><td>0.979265</td></tr>
+<tr><td>7.53502</td><td>0.983897</td></tr>
+<tr><td>7.97826</td><td>0.987369</td></tr>
+<tr><td>8.42149</td><td>0.990000</td></tr>
+</table>
diff --git a/tests/distributions/tukey_quantiles.rkcommands.R b/tests/distributions/tukey_quantiles.rkcommands.R
deleted file mode 100644
index 17d3337..0000000
--- a/tests/distributions/tukey_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qtukey (p = c (0.95), nmeans = 2, df = 2:11, nranges = 1, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Studentized Range quantiles", list ("Vector of probabilities", "c (0.95)", "Sample size for range", "2", "Degrees of freedom for s", "2:11", "Number of groups whose maximum range is considered", "1", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
-rk.results (result, titles="Studentized Range quantiles")
-})
diff --git a/tests/distributions/tukey_quantiles.rkout b/tests/distributions/tukey_quantiles.rkout
deleted file mode 100644
index d4c5be0..0000000
--- a/tests/distributions/tukey_quantiles.rkout
+++ /dev/null
@@ -1,11 +0,0 @@
-<h1>Studentized Range quantiles</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Sample size for range: 2</li>
-<li>Degrees of freedom for s: 2:11</li>
-<li>Number of groups whose maximum range is considered: 1</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Studentized Range quantiles: 6.0796 4.5007 3.9265 3.6354 3.4605 3.3441 3.2612 3.1992 3.1511 3.1127</h3>
\ No newline at end of file
diff --git a/tests/distributions/uniform_probabilities.rkcommands.R b/tests/distributions/uniform_probabilities.rkcommands.R
index 6be39c5..a70d63b 100644
--- a/tests/distributions/uniform_probabilities.rkcommands.R
+++ b/tests/distributions/uniform_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (punif (q = c (0.95), min = 0.00, max = 1.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, 1, length.out=20)
+p <- punif (q, min=0.00, max=1.00)
## Print result
-rk.header ("Uniform probability", list ("Vector of quantiles", "c (0.95)", "Lower limits of the distribution", "0.00", "Upper limits of the distribution", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Uniform probabilities")
+rk.header ("Uniform distribution", parameters=list("Lower limit of the distribution"="0.00",
+ "Upper limit of the distribution"="1.00",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/uniform_probabilities.rkout b/tests/distributions/uniform_probabilities.rkout
index 4584d63..dac1bae 100644
--- a/tests/distributions/uniform_probabilities.rkout
+++ b/tests/distributions/uniform_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Uniform probability</h1>
+<h1>Uniform distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Lower limits of the distribution: 0.00</li>
-<li>Upper limits of the distribution: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Lower limit of the distribution: 0.00</li>
+<li>Upper limit of the distribution: 1.00</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Uniform probabilities: 0.95</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.000000</td><td>0.000000</td></tr>
+<tr><td>0.052632</td><td>0.052632</td></tr>
+<tr><td>0.105263</td><td>0.105263</td></tr>
+<tr><td>0.157895</td><td>0.157895</td></tr>
+<tr><td>0.210526</td><td>0.210526</td></tr>
+<tr><td>0.263158</td><td>0.263158</td></tr>
+<tr><td>0.315789</td><td>0.315789</td></tr>
+<tr><td>0.368421</td><td>0.368421</td></tr>
+<tr><td>0.421053</td><td>0.421053</td></tr>
+<tr><td>0.473684</td><td>0.473684</td></tr>
+<tr><td>0.526316</td><td>0.526316</td></tr>
+<tr><td>0.578947</td><td>0.578947</td></tr>
+<tr><td>0.631579</td><td>0.631579</td></tr>
+<tr><td>0.684211</td><td>0.684211</td></tr>
+<tr><td>0.736842</td><td>0.736842</td></tr>
+<tr><td>0.789474</td><td>0.789474</td></tr>
+<tr><td>0.842105</td><td>0.842105</td></tr>
+<tr><td>0.894737</td><td>0.894737</td></tr>
+<tr><td>0.947368</td><td>0.947368</td></tr>
+<tr><td>1.000000</td><td>1.000000</td></tr>
+</table>
diff --git a/tests/distributions/uniform_quantiles.rkcommands.R b/tests/distributions/uniform_quantiles.rkcommands.R
deleted file mode 100644
index 5058516..0000000
--- a/tests/distributions/uniform_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qunif (p = c (0.95), min = 0.00, max = 1.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Uniform quantile", list ("Vector of probabilities", "c (0.95)", "Lower limits of the distribution", "0.00", "Upper limits of the distribution", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Uniform quantiles")
-})
diff --git a/tests/distributions/uniform_quantiles.rkout b/tests/distributions/uniform_quantiles.rkout
deleted file mode 100644
index 7f34c60..0000000
--- a/tests/distributions/uniform_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Uniform quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Lower limits of the distribution: 0.00</li>
-<li>Upper limits of the distribution: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Uniform quantiles: 0.95</h3>
\ No newline at end of file
diff --git a/tests/distributions/weibull_probabilities.rkcommands.R b/tests/distributions/weibull_probabilities.rkcommands.R
index 85365b5..f26364b 100644
--- a/tests/distributions/weibull_probabilities.rkcommands.R
+++ b/tests/distributions/weibull_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pweibull (q = c (0.95), shape = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
+q <- seq (0, qweibull (.99, shape=1.0, scale=1.0), length.out=20)
+p <- pweibull (q, shape=1.0, scale=1.0)
## Print result
-rk.header ("Weibull probability", list ("Vector of quantiles", "c (0.95)", "Shape", "1.00", "Scale", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Weibull probabilities")
+rk.header ("Weilbull distribution", parameters=list("Shape"="1.0",
+ "Scale"="1.0",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/weibull_probabilities.rkout b/tests/distributions/weibull_probabilities.rkout
index faceb2c..cad90cb 100644
--- a/tests/distributions/weibull_probabilities.rkout
+++ b/tests/distributions/weibull_probabilities.rkout
@@ -1,10 +1,30 @@
-<h1>Weibull probability</h1>
+<h1>Weilbull distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Shape: 1.00</li>
-<li>Scale: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>Shape: 1.0</li>
+<li>Scale: 1.0</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Weibull probabilities: 0.61326</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td>0.00000</td><td>0.00000</td></tr>
+<tr><td>0.24238</td><td>0.21524</td></tr>
+<tr><td>0.48475</td><td>0.38415</td></tr>
+<tr><td>0.72713</td><td>0.51671</td></tr>
+<tr><td>0.96951</td><td>0.62073</td></tr>
+<tr><td>1.21189</td><td>0.70236</td></tr>
+<tr><td>1.45426</td><td>0.76643</td></tr>
+<tr><td>1.69664</td><td>0.81670</td></tr>
+<tr><td>1.93902</td><td>0.85616</td></tr>
+<tr><td>2.18140</td><td>0.88712</td></tr>
+<tr><td>2.42377</td><td>0.91141</td></tr>
+<tr><td>2.66615</td><td>0.93048</td></tr>
+<tr><td>2.90853</td><td>0.94544</td></tr>
+<tr><td>3.15091</td><td>0.95719</td></tr>
+<tr><td>3.39328</td><td>0.96640</td></tr>
+<tr><td>3.63566</td><td>0.97363</td></tr>
+<tr><td>3.87804</td><td>0.97931</td></tr>
+<tr><td>4.12042</td><td>0.98376</td></tr>
+<tr><td>4.36279</td><td>0.98726</td></tr>
+<tr><td>4.60517</td><td>0.99000</td></tr>
+</table>
diff --git a/tests/distributions/weibull_quantiles.rkcommands.R b/tests/distributions/weibull_quantiles.rkcommands.R
deleted file mode 100644
index d62a214..0000000
--- a/tests/distributions/weibull_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qweibull (p = c (0.95), shape = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Weibull quantile", list ("Vector of probabilities", "c (0.95)", "Shape", "1.00", "Scale", "1.00", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Weibull quantiles")
-})
diff --git a/tests/distributions/weibull_quantiles.rkout b/tests/distributions/weibull_quantiles.rkout
deleted file mode 100644
index 89bf666..0000000
--- a/tests/distributions/weibull_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Weibull quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Shape: 1.00</li>
-<li>Scale: 1.00</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Weibull quantiles: 2.9957</h3>
\ No newline at end of file
diff --git a/tests/distributions/wilcoxon_probabilities.rkcommands.R b/tests/distributions/wilcoxon_probabilities.rkcommands.R
index 3ffc338..2579fe0 100644
--- a/tests/distributions/wilcoxon_probabilities.rkcommands.R
+++ b/tests/distributions/wilcoxon_probabilities.rkcommands.R
@@ -1,7 +1,10 @@
local({
## Compute
-result <- (pwilcox (q = c (0.95), m = 2, n = 1, lower.tail=TRUE, log.p = FALSE))
+q <- seq.int (0, 25, by=2)
+p <- pwilcox (q, m=5, n=5)
## Print result
-rk.header ("Wilcoxon Rank Sum probability", list ("Vector of quantiles", "c (0.95)", "m (Numbers of observations in the first sample)", "2", "n (Numbers of observations in the second sample)", "1", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Wilcoxon Rank Sum probabilities")
+rk.header ("Wilcox Rank Sum distribution", parameters=list("m (Numbers of observations in the first sample)"="5",
+ "n (Numbers of observations in the second sample)"="5",
+ "Tail"="Lower tail: P[X ≤ x]"))
+rk.results (data.frame ("Quantile"=q, "Probability"=p, check.names=FALSE))
})
diff --git a/tests/distributions/wilcoxon_probabilities.rkout b/tests/distributions/wilcoxon_probabilities.rkout
index f2a6bd0..627d1e9 100644
--- a/tests/distributions/wilcoxon_probabilities.rkout
+++ b/tests/distributions/wilcoxon_probabilities.rkout
@@ -1,10 +1,23 @@
-<h1>Wilcoxon Rank Sum probability</h1>
+<h1>Wilcox Rank Sum distribution</h1>
<h2>Parameters</h2>
-<ul><li>Vector of quantiles: c (0.95)</li>
-<li>m (Numbers of observations in the first sample): 2</li>
-<li>n (Numbers of observations in the second sample): 1</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
+<ul><li>m (Numbers of observations in the first sample): 5</li>
+<li>n (Numbers of observations in the second sample): 5</li>
+<li>Tail: Lower tail: P[X ≤ x]</li>
</ul>
DATE<br />
-<h3>Wilcoxon Rank Sum probabilities: 0.33333</h3>
\ No newline at end of file
+<table border="1">
+<tr><td>Quantile</td><td>Probability</td></tr>
+<tr><td> 0</td><td>0.0039683</td></tr>
+<tr><td> 2</td><td>0.0158730</td></tr>
+<tr><td> 4</td><td>0.0476190</td></tr>
+<tr><td> 6</td><td>0.1111111</td></tr>
+<tr><td> 8</td><td>0.2103175</td></tr>
+<tr><td>10</td><td>0.3452381</td></tr>
+<tr><td>12</td><td>0.5000000</td></tr>
+<tr><td>14</td><td>0.6547619</td></tr>
+<tr><td>16</td><td>0.7896825</td></tr>
+<tr><td>18</td><td>0.8888889</td></tr>
+<tr><td>20</td><td>0.9523810</td></tr>
+<tr><td>22</td><td>0.9841270</td></tr>
+<tr><td>24</td><td>0.9960317</td></tr>
+</table>
diff --git a/tests/distributions/wilcoxon_quantiles.rkcommands.R b/tests/distributions/wilcoxon_quantiles.rkcommands.R
deleted file mode 100644
index f796568..0000000
--- a/tests/distributions/wilcoxon_quantiles.rkcommands.R
+++ /dev/null
@@ -1,7 +0,0 @@
-local({
-## Compute
-result <- (qwilcox (p = c (0.95), m = 1, n = 2, lower.tail=TRUE, log.p = FALSE))
-## Print result
-rk.header ("Wilcoxon Rank Sum quantile", list ("Vector of probabilities", "c (0.95)", "m (Numbers of observations in the first sample)", "1", "n (Numbers of observations in the second sample)", "2", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
-rk.results (result, titles="Wilcoxon Rank Sum quantiles")
-})
diff --git a/tests/distributions/wilcoxon_quantiles.rkout b/tests/distributions/wilcoxon_quantiles.rkout
deleted file mode 100644
index 5bf7c61..0000000
--- a/tests/distributions/wilcoxon_quantiles.rkout
+++ /dev/null
@@ -1,10 +0,0 @@
-<h1>Wilcoxon Rank Sum quantile</h1>
-<h2>Parameters</h2>
-<ul><li>Vector of probabilities: c (0.95)</li>
-<li>m (Numbers of observations in the first sample): 1</li>
-<li>n (Numbers of observations in the second sample): 2</li>
-<li>Tail: lower.tail=TRUE</li>
-<li>Probabilities p are given as: log.p = FALSE</li>
-</ul>
-DATE<br />
-<h3>Wilcoxon Rank Sum quantiles: 2</h3>
\ No newline at end of file
------------------------------------------------------------------------------
Dive into the World of Parallel Programming. The Go Parallel Website,
sponsored by Intel and developed in partnership with Slashdot Media, is your
hub for all things parallel software development, from weekly thought
leadership blogs to news, videos, case studies, tutorials and more. Take a
look and join the conversation now. http://goparallel.sourceforge.net/
_______________________________________________
rkward-cvs mailing list
rkward-cvs at lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/rkward-cvs
More information about the rkward-tracker
mailing list