[rkward-cvs] SF.net SVN: rkward:[2687] trunk/rkward/tests
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Mon Oct 5 18:14:01 UTC 2009
Revision: 2687
http://rkward.svn.sourceforge.net/rkward/?rev=2687&view=rev
Author: tfry
Date: 2009-10-05 18:13:07 +0000 (Mon, 05 Oct 2009)
Log Message:
-----------
Adjust tests and standards for r2686.
Modified Paths:
--------------
trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkout
trunk/rkward/tests/analysis_plugins.R
trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.binomial_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.chi_squared_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.f_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.gamma_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gamma_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gamma_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.gamma_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gamma_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.geom_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.geom_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.geom_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.geom_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.geometric_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gumbel_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gumbel_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.gumbel_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.gumbel_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.lillie_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.log_normal_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.log_normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.log_normal_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.log_normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.log_normal_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.logistic_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.logistic_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.logistic_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.logistic_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.logistic_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.negative_binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.negative_binomial_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.negative_binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.negative_binomial_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.negbinomial_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.normal_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.normal_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.normal_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_beta_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_beta_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_binomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_binomial_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_cauchy_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_cauchy_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_chi_squared_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_chi_squared_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_exponential_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_exponential_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_f_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_f_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_gamma_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_gamma_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_geometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_geometric_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_hypergeometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_log_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_log_normal_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_logistic_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_logistic_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_negbinomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_negbinomial_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_normal_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_poisson_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_poisson_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_t_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_t_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_tukey_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_tukey_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_uniform_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_uniform_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_weibull_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.plot_weibull_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.plot_wilcoxon_distribution.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.poisson_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.poisson_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.poisson_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.poisson_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.poisson_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.t_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.t_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.t_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.t_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.t_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.tukey_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.tukey_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.uniform_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.uniform_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.uniform_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.uniform_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.uniform_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.weibull_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.weibull_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.weibull_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.weibull_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.weibull_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_quantiles.rkcommands.R
trunk/rkward/tests/distributions.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_spss.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.load_source.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.write_vector_matrix.rkcommands.R
trunk/rkward/tests/import_export_plugins.R
trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkcommands.R
trunk/rkward/tests/item_response_theory.R
trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.stem_leaf_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.stripchart.rkcommands.R
trunk/rkward/tests/plots.R
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,13 +1,13 @@
local({
## Prepare
## Compute
-result <- var.test (test50z, test50y, alternative = "two.sided", ratio = 1.00000000)
+result <- var.test (test50z, test50y, alternative = "two.sided", ratio = 1.00)
## Print result
names <- rk.get.description (test50z, test50y)
rk.header (result$method,
- parameters=list ("Confidence Level", "0.95000000", "Alternative Hypothesis", rk.describe.alternative(result)))
+ parameters=list ("Confidence Level", "0.95", "Alternative Hypothesis", rk.describe.alternative(result)))
rk.results (list (
'Variables'=names,
@@ -19,5 +19,5 @@
'Upper CI'=result$conf.int[2],
'ratio of variances'=result$estimate))
})
-.rk.rerun.plugin.link(plugin="rkward::F_test", settings="alternative.string=two.sided\nconflevel.real=0.95000000\nratio.real=1.00000000\nx.available=test50z\ny.available=test50y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::F_test", settings="alternative.string=two.sided\nconflevel.real=0.95\nratio.real=1.00\nx.available=test50z\ny.available=test50y", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,6 +1,6 @@
<h1>F test to compare two variances</h1>
<h2>Parameters</h2>
-<ul><li>Confidence Level: 0.95000000</li>
+<ul><li>Confidence Level: 0.95</li>
<li>Alternative Hypothesis: true ratio of variances is not equal to 1</li>
</ul>
DATE<br>
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -11,7 +11,7 @@
parameters=list ("Comparing", paste (names[1], "against", names[2]),
'H1', rk.describe.alternative (result),
"Compute exact p-value", "yes",
- "Confidence Level", "0.95000000" ))
+ "Confidence Level", "0.95" ))
rk.results (list (
'Variable Names'=names,
@@ -22,7 +22,7 @@
'confidence interval of difference'=result$conf.int,
'estimate of the ratio of scales'=result$estimate))
})
-.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_exact_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95000000\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_exact_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
.rk.make.hr()
local({
## Prepare
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
<ul><li>Comparing: test50x against test10y</li>
<li>H1: true ratio of scales is not equal to 1</li>
<li>Compute exact p-value: yes</li>
-<li>Confidence Level: 0.95000000</li>
+<li>Confidence Level: 0.95</li>
</ul>
DATE<br>
<table border="1">
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -10,7 +10,7 @@
"Comparing", paste (names[1], "against", names[2]),
"Alternative Hypothesis", rk.describe.alternative(result),
"Compute exact p-value", "yes",
- "Confidence Level", "0.95000000" ))
+ "Confidence Level", "0.95" ))
rk.results (list (
'Variable Names'=names,
@@ -21,7 +21,7 @@
'confidence interval of difference'=result$conf.int,
'estimate of the ratio of scales'=result$estimate))
})
-.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95000000\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
.rk.make.hr()
local({
## Prepare
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
<ul><li>Comparing: test50x against test10y</li>
<li>Alternative Hypothesis: true ratio of scales is not equal to 1</li>
<li>Compute exact p-value: yes</li>
-<li>Confidence Level: 0.95000000</li>
+<li>Confidence Level: 0.95</li>
</ul>
DATE<br>
<table border="1">
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -23,12 +23,12 @@
results[i, 'Quantiles'] <- paste (names (temp), temp, sep=": ", collapse=" ")
#robust statistics
- results[i, 'Trimmed Mean'] <- mean (var, trim=0.05000000, na.rm=TRUE)
- results[i, 'Median Absolute Deviation'] <- mad (var, constant=1.46280000, na.rm=TRUE)
+ results[i, 'Trimmed Mean'] <- mean (var, trim=0.05, na.rm=TRUE)
+ results[i, 'Median Absolute Deviation'] <- mad (var, constant=1.4628, na.rm=TRUE)
require ("MASS")
temp <- list (c('Location Estimate','Mad scale estimate'), c(NA,NA))
try({
- temp <- hubers (var, k = 1.50000000,tol=0.070000, mu=3, s=,initmu =median(var))
+ temp <- hubers (var, k = 1.50,tol=0.07, mu=3, s=,initmu =median(var))
})
results[i, 'Huber M-Estimator'] <- paste (temp[[1]], temp[[2]], sep=": ", collapse=" ")
}
@@ -37,10 +37,10 @@
'my.data' <- results
## Print result
rk.header ("Univariate statistics", parameters=list (
-"Remove Missing values", TRUE, "Trimmed value for trimmed mean", "0.05000000"
-, "Constant for the MAD estimation", "1.46280000"
-, "Winsorized values for Huber estimator", "1.50000000"
-, "Tolerance in Huber estimator", "0.070000"
+"Remove Missing values", TRUE, "Trimmed value for trimmed mean", "0.05"
+, "Constant for the MAD estimation", "1.4628"
+, "Winsorized values for Huber estimator", "1.50"
+, "Tolerance in Huber estimator", "0.07"
, "Mu for Huber estimator", "3"
, "S for Huber estimator", ""
, "Initial value", "median"
@@ -48,5 +48,5 @@
rk.results (results)
})
-.rk.rerun.plugin.link(plugin="rkward::basic_statistics", settings="autre.real=6.000000\nconstMad.real=1.46280000\ncustomMu.state=1\ncustomS.state=1\nhuber.state=1\ninitmu.string=median\nirq.state=1\nlength.state=1\nmad.state=1\nmaximum.state=1\nmean.state=1\nmedian.state=1\nminimum.state=1\nmu.text=3\nnarm.state=1\nnbmaximum.real=0.000000\nnbminimum.real=0.000000\nnom.selection=my.data\npourcent.real=0.05000000\nquartile.state=1\nresult.state=1\ns.text=\nsd.state=1\ntol.real=0.070000\ntrim.state=1\nvari.state=1\nwinsor.real=1.50000000\nz.available=women[[\\\"weight\\\"]]\\ntest50x", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::basic_statistics", settings="autre.real=6.00\nconstMad.real=1.4628\ncustomMu.state=1\ncustomS.state=1\nhuber.state=1\ninitmu.string=median\nirq.state=1\nlength.state=1\nmad.state=1\nmaximum.state=1\nmean.state=1\nmedian.state=1\nminimum.state=1\nmu.text=3\nnarm.state=1\nnbmaximum.real=0.00\nnbminimum.real=0.00\nnom.selection=my.data\npourcent.real=0.05\nquartile.state=1\nresult.state=1\ns.text=\nsd.state=1\ntol.real=0.07\ntrim.state=1\nvari.state=1\nwinsor.real=1.50\nz.available=women[[\\\"weight\\\"]]\\ntest50x", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
<h1>Univariate statistics</h1>
<h2>Parameters</h2>
<ul><li>Remove Missing values: TRUE</li>
-<li>Trimmed value for trimmed mean: 0.05000000</li>
-<li>Constant for the MAD estimation: 1.46280000</li>
-<li>Winsorized values for Huber estimator: 1.50000000</li>
-<li>Tolerance in Huber estimator: 0.070000</li>
+<li>Trimmed value for trimmed mean: 0.05</li>
+<li>Constant for the MAD estimation: 1.4628</li>
+<li>Winsorized values for Huber estimator: 1.50</li>
+<li>Tolerance in Huber estimator: 0.07</li>
<li>Mu for Huber estimator: 3</li>
<li>S for Huber estimator: </li>
<li>Initial value: median</li>
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -24,5 +24,5 @@
rk.results (results)
})
-.rk.rerun.plugin.link(plugin="rkward::basic_statistics", settings="autre.real=0.000000\nhuber.state=\nirq.state=0\nlength.state=0\nmad.state=\nmaximum.state=0\nmean.state=0\nmedian.state=0\nminimum.state=0\nnarm.state=1\nnbmaximum.real=3.000000\nnbminimum.real=2.000000\nquartile.state=0\nresult.state=\nsd.state=0\ntrim.state=\nvari.state=0\nz.available=test10x\\nwomen[[\\\"height\\\"]]", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::basic_statistics", settings="autre.real=0.00\nhuber.state=\nirq.state=0\nlength.state=0\nmad.state=\nmaximum.state=0\nmean.state=0\nmedian.state=0\nminimum.state=0\nnarm.state=1\nnbmaximum.real=3.00\nnbminimum.real=2.00\nquartile.state=0\nresult.state=\nsd.state=0\ntrim.state=\nvari.state=0\nz.available=test10x\\nwomen[[\\\"height\\\"]]", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -22,5 +22,5 @@
rk.results (results)
})
-.rk.rerun.plugin.link(plugin="rkward::Box_test", settings="lag.real=1.000000\nlength.state=1\nnarm.state=0\ntype.string=Box-Pierce\nx.available=test50x\\ntest10y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::Box_test", settings="lag.real=1.00\nlength.state=1\nnarm.state=0\ntype.string=Box-Pierce\nx.available=test50x\\ntest10y", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -34,5 +34,5 @@
rk.print("Legend:\t'***': p < 0.001 -- '**': p < 0.01 -- '*': p < 0.05 -- '.'': p < 0.1")
})
-.rk.rerun.plugin.link(plugin="rkward::cor_graph", settings="digits.real=3.000000\nmethod.string=pearson\nscale.state=TRUE\nuse.string=pairwise.complete.obs\nx.available=rock", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::cor_graph", settings="digits.real=3.00\nmethod.string=pearson\nscale.state=TRUE\nuse.string=pairwise.complete.obs\nx.available=rock", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -36,5 +36,5 @@
rk.graph.off ()
}
})
-.rk.rerun.plugin.link(plugin="rkward::crosstab", settings="barplot.state=TRUE\nbarplot_embed.colors.string=default\nbarplot_embed.labels.state=0\nbarplot_embed.legend.state=0\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00000000\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=juxtaposed\nchisq.state=TRUE\nsimpv.string=FALSE\nx.available=warpbreaks[[\\\"tension\\\"]]\ny.available=warpbreaks[[\\\"wool\\\"]]\\nwarpbreaks[[\\\"tension\\\"]]", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::crosstab", settings="barplot.state=TRUE\nbarplot_embed.colors.string=default\nbarplot_embed.labels.state=0\nbarplot_embed.legend.state=0\nbarplot_embed.plotoptions.add_grid.state=0\nbarplot_embed.plotoptions.asp.real=0.00\nbarplot_embed.plotoptions.main.text=\nbarplot_embed.plotoptions.pointcolor.color.string=\nbarplot_embed.plotoptions.pointtype.string=\nbarplot_embed.plotoptions.sub.text=\nbarplot_embed.plotoptions.xaxt.state=\nbarplot_embed.plotoptions.xlab.text=\nbarplot_embed.plotoptions.xlog.state=\nbarplot_embed.plotoptions.xmaxvalue.text=\nbarplot_embed.plotoptions.xminvalue.text=\nbarplot_embed.plotoptions.yaxt.state=\nbarplot_embed.plotoptions.ylab.text=\nbarplot_embed.plotoptions.ylog.state=\nbarplot_embed.plotoptions.ymaxvalue.text=\nbarplot_embed.plotoptions.yminvalue.text=\nbarplot_embed.type.string=juxtaposed\nchisq.state=TRUE\nsimpv.string=FALSE\nx.available=warpbreaks[[\\\"tension\\\"]]\ny.available=warpbreaks[[\\\"wool\\\"]]\\nwarpbreaks[[\\\"tension\\\"]]", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -8,7 +8,7 @@
var <- eval (vars[[i]], envir=globalenv()) # fetch the real object
# we wrap each single call in a "try" statement to always continue on errors.
- results[i, 'mean'] <- try (mean (var, trim = 0.00000000, na.rm=TRUE))
+ results[i, 'mean'] <- try (mean (var, trim = 0.00, na.rm=TRUE))
results[i, 'median'] <- try (median (var, na.rm=TRUE))
try ({
range <- try (range (var, na.rm=TRUE))
@@ -18,17 +18,17 @@
results[i, 'standard deviation'] <- try (sd (var, na.rm=TRUE))
results[i, 'sum'] <- try (sum (var, na.rm=TRUE))
results[i, 'product'] <- try (prod (var, na.rm=TRUE))
- results[i, 'Median Absolute Deviation'] <- try (mad (var, constant = 1.46280000, na.rm=TRUE))
+ results[i, 'Median Absolute Deviation'] <- try (mad (var, constant = 1.4628, na.rm=TRUE))
results[i, 'length of sample'] <- length (var)
results[i, 'number of NAs'] <- sum (is.na(var))
}
## Print result
rk.header ("Descriptive statistics", parameters=list (
- "Trim of mean", 0.00000000,
+ "Trim of mean", 0.00,
"Median Absolute Deviation",
- paste ("constant:", 1.46280000, "average")))
+ paste ("constant:", 1.4628, "average")))
rk.results (results)
})
-.rk.rerun.plugin.link(plugin="rkward::descriptive", settings="constMad.real=1.46280000\nlength.state=1\nmad.state=1\nmad_type.string=average\nmean.state=1\nmedian.state=1\nprod.state=1\nrange.state=1\nsd.state=1\nsum.state=1\ntrim.real=0.00000000\nx.available=women[[\\\"height\\\"]]\\ntest10z", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::descriptive", settings="constMad.real=1.4628\nlength.state=1\nmad.state=1\nmad_type.string=average\nmean.state=1\nmedian.state=1\nprod.state=1\nrange.state=1\nsd.state=1\nsum.state=1\ntrim.real=0.00\nx.available=women[[\\\"height\\\"]]\\ntest10z", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -25,5 +25,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::hp_filter", settings="create_cycle.state=1\ncreate_trend.state=1\ncustom.state=0\ncycle_col.color.string=green4\ncycle_lty.string=\ncycle_lwd.real=1.000000\ncycle_name.selection=hpcycle\ndownlab.text=\nlambda.string=1600\nplot_cycle.state=1\nseries_col.color.string=blue\nseries_lty.string=\nseries_lwd.real=1.000000\ntrend_col.color.string=red\ntrend_lty.string=\ntrend_lwd.real=1.000000\ntrend_name.selection=hptrend\nuplab.text=\nx.available=co2", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::hp_filter", settings="create_cycle.state=1\ncreate_trend.state=1\ncustom.state=0\ncycle_col.color.string=green4\ncycle_lty.string=\ncycle_lwd.real=1.00\ncycle_name.selection=hpcycle\ndownlab.text=\nlambda.string=1600\nplot_cycle.state=1\nseries_col.color.string=blue\nseries_lty.string=\nseries_lwd.real=1.00\ntrend_col.color.string=red\ntrend_lty.string=\ntrend_lwd.real=1.00\ntrend_name.selection=hptrend\nuplab.text=\nx.available=co2", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -16,5 +16,5 @@
parameters=list ("Order", "1", "Compute central moments", "FALSE", "Compute absolute moments", "FALSE", "Remove missing values", "TRUE"))
rk.results (results)
})
-.rk.rerun.plugin.link(plugin="rkward::moment", settings="absolute.state=FALSE\ncentral.state=FALSE\nlength.state=0\nnarm.state=TRUE\norder.real=1.000000\nx.available=test50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::moment", settings="absolute.state=FALSE\ncentral.state=FALSE\nlength.state=0\nnarm.state=TRUE\norder.real=1.00\nx.available=test50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -18,13 +18,13 @@
'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
'confidence interval of difference'=result$conf.int ))
})
-.rk.rerun.plugin.link(plugin="rkward::t_test_two_vars", settings="confint.state=1\nconflevel.real=0.95000000\nhypothesis.string=two.sided\npaired.state=0\nvarequal.state=0\nx.available=test50x\ny.available=test50y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::t_test_two_vars", settings="confint.state=1\nconflevel.real=0.95\nhypothesis.string=two.sided\npaired.state=0\nvarequal.state=0\nx.available=test50x\ny.available=test50y", label="Run again")
.rk.make.hr()
local({
## Prepare
names <- rk.get.description (test10y, test10z)
## Compute
-result <- t.test (test10y, test10z, alternative="less", paired=TRUE, conf.level=0.99000000)
+result <- t.test (test10y, test10z, alternative="less", paired=TRUE, conf.level=0.99)
## Print result
rk.header (result$method,
parameters=list ("Comparing", paste (names[1], "against", names[2]),
@@ -39,5 +39,5 @@
'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
'confidence interval of difference'=result$conf.int ))
})
-.rk.rerun.plugin.link(plugin="rkward::t_test_two_vars", settings="confint.state=1\nconflevel.real=0.99000000\nhypothesis.string=less\npaired.state=1\nx.available=test10y\ny.available=test10z", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::t_test_two_vars", settings="confint.state=1\nconflevel.real=0.99\nhypothesis.string=less\npaired.state=1\nx.available=test10y\ny.available=test10z", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -4,7 +4,7 @@
names = rk.get.description (test50x)
## Compute
-result <- wilcox.exact (test50x, alternative = "two.sided", mu = 0.00000000, exact=TRUE, correct = FALSE, conf.int = TRUE)
+result <- wilcox.exact (test50x, alternative = "two.sided", mu = 0.00, exact=TRUE, correct = FALSE, conf.int = TRUE)
## Print result
rk.header (result$method,
@@ -12,7 +12,7 @@
"H1", rk.describe.alternative (result),
"Continuity correction in normal approximation for p-value", "FALSE",
"Compute exact p-value", "yes", "Paired test", "FALSE",
- "mu", "0.00000000"))
+ "mu", "0.00"))
rk.results (list (
'Variable Names'=names,
@@ -24,7 +24,7 @@
'confidence interval of difference'=result$conf.int,
'Difference in Location' = result$estimate))
})
-.rk.rerun.plugin.link(plugin="rkward::wilcoxon_exact_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95000000\ncorrect.state=FALSE\nexact.string=yes\nmu.real=0.00000000\nx.available=test50x\ny.available=", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::wilcoxon_exact_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95\ncorrect.state=FALSE\nexact.string=yes\nmu.real=0.00\nx.available=test50x\ny.available=", label="Run again")
.rk.make.hr()
local({
## Prepare
@@ -32,7 +32,7 @@
names = rk.get.description (test50x, test50y)
## Compute
-result <- wilcox.exact (test50x, test50y, alternative = "less", mu = 0.00000000, paired = TRUE, correct = TRUE, conf.int = FALSE)
+result <- wilcox.exact (test50x, test50y, alternative = "less", mu = 0.00, paired = TRUE, correct = TRUE, conf.int = FALSE)
## Print result
rk.header (result$method,
@@ -40,7 +40,7 @@
"H1", rk.describe.alternative (result),
"Continuity correction in normal approximation for p-value", "TRUE",
"Compute exact p-value", "automatic", "Paired test", "TRUE",
- "mu", "0.00000000"))
+ "mu", "0.00"))
rk.results (list (
'Variable Names'=names,
@@ -49,5 +49,5 @@
'Hypothesis'=result$alternative,
p=result$p.value))
})
-.rk.rerun.plugin.link(plugin="rkward::wilcoxon_exact_test", settings="alternative.string=less\nconfint.state=FALSE\ncorrect.state=TRUE\nexact.string=automatic\nmu.real=0.00000000\npaired.state=TRUE\nx.available=test50x\ny.available=test50y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::wilcoxon_exact_test", settings="alternative.string=less\nconfint.state=FALSE\ncorrect.state=TRUE\nexact.string=automatic\nmu.real=0.00\npaired.state=TRUE\nx.available=test50x\ny.available=test50y", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_exact_test.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -5,7 +5,7 @@
<li>Continuity correction in normal approximation for p-value: FALSE</li>
<li>Compute exact p-value: yes</li>
<li>Paired test: FALSE</li>
-<li>mu: 0.00000000</li>
+<li>mu: 0.00</li>
</ul>
DATE<br>
<table border="1">
@@ -20,7 +20,7 @@
<li>Continuity correction in normal approximation for p-value: TRUE</li>
<li>Compute exact p-value: automatic</li>
<li>Paired test: TRUE</li>
-<li>mu: 0.00000000</li>
+<li>mu: 0.00</li>
</ul>
DATE<br>
<table border="1">
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -2,7 +2,7 @@
## Prepare
names = rk.get.description (test50x)
## Compute
-result <- wilcox.test (test50x, alternative = "two.sided", mu = 0.00000000, exact=TRUE, correct = FALSE, conf.int = TRUE)
+result <- wilcox.test (test50x, alternative = "two.sided", mu = 0.00, exact=TRUE, correct = FALSE, conf.int = TRUE)
## Print result
rk.header (result$method,
@@ -10,7 +10,7 @@
"H1", rk.describe.alternative (result),
"Continuity correction in normal approximation for p-value", "FALSE",
"Compute exact p-value", "yes", "Paired test", "FALSE",
- "mu", "0.00000000"))
+ "mu", "0.00"))
rk.results (list (
'Variable Names'=names,
@@ -22,13 +22,13 @@
'confidence interval of difference'=result$conf.int,
'Difference in Location' = result$estimate))
})
-.rk.rerun.plugin.link(plugin="rkward::wilcoxon_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95000000\ncorrect.state=FALSE\nexact.string=yes\nmu.real=0.00000000\nx.available=test50x\ny.available=", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::wilcoxon_test", settings="alternative.string=two.sided\nconfint.state=TRUE\nconflevel.real=0.95\ncorrect.state=FALSE\nexact.string=yes\nmu.real=0.00\nx.available=test50x\ny.available=", label="Run again")
.rk.make.hr()
local({
## Prepare
names = rk.get.description (test50x, test50y)
## Compute
-result <- wilcox.test (test50x, test50y, alternative = "less", mu = 0.00000000, paired = TRUE, correct = TRUE, conf.int = FALSE)
+result <- wilcox.test (test50x, test50y, alternative = "less", mu = 0.00, paired = TRUE, correct = TRUE, conf.int = FALSE)
## Print result
rk.header (result$method,
@@ -36,7 +36,7 @@
"H1", rk.describe.alternative (result),
"Continuity correction in normal approximation for p-value", "TRUE",
"Compute exact p-value", "automatic", "Paired test", "TRUE",
- "mu", "0.00000000"))
+ "mu", "0.00"))
rk.results (list (
'Variable Names'=names,
@@ -45,5 +45,5 @@
'Hypothesis'=result$alternative,
p=result$p.value))
})
-.rk.rerun.plugin.link(plugin="rkward::wilcoxon_test", settings="alternative.string=less\nconfint.state=FALSE\ncorrect.state=TRUE\nexact.string=automatic\nmu.real=0.00000000\npaired.state=TRUE\nx.available=test50x\ny.available=test50y", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::wilcoxon_test", settings="alternative.string=less\nconfint.state=FALSE\ncorrect.state=TRUE\nexact.string=automatic\nmu.real=0.00\npaired.state=TRUE\nx.available=test50x\ny.available=test50y", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.wilcoxon_test.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -5,7 +5,7 @@
<li>Continuity correction in normal approximation for p-value: FALSE</li>
<li>Compute exact p-value: yes</li>
<li>Paired test: FALSE</li>
-<li>mu: 0.00000000</li>
+<li>mu: 0.00</li>
</ul>
DATE<br>
<table border="1">
@@ -20,7 +20,7 @@
<li>Continuity correction in normal approximation for p-value: TRUE</li>
<li>Compute exact p-value: automatic</li>
<li>Paired test: TRUE</li>
-<li>mu: 0.00000000</li>
+<li>mu: 0.00</li>
</ul>
DATE<br>
<table border="1">
Modified: trunk/rkward/tests/analysis_plugins.R
===================================================================
--- trunk/rkward/tests/analysis_plugins.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/analysis_plugins.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -30,10 +30,10 @@
## the tests
), tests = list (
new ("RKTest", id="basic_statistics_a", call=function () {
- rk.call.plugin ("rkward::basic_statistics", autre.real="6.000000", constMad.real="1.46280000", customMu.state="1", customS.state="1", huber.state="1", initmu.string="median", irq.state="1", length.state="1", mad.state="1", maximum.state="1", mean.state="1", median.state="1", minimum.state="1", mu.text="3", narm.state="1", nbmaximum.real="0.000000", nbminimum.real="0.000000", nom.selection="my.data", pourcent.real="0.05000000", quartile.state="1", result.state="1", s.text="", sd.state="1", tol.real="0.070000", trim.state="1", vari.state="1", winsor.real="1.50000000", z.available="women[[\"weight\"]]\ntest50x", submit.mode="submit")
+ rk.call.plugin ("rkward::basic_statistics", autre.real="6.00", constMad.real="1.4628", customMu.state="1", customS.state="1", huber.state="1", initmu.string="median", irq.state="1", length.state="1", mad.state="1", maximum.state="1", mean.state="1", median.state="1", minimum.state="1", mu.text="3", narm.state="1", nbmaximum.real="0.00", nbminimum.real="0.00", nom.selection="my.data", pourcent.real="0.05", quartile.state="1", result.state="1", s.text="", sd.state="1", tol.real="0.07", trim.state="1", vari.state="1", winsor.real="1.50", z.available="women[[\"weight\"]]\ntest50x", submit.mode="submit")
}, libraries=c("MASS")),
new ("RKTest", id="basic_statistics_b", call=function () {
- rk.call.plugin ("rkward::basic_statistics", autre.real="0.000000", huber.state="", irq.state="0", length.state="0", mad.state="", maximum.state="0", mean.state="0", median.state="0", minimum.state="0", narm.state="1", nbmaximum.real="3.000000", nbminimum.real="2.000000", quartile.state="0", result.state="", sd.state="0", trim.state="", vari.state="0", z.available="test10x\nwomen[[\"height\"]]", submit.mode="submit")
+ rk.call.plugin ("rkward::basic_statistics", autre.real="0.00", huber.state="", irq.state="0", length.state="0", mad.state="", maximum.state="0", mean.state="0", median.state="0", minimum.state="0", narm.state="1", nbmaximum.real="3.00", nbminimum.real="2.00", quartile.state="0", result.state="", sd.state="0", trim.state="", vari.state="0", z.available="test10x\nwomen[[\"height\"]]", submit.mode="submit")
}),
new ("RKTest", id="correlation_matrix", call=function () {
rk.call.plugin ("rkward::corr_matrix", do_p.state="1", method.string="pearson", use.string="pairwise", x.available="test50x\ntest50y\ntest50z", submit.mode="submit")
@@ -41,28 +41,28 @@
rk.call.plugin ("rkward::corr_matrix", do_p.state="", method.string="pearson", use.string="pairwise", x.available="women[[\"weight\"]]\nwomen[[\"height\"]]", submit.mode="submit")
}),
new ("RKTest", id="correlation_matrix_plot", call=function () {
- rk.call.plugin ("rkward::cor_graph", digits.real="3.000000", method.string="pearson", scale.state="TRUE", use.string="pairwise.complete.obs", x.available="rock", submit.mode="submit")
+ rk.call.plugin ("rkward::cor_graph", digits.real="3.00", method.string="pearson", scale.state="TRUE", use.string="pairwise.complete.obs", x.available="rock", submit.mode="submit")
}),
new ("RKTest", id="descriptive_stats", call=function () {
- rk.call.plugin ("rkward::descriptive", constMad.real="1.46280000", length.state="1", mad.state="1", mad_type.string="average", mean.state="1", median.state="1", prod.state="1", range.state="1", sd.state="1", sum.state="1", trim.real="0.00000000", x.available="women[[\"height\"]]\ntest10z", submit.mode="submit")
+ rk.call.plugin ("rkward::descriptive", constMad.real="1.4628", length.state="1", mad.state="1", mad_type.string="average", mean.state="1", median.state="1", prod.state="1", range.state="1", sd.state="1", sum.state="1", trim.real="0.00", x.available="women[[\"height\"]]\ntest10z", submit.mode="submit")
}),
new ("RKTest", id="t_test_two_vars", call=function () {
- rk.call.plugin ("rkward::t_test_two_vars", confint.state="1", conflevel.real="0.95000000", hypothesis.string="two.sided", paired.state="0", varequal.state="0", x.available="test50x", y.available="test50y", submit.mode="submit")
+ rk.call.plugin ("rkward::t_test_two_vars", confint.state="1", conflevel.real="0.95", hypothesis.string="two.sided", paired.state="0", varequal.state="0", x.available="test50x", y.available="test50y", submit.mode="submit")
- rk.call.plugin ("rkward::t_test_two_vars", confint.state="1", conflevel.real="0.99000000", hypothesis.string="less", paired.state="1", x.available="test10y", y.available="test10z", submit.mode="submit")
+ rk.call.plugin ("rkward::t_test_two_vars", confint.state="1", conflevel.real="0.99", hypothesis.string="less", paired.state="1", x.available="test10y", y.available="test10z", submit.mode="submit")
}),
new ("RKTest", id="wilcoxon_test", call=function () {
- rk.call.plugin ("rkward::wilcoxon_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95000000", correct.state="FALSE", exact.string="yes", mu.real="0.00000000", x.available="test50x", y.available="", submit.mode="submit")
+ rk.call.plugin ("rkward::wilcoxon_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", correct.state="FALSE", exact.string="yes", mu.real="0.00", x.available="test50x", y.available="", submit.mode="submit")
- rk.call.plugin ("rkward::wilcoxon_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00000000", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
+ rk.call.plugin ("rkward::wilcoxon_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
}),
new ("RKTest", id="wilcoxon_exact_test", call=function () {
- rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95000000", correct.state="FALSE", exact.string="yes", mu.real="0.00000000", x.available="test50x", y.available="", submit.mode="submit")
+ rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", correct.state="FALSE", exact.string="yes", mu.real="0.00", x.available="test50x", y.available="", submit.mode="submit")
- rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00000000", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
+ rk.call.plugin ("rkward::wilcoxon_exact_test", alternative.string="less", confint.state="FALSE", correct.state="TRUE", exact.string="automatic", mu.real="0.00", paired.state="TRUE", x.available="test50x", y.available="test50y", submit.mode="submit")
}, libraries=c ("exactRankTests")),
new ("RKTest", id="moments_moment", call=function () {
- rk.call.plugin ("rkward::moment", absolute.state="FALSE", central.state="FALSE", length.state="0", narm.state="TRUE", order.real="1.000000", x.available="test50z\ntest50y\ntest50x\ntest10z\ntest10y\ntest10x", submit.mode="submit")
+ rk.call.plugin ("rkward::moment", absolute.state="FALSE", central.state="FALSE", length.state="0", narm.state="TRUE", order.real="1.00", x.available="test50z\ntest50y\ntest50x\ntest10z\ntest10y\ntest10x", submit.mode="submit")
}, libraries=c ("moments")),
new ("RKTest", id="bonett_test", call=function () {
rk.call.plugin ("rkward::bonett_test", alternative.string="two.sided", length.state="1", show_alternative.state="1", x.available="test50z\ntest50y\ntest50x\ntest10z\ntest10y\ntest10x", submit.mode="submit")
@@ -77,7 +77,7 @@
rk.call.plugin ("rkward::skewness_kurtosis", geary.state="1", kurtosis.state="1", length.state="1", narm.state="1", skewness.state="1", x.available="women[[\"weight\"]]\nwomen[[\"height\"]]\nwarpbreaks[[\"breaks\"]]", submit.mode="submit")
}, libraries=c ("moments")),
new ("RKTest", id="F_test", call=function () {
- rk.call.plugin ("rkward::F_test", alternative.string="two.sided", conflevel.real="0.95000000", ratio.real="1.00000000", x.available="test50z", y.available="test50y", submit.mode="submit")
+ rk.call.plugin ("rkward::F_test", alternative.string="two.sided", conflevel.real="0.95", ratio.real="1.00", x.available="test50z", y.available="test50y", submit.mode="submit")
}),
new ("RKTest", id="fligner_test", call=function () {
rk.call.plugin ("rkward::fligner_test", x.available="women[[\"weight\"]]\nwomen[[\"height\"]]\ntest50z\ntest50y\ntest50x\ntest10z\ntest10y\ntest10x", submit.mode="submit")
@@ -89,12 +89,12 @@
rk.call.plugin ("rkward::levene_test", group.available="warpbreaks[[\"tension\"]]", y.available="warpbreaks[[\"breaks\"]]", submit.mode="submit")
}, libraries = c ("car")),
new ("RKTest", id="ansari_bradley_test", call=function () {
- rk.call.plugin ("rkward::ansari_bradley_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95000000", exact.string="yes", x.available="test50x", y.available="test10y", submit.mode="submit")
+ rk.call.plugin ("rkward::ansari_bradley_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", exact.string="yes", x.available="test50x", y.available="test10y", submit.mode="submit")
rk.call.plugin ("rkward::ansari_bradley_test", alternative.string="less", confint.state="FALSE", exact.string="automatic", x.available="test50x", y.available="test50y", submit.mode="submit")
}),
new ("RKTest", id="ansari_bradley_exact_test", call=function () {
- rk.call.plugin ("rkward::ansari_bradley_exact_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95000000", exact.string="yes", x.available="test50x", y.available="test10y", submit.mode="submit")
+ rk.call.plugin ("rkward::ansari_bradley_exact_test", alternative.string="two.sided", confint.state="TRUE", conflevel.real="0.95", exact.string="yes", x.available="test50x", y.available="test10y", submit.mode="submit")
rk.call.plugin ("rkward::ansari_bradley_exact_test", alternative.string="less", confint.state="FALSE", exact.string="automatic", x.available="test50x", y.available="test50y", submit.mode="submit")
}, libraries=c ("exactRankTests")),
@@ -125,13 +125,13 @@
rk.call.plugin ("rkward::PP_test", length.state="1", lshort.string="FALSE", narm.state="0", x.available="rock[[\"shape\"]]\nrock[[\"perm\"]]\nrock[[\"peri\"]]\nrock[[\"area\"]]", submit.mode="submit")
}),
new ("RKTest", id="crosstab_n_to_1", call=function () {
- rk.call.plugin ("rkward::crosstab", barplot.state="TRUE", barplot_embed.colors.string="default", barplot_embed.labels.state="0", barplot_embed.legend.state="0", barplot_embed.plotoptions.add_grid.state="0", barplot_embed.plotoptions.asp.real="0.00000000", barplot_embed.plotoptions.main.text="", barplot_embed.plotoptions.pointcolor.color.string="", barplot_embed.plotoptions.pointtype.string="", barplot_embed.plotoptions.sub.text="", barplot_embed.plotoptions.xaxt.state="", barplot_embed.plotoptions.xlab.text="", barplot_embed.plotoptions.xlog.state="", barplot_embed.plotoptions.xmaxvalue.text="", barplot_embed.plotoptions.xminvalue.text="", barplot_embed.plotoptions.yaxt.state="", barplot_embed.plotoptions.ylab.text="", barplot_embed.plotoptions.ylog.state="", barplot_embed.plotoptions.ymaxvalue.text="", barplot_embed.plotoptions.yminvalue.text="", barplot_embed.type.string="juxtaposed", chisq.state="TRUE", simpv.string="FALSE", x.available="warpbreaks[[\"tension\"]]", y.available="warpbreaks[[\"wool\"]]\nwarpbreaks[[\"tension\"]]", submit.mode="submit")
+ rk.call.plugin ("rkward::crosstab", barplot.state="TRUE", barplot_embed.colors.string="default", barplot_embed.labels.state="0", barplot_embed.legend.state="0", barplot_embed.plotoptions.add_grid.state="0", barplot_embed.plotoptions.asp.real="0.00", barplot_embed.plotoptions.main.text="", barplot_embed.plotoptions.pointcolor.color.string="", barplot_embed.plotoptions.pointtype.string="", barplot_embed.plotoptions.sub.text="", barplot_embed.plotoptions.xaxt.state="", barplot_embed.plotoptions.xlab.text="", barplot_embed.plotoptions.xlog.state="", barplot_embed.plotoptions.xmaxvalue.text="", barplot_embed.plotoptions.xminvalue.text="", barplot_embed.plotoptions.yaxt.state="", barplot_embed.plotoptions.ylab.text="", barplot_embed.plotoptions.ylog.state="", barplot_embed.plotoptions.ymaxvalue.text="", barplot_embed.plotoptions.yminvalue.text="", barplot_embed.type.string="juxtaposed", chisq.state="TRUE", simpv.string="FALSE", x.available="warpbreaks[[\"tension\"]]", y.available="warpbreaks[[\"wool\"]]\nwarpbreaks[[\"tension\"]]", submit.mode="submit")
}),
new ("RKTest", id="crosstab_multi", call=function () {
rk.call.plugin ("rkward::crosstab_multi", exclude_nas.state="1", x.available="test_table[[\"A\"]]\ntest_table[[\"B\"]]\ntest_table[[\"C\"]]\ntest_table[[\"D\"]]", submit.mode="submit")
}),
new ("RKTest", id="box_test", call=function () {
- rk.call.plugin ("rkward::Box_test", lag.real="1.000000", length.state="1", narm.state="0", type.string="Box-Pierce", x.available="test50x\ntest10y", submit.mode="submit")
+ rk.call.plugin ("rkward::Box_test", lag.real="1.00", length.state="1", narm.state="0", type.string="Box-Pierce", x.available="test50x\ntest10y", submit.mode="submit")
}),
new ("RKTest", id="kpss_test", call=function () {
rk.call.plugin ("rkward::kpss_test", length.state="1", lshort.string="FALSE", narm.state="0", null.string="Trend", x.available="test10y\ntest10z\ntest50x\ntest50y", submit.mode="submit")
@@ -140,7 +140,7 @@
data (co2)
rk.sync.global()
- rk.call.plugin ("rkward::hp_filter", create_cycle.state="1", create_trend.state="1", custom.state="0", cycle_col.color.string="green4", cycle_lty.string="", cycle_lwd.real="1.000000", cycle_name.selection="hpcycle", downlab.text="", lambda.string="1600", plot_cycle.state="1", series_col.color.string="blue", series_lty.string="", series_lwd.real="1.000000", trend_col.color.string="red", trend_lty.string="", trend_lwd.real="1.000000", trend_name.selection="hptrend", uplab.text="", x.available="co2", submit.mode="submit")
+ rk.call.plugin ("rkward::hp_filter", create_cycle.state="1", create_trend.state="1", custom.state="0", cycle_col.color.string="green4", cycle_lty.string="", cycle_lwd.real="1.00", cycle_name.selection="hpcycle", downlab.text="", lambda.string="1600", plot_cycle.state="1", series_col.color.string="blue", series_lty.string="", series_lwd.real="1.00", trend_col.color.string="red", trend_lty.string="", trend_lwd.real="1.00", trend_name.selection="hptrend", uplab.text="", x.available="co2", submit.mode="submit")
rk.print (summary (hptrend))
rk.print (summary (hpcycle))
Modified: trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-shape1 <- 2.00000000; shape2 <- 2.00000000;
+shape1 <- 2.0; shape2 <- 2.0;
# mean and variances of the distribution of sample averages:
avg.exp <- shape1/(shape1 + shape2);
avg.var <- (shape1*shape2/((shape1+shape2)^2*(shape1+shape2+1)))/10;
@@ -24,5 +24,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_beta_clt", settings="a.real=2.00000000\nb.real=2.00000000\ndrawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=1\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histfillcol.color.string=azure\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=1\nnAvg.real=10.000000\nnDist.real=1000.000000\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=0", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_beta_clt", settings="a.real=2.0\nb.real=2.0\ndrawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=1\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histfillcol.color.string=azure\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=1\nnAvg.real=10.00\nnDist.real=1000.00\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=0", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (pbeta (q = c (0.95), shape1 = 1.00000000, shape2 = 1.00000000, ncp = 0.00000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pbeta (q = c (0.95), shape1 = 1.00, shape2 = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Beta probability", list ("Vector of quantiles", "c (0.95)", "Shape 1", "1.00000000", "Shape 2", "1.00000000", "non-centrality parameter (ncp)", "0.00000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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.rerun.plugin.link(plugin="rkward::beta_probabilities", settings="logp.string=log.p = FALSE\nncp.real=0.00000000\nq.text=0.95\nshape1.real=1.00000000\nshape2.real=1.00000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::beta_probabilities", settings="logp.string=log.p = FALSE\nncp.real=0.00\nq.text=0.95\nshape1.real=1.00\nshape2.real=1.00\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (pbeta (q = c (0.96), shape1 = 1.01000000, shape2 = 1.01000000, ncp = 0.02000000, lower.tail=FALSE, log.p = TRUE))
+result <- (pbeta (q = c (0.96), shape1 = 1.01, shape2 = 1.01, ncp = 0.02, lower.tail=FALSE, log.p = TRUE))
## Print result
-rk.header ("Beta probability", list ("Vector of quantiles", "c (0.96)", "Shape 1", "1.01000000", "Shape 2", "1.01000000", "non-centrality parameter (ncp)", "0.02000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
+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.rerun.plugin.link(plugin="rkward::beta_probabilities", settings="logp.string=log.p = TRUE\nncp.real=0.02000000\nq.text=0.96\nshape1.real=1.01000000\nshape2.real=1.01000000\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::beta_probabilities", settings="logp.string=log.p = TRUE\nncp.real=0.02\nq.text=0.96\nshape1.real=1.01\nshape2.real=1.01\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.beta_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,9 +1,9 @@
<h1>Beta probability</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Shape 1: 1.00000000</li>
-<li>Shape 2: 1.00000000</li>
-<li>non-centrality parameter (ncp): 0.00000000</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>
@@ -11,9 +11,9 @@
<h3>Beta probability: 0.95</h3><h1>Beta probability</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.96)</li>
-<li>Shape 1: 1.01000000</li>
-<li>Shape 2: 1.01000000</li>
-<li>non-centrality parameter (ncp): 0.02000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (qbeta (p = c (0.95), shape1 = 1.00000000, shape2 = 1.00000000, ncp = 0.00000000, lower.tail=TRUE, log.p = FALSE))
+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.00000000", "Shape 2", "1.00000000", "non-centrality parameter (ncp)", "0.00000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::beta_quantiles", settings="logp.string=log.p = FALSE\nncp.real=0.00000000\np.text=0.95\nshape1.real=1.00000000\nshape2.real=1.00000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::beta_quantiles", settings="logp.string=log.p = FALSE\nncp.real=0.00\np.text=0.95\nshape1.real=1.00\nshape2.real=1.00\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (qbeta (p = c (-1), shape1 = 1.04000000, shape2 = 1.03000000, ncp = 0.08000000, lower.tail=FALSE, log.p = TRUE))
+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.04000000", "Shape 2", "1.03000000", "non-centrality parameter (ncp)", "0.08000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::beta_quantiles", settings="logp.string=log.p = TRUE\nncp.real=0.08000000\np.text=-1\nshape1.real=1.04000000\nshape2.real=1.03000000\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::beta_quantiles", settings="logp.string=log.p = TRUE\nncp.real=0.08\np.text=-1\nshape1.real=1.04\nshape2.real=1.03\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.beta_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,9 +1,9 @@
<h1>Beta quantiles</h1>
<h2>Parameters</h2>
<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Shape 1: 1.00000000</li>
-<li>Shape 2: 1.00000000</li>
-<li>non-centrality parameter (ncp): 0.00000000</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>
@@ -11,9 +11,9 @@
<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.04000000</li>
-<li>Shape 2: 1.03000000</li>
-<li>non-centrality parameter (ncp): 0.08000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.binomial_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.binomial_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.binomial_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-size <- 11; prob <- 0.50000000;
+size <- 11; prob <- 0.50;
# mean and variances of the distribution of sample averages:
avg.exp <- size*prob;
avg.var <- (size*prob*(1-prob))/1;
@@ -24,5 +24,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_binomial_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=int\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.include_lowest.state=1\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=1.000000\nnDist.real=1000.000000\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nprob.real=0.50000000\nscalenorm.state=0\nsize.real=11.000000", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_binomial_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=int\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.include_lowest.state=1\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=1.00\nnDist.real=1000.00\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nprob.real=0.50\nscalenorm.state=0\nsize.real=11.00", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (pbinom (q = c (0.95, 2), size = 3, prob = 0.50000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pbinom (q = c (0.95, 2), size = 3, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Binomial tail probability", list ("Vector of quantiles", "c (0.95, 2)", "Binomial trials", "3", "Probability of success", "0.50000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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.rerun.plugin.link(plugin="rkward::binomial_tail_probabilities", settings="logp.string=log.p = FALSE\nprob.real=0.50000000\nq.text=0.95 2\nsize.real=3.000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::binomial_tail_probabilities", settings="logp.string=log.p = FALSE\nprob.real=0.50\nq.text=0.95 2\nsize.real=3.00\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.binomial_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -2,7 +2,7 @@
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.95, 2)</li>
<li>Binomial trials: 3</li>
-<li>Probability of success: 0.50000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (qbinom (p = c (0.95, .5), size = 3, prob = 0.50000000, lower.tail=TRUE, log.p = FALSE))
+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.50000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::binomial_quantiles", settings="logp.string=log.p = FALSE\np.text=0.95 .5\nprob.real=0.50000000\nsize.real=3.000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::binomial_quantiles", settings="logp.string=log.p = FALSE\np.text=0.95 .5\nprob.real=0.50\nsize.real=3.00\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.binomial_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -2,7 +2,7 @@
<h2>Parameters</h2>
<ul><li>Vector of quantiles probabilities: c (0.95, .5)</li>
<li>Binomial trials: 3</li>
-<li>Probability of success: 0.50000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (pcauchy (q = c (0.95), location = 0.03000000, scale = 1.02000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pcauchy (q = c (0.95), location = 0.03, scale = 1.02, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Cauchy probabilities", list ("Vector of quantiles", "c (0.95)", "Location", "0.03000000", "Scale", "1.02000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::cauchy_probabilities", settings="location.real=0.03000000\nlogp.string=log.p = FALSE\nq.text=0.95\nscale.real=1.02000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::cauchy_probabilities", settings="location.real=0.03\nlogp.string=log.p = FALSE\nq.text=0.95\nscale.real=1.02\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (pcauchy (q = c (0.95), location = -0.02000000, scale = 1.03000000, lower.tail=FALSE, log.p = TRUE))
+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.02000000", "Scale", "1.03000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"))
+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.rerun.plugin.link(plugin="rkward::cauchy_probabilities", settings="location.real=-0.02000000\nlogp.string=log.p = TRUE\nq.text=0.95\nscale.real=1.03000000\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::cauchy_probabilities", settings="location.real=-0.02\nlogp.string=log.p = TRUE\nq.text=0.95\nscale.real=1.03\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.cauchy_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,8 +1,8 @@
<h1>Cauchy probabilities</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Location: 0.03000000</li>
-<li>Scale: 1.02000000</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>
@@ -10,8 +10,8 @@
<h3>Cauchy probabilities: 0.7336</h3><h1>Cauchy probabilities</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.95)</li>
-<li>Location: -0.02000000</li>
-<li>Scale: 1.03000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (qcauchy (p = c (0.95), location = -0.03000000, scale = 1.03000000, lower.tail=TRUE, log.p = FALSE))
+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.03000000", "Scale", "1.03000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::cauchy_quantiles", settings="location.real=-0.03000000\nlogp.string=log.p = FALSE\np.text=0.95\nscale.real=1.03000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::cauchy_quantiles", settings="location.real=-0.03\nlogp.string=log.p = FALSE\np.text=0.95\nscale.real=1.03\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (qcauchy (p = c (-1, -2), location = 0.02000000, scale = 0.98000000, lower.tail=FALSE, log.p = TRUE))
+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.02000000", "Scale", "0.98000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::cauchy_quantiles", settings="location.real=0.02000000\nlogp.string=log.p = TRUE\np.text=-1 -2\nscale.real=0.98000000\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::cauchy_quantiles", settings="location.real=0.02\nlogp.string=log.p = TRUE\np.text=-1 -2\nscale.real=0.98\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.cauchy_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,8 +1,8 @@
<h1>Cauchy quantiles</h1>
<h2>Parameters</h2>
<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Location: -0.03000000</li>
-<li>Scale: 1.03000000</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>
@@ -10,8 +10,8 @@
<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.02000000</li>
-<li>Scale: 0.98000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.chi_squared_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.chi_squared_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.chi_squared_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-df <- 4.00000000; ncp <- 0.60000000;
+df <- 4.0; ncp <- 0.6;
# mean and variances of the distribution of sample averages:
avg.exp <- df + ncp;
avg.var <- (2*df + 4*ncp)/12;
@@ -23,5 +23,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_chi_squared_clt", settings="df.real=4.00000000\ndist_stepfun.addtoplot.state=\ndist_stepfun.col_hor.color.string=\ndist_stepfun.col_y0.color.string=\ndist_stepfun.col_y1.color.string=\ndist_stepfun.do_points.state=\ndist_stepfun.linetype.string=\ndist_stepfun.verticals.state=1\ndrawnorm.state=1\nfunction.string=dist\nnAvg.real=12.000000\nnDist.real=1000.000000\nncp.real=0.60000000\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=1", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_chi_squared_clt", settings="df.real=4.0\ndist_stepfun.addtoplot.state=\ndist_stepfun.col_hor.color.string=\ndist_stepfun.col_y0.color.string=\ndist_stepfun.col_y1.color.string=\ndist_stepfun.do_points.state=\ndist_stepfun.linetype.string=\ndist_stepfun.verticals.state=1\ndrawnorm.state=1\nfunction.string=dist\nnAvg.real=12.00\nnDist.real=1000.00\nncp.real=0.6\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=1", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (pchisq (q = c (0.97, 0.65), df = 3.00000000, ncp = 0.05000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pchisq (q = c (0.97, 0.65), df = 3.00, ncp = 0.05, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Chi-squared probability", list ("Vector of quantiles", "c (0.97, 0.65)", "Degrees of Freedom", "3.00000000", "non-centrality parameter", "0.05000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::chi_squared_probabilities", settings="df.real=3.00000000\nlogp.string=log.p = FALSE\nncp.real=0.05000000\nq.text=0.97 0.65\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::chi_squared_probabilities", settings="df.real=3.00\nlogp.string=log.p = FALSE\nncp.real=0.05\nq.text=0.97 0.65\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (pchisq (q = c (1), df = 1.01000000, ncp = 0.02000000, lower.tail=FALSE, log.p = TRUE))
+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.01000000", "non-centrality parameter", "0.02000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
+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.rerun.plugin.link(plugin="rkward::chi_squared_probabilities", settings="df.real=1.01000000\nlogp.string=log.p = TRUE\nncp.real=0.02000000\nq.text=1\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::chi_squared_probabilities", settings="df.real=1.01\nlogp.string=log.p = TRUE\nncp.real=0.02\nq.text=1\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.chi_squared_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,8 +1,8 @@
<h1>Chi-squared probability</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.97, 0.65)</li>
-<li>Degrees of Freedom: 3.00000000</li>
-<li>non-centrality parameter: 0.05000000</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>
@@ -10,8 +10,8 @@
<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.01000000</li>
-<li>non-centrality parameter: 0.02000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,20 +1,20 @@
local({
## Prepare
## Compute
-result <- (qchisq (p = c (0.95), df = 1.00000000, ncp = 0.00000000, lower.tail=TRUE, log.p = FALSE))
+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.00000000", "non-centrality parameter", "0.00000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::chi_squared_quantiles", settings="df.real=1.00000000\nlogp.string=log.p = FALSE\nncp.real=0.00000000\np.text=0.95\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::chi_squared_quantiles", settings="df.real=1.00\nlogp.string=log.p = FALSE\nncp.real=0.00\np.text=0.95\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
local({
## Prepare
## Compute
-result <- (qchisq (p = c (-1, -2), df = 1.02000000, ncp = 3.00000000, lower.tail=FALSE, log.p = TRUE))
+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.02000000", "non-centrality parameter", "3.00000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::chi_squared_quantiles", settings="df.real=1.02000000\nlogp.string=log.p = TRUE\nncp.real=3.00000000\np.text=-1 -2\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::chi_squared_quantiles", settings="df.real=1.02\nlogp.string=log.p = TRUE\nncp.real=3.00\np.text=-1 -2\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.chi_squared_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,8 +1,8 @@
<h1>Chi-squared quantile</h1>
<h2>Parameters</h2>
<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Degrees of freedom: 1.00000000</li>
-<li>non-centrality parameter: 0.00000000</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>
@@ -10,8 +10,8 @@
<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.02000000</li>
-<li>non-centrality parameter: 3.00000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-rate <- 1.00000000;
+rate <- 1.0;
# mean and variances of the distribution of sample averages:
avg.exp <- 1/rate;
avg.var <- (1/(rate^2))/10;
@@ -26,5 +26,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_exponential_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.000000\nnDist.real=1000.000000\nnormlinecol.color.string=grey4\nnormpointtype.string=h\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nrate.real=1.00000000\nscalenorm.state=1", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_exponential_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.00\nnDist.real=1000.00\nnormlinecol.color.string=grey4\nnormpointtype.string=h\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nrate.real=1.0\nscalenorm.state=1", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (pexp (q = c (0.96), rate = 1.07000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pexp (q = c (0.96), rate = 1.07, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Exponential probabilities", list ("Vector of quantiles", "c (0.96)", "Rate", "1.07000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
+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.rerun.plugin.link(plugin="rkward::exponential_probabilities", settings="logp.string=log.p = FALSE\nq.text=0.96\nrate.real=1.07000000\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::exponential_probabilities", settings="logp.string=log.p = FALSE\nq.text=0.96\nrate.real=1.07\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.exponential_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,7 +1,7 @@
<h1>Exponential probabilities</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (0.96)</li>
-<li>Rate: 1.07000000</li>
+<li>Rate: 1.07</li>
<li>Tail: lower.tail=TRUE</li>
<li>Probabilities p are given as: log.p = FALSE</li>
</ul>
Modified: trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (qexp (p = c (-1.1), rate = 1.05000000, lower.tail=FALSE, log.p = TRUE))
+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.05000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = TRUE"))
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::exponential_quantiles", settings="logp.string=log.p = TRUE\np.text=-1.1\nrate.real=1.05000000\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::exponential_quantiles", settings="logp.string=log.p = TRUE\np.text=-1.1\nrate.real=1.05\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.exponential_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,7 +1,7 @@
<h1>Exponential quantiles</h1>
<h2>Parameters</h2>
<ul><li>Vector of probabilities: c (-1.1)</li>
-<li>Rate: 1.05000000</li>
+<li>Rate: 1.05</li>
<li>Tail: lower.tail=FALSE</li>
<li>Probabilities p are given as: log.p = TRUE</li>
</ul>
Modified: trunk/rkward/tests/distributions/RKTestStandard.f_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.f_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.f_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-df1 <- 5.00000000; df2 <- 5.00000000; ncp <- 0.00000000;
+df1 <- 5.0; df2 <- 5.0; ncp <- 0.0;
# generate the entire data:
data <- matrix(rf(n=10000, df1=df1, df2=df2, ncp=ncp), nrow=10);
# get the sample averages:
@@ -15,5 +15,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_f_clt", settings="df1.real=5.00000000\ndf2.real=5.00000000\ndrawnorm.state=0\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.000000\nnDist.real=1000.000000\nncp.real=0.00000000\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=0", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_f_clt", settings="df1.real=5.0\ndf2.real=5.0\ndrawnorm.state=0\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.00\nnDist.real=1000.00\nncp.real=0.0\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nscalenorm.state=0", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (pf (q = c (.1, .2), df1 = 1.02000000, df2 = 1.11000000, ncp = 0.02000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pf (q = c (.1, .2), df1 = 1.02, df2 = 1.11, ncp = 0.02, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("F probability", list ("Vector of quantiles", "c (.1, .2)", "Numerator degrees of freedom", "1.02000000", "Denominator degrees of freedom", "1.11000000", "non-centrality parameter", "0.02000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"));
+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.rerun.plugin.link(plugin="rkward::f_probabilities", settings="df1.real=1.02000000\ndf2.real=1.11000000\nlogp.string=log.p = FALSE\nncp.real=0.02000000\nq.text=.1, .2\ntail.string=lower.tail=TRUE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::f_probabilities", settings="df1.real=1.02\ndf2.real=1.11\nlogp.string=log.p = FALSE\nncp.real=0.02\nq.text=.1, .2\ntail.string=lower.tail=TRUE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.f_probabilities.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,9 +1,9 @@
<h1>F probability</h1>
<h2>Parameters</h2>
<ul><li>Vector of quantiles: c (.1, .2)</li>
-<li>Numerator degrees of freedom: 1.02000000</li>
-<li>Denominator degrees of freedom: 1.11000000</li>
-<li>non-centrality parameter: 0.02000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (qf (p = c (0.95), df1 = 1.00000000, df2 = 1.00000000, ncp = 0.00000000, lower.tail=FALSE, log.p = FALSE))
+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.00000000", "Denominator degrees of freedom", "1.00000000", "non-centrality parameter", "0.00000000", "Tail", "lower.tail=FALSE", "Probabilities p are given as", "log.p = FALSE"));
+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")
})
-.rk.rerun.plugin.link(plugin="rkward::f_quantiles", settings="df1.real=1.00000000\ndf2.real=1.00000000\nlogp.string=log.p = FALSE\nncp.real=0.00000000\np.text=0.95\ntail.string=lower.tail=FALSE", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::f_quantiles", settings="df1.real=1.00\ndf2.real=1.00\nlogp.string=log.p = FALSE\nncp.real=0.00\np.text=0.95\ntail.string=lower.tail=FALSE", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkout
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkout 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.f_quantiles.rkout 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,9 +1,9 @@
<h1>F quantile</h1>
<h2>Parameters</h2>
<ul><li>Vector of probabilities: c (0.95)</li>
-<li>Numerator degrees of freedom: 1.00000000</li>
-<li>Denominator degrees of freedom: 1.00000000</li>
-<li>non-centrality parameter: 0.00000000</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>
Modified: trunk/rkward/tests/distributions/RKTestStandard.gamma_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.gamma_clt.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.gamma_clt.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -3,7 +3,7 @@
## Compute
## Print result
# parameters:
-shape <- 5.90000000; rate <- 0.30000000;
+shape <- 5.9; rate <- 0.3;
# mean and variances of the distribution of sample averages:
avg.exp <- shape/rate;
avg.var <- (shape/(rate^2))/10;
@@ -24,5 +24,5 @@
})
rk.graph.off ()
})
-.rk.rerun.plugin.link(plugin="rkward::plot_gamma_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.000000\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.000000\nnDist.real=1000.000000\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nrate.real=0.30000000\nscalenorm.state=0\nshape.real=5.90000000", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::plot_gamma_clt", settings="drawnorm.state=1\nfunction.string=hist\nhistogram_opt.addtoplot.state=\nhistogram_opt.barlabels.state=\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\nhistogram_opt.freq.state=0\nhistogram_opt.histbordercol.color.string=\nhistogram_opt.histbreaksFunction.string=Sturges\nhistogram_opt.histlinetype.string=solid\nhistogram_opt.rightclosed.state=1\nhistogram_opt.usefillcol.state=\nnAvg.real=10.00\nnDist.real=1000.00\nnormlinecol.color.string=red\nnormpointtype.string=l\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nrate.real=0.3\nscalenorm.state=0\nshape.real=5.9", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/distributions/RKTestStandard.gamma_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/RKTestStandard.gamma_probabilities.rkcommands.R 2009-10-05 17:53:41 UTC (rev 2686)
+++ trunk/rkward/tests/distributions/RKTestStandard.gamma_probabilities.rkcommands.R 2009-10-05 18:13:07 UTC (rev 2687)
@@ -1,10 +1,10 @@
local({
## Prepare
## Compute
-result <- (pgamma (q = c (0.95), shape = 1.00000000, rate = 1.00000000, lower.tail=TRUE, log.p = FALSE))
+result <- (pgamma (q = c (0.95), shape = 1.00, rate = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
-rk.header ("Gamma probability", list ("Vector of quantiles", "c (0.95)", "Shape", "1.00000000", "Rate", "1.00000000", "Tail", "lower.tail=TRUE", "Probabilities p are given as", "log.p = FALSE"))
+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.rerun.plugin.link(plugin="rkward::gamma_probabilities", settings="logp.string=log.p = FALSE\nq.text=0.95\nrate.real=1.00000000\nshape.real=1.00000000\ntail.string=lower.tail=TRUE", label="Run again")
@@ Diff output truncated at 100000 characters. @@
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
More information about the rkward-tracker
mailing list