[rkward-cvs] SF.net SVN: rkward:[4039] trunk/rkward/tests
m-eik at users.sourceforge.net
m-eik at users.sourceforge.net
Sat Nov 19 15:43:03 UTC 2011
Revision: 4039
http://rkward.svn.sourceforge.net/rkward/?rev=4039&view=rev
Author: m-eik
Date: 2011-11-19 15:43:02 +0000 (Sat, 19 Nov 2011)
Log Message:
-----------
tests: removed most of the now superfluous comments to not trigger false alarms. for reference, the command scheme used was
sed -i "1,$ N;s/## Prepare\n## Compute/## Compute/g"
sed -i "2,$ N;s/## Prepare\n## Compute/## Compute/g"
"N" loads also the next line, and the "2,$" go made sure every line was examined by starting from the second one.
Modified Paths:
--------------
trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/bartlett_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkcommands.R
trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkcommands.R
trunk/rkward/tests/analysis_plugins/box_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/correlation_matrix.rkcommands.R
trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkcommands.R
trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkcommands.R
trunk/rkward/tests/analysis_plugins/descriptive_stats.rkcommands.R
trunk/rkward/tests/analysis_plugins/fligner_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/hp_filter.rkcommands.R
trunk/rkward/tests/analysis_plugins/linear_regression.rkcommands.R
trunk/rkward/tests/analysis_plugins/mood_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/pp_test.rkcommands.R
trunk/rkward/tests/distributions/beta_clt.rkcommands.R
trunk/rkward/tests/distributions/beta_probabilities.rkcommands.R
trunk/rkward/tests/distributions/beta_quantiles.rkcommands.R
trunk/rkward/tests/distributions/binomial_clt.rkcommands.R
trunk/rkward/tests/distributions/binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/cauchy_probabilities.rkcommands.R
trunk/rkward/tests/distributions/cauchy_quantiles.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_clt.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_probabilities.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_quantiles.rkcommands.R
trunk/rkward/tests/distributions/exponential_clt.rkcommands.R
trunk/rkward/tests/distributions/exponential_probabilities.rkcommands.R
trunk/rkward/tests/distributions/exponential_quantiles.rkcommands.R
trunk/rkward/tests/distributions/f_clt.rkcommands.R
trunk/rkward/tests/distributions/f_probabilities.rkcommands.R
trunk/rkward/tests/distributions/f_quantiles.rkcommands.R
trunk/rkward/tests/distributions/gamma_clt.rkcommands.R
trunk/rkward/tests/distributions/gamma_probabilities.rkcommands.R
trunk/rkward/tests/distributions/gamma_quantiles.rkcommands.R
trunk/rkward/tests/distributions/geom_probabilities.rkcommands.R
trunk/rkward/tests/distributions/geom_quantiles.rkcommands.R
trunk/rkward/tests/distributions/geometric_clt.rkcommands.R
trunk/rkward/tests/distributions/gumbel_probabilities.rkcommands.R
trunk/rkward/tests/distributions/gumbel_quantiles.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_clt.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_probabilities.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_quantiles.rkcommands.R
trunk/rkward/tests/distributions/log_normal_clt.rkcommands.R
trunk/rkward/tests/distributions/log_normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/log_normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/logistic_clt.rkcommands.R
trunk/rkward/tests/distributions/logistic_probabilities.rkcommands.R
trunk/rkward/tests/distributions/logistic_quantiles.rkcommands.R
trunk/rkward/tests/distributions/negative_binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/negative_binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/negbinomial_clt.rkcommands.R
trunk/rkward/tests/distributions/normal_clt.rkcommands.R
trunk/rkward/tests/distributions/normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/plot_beta_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_binomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_cauchy_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_exponential_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_f_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_gamma_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_geometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_log_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_logistic_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_poisson_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_t_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_tukey_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_uniform_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_weibull_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkcommands.R
trunk/rkward/tests/distributions/poisson_clt.rkcommands.R
trunk/rkward/tests/distributions/poisson_probabilities.rkcommands.R
trunk/rkward/tests/distributions/poisson_quantiles.rkcommands.R
trunk/rkward/tests/distributions/shapiro_wilk_test.rkcommands.R
trunk/rkward/tests/distributions/t_clt.rkcommands.R
trunk/rkward/tests/distributions/t_probabilities.rkcommands.R
trunk/rkward/tests/distributions/t_quantiles.rkcommands.R
trunk/rkward/tests/distributions/tukey_probabilities.rkcommands.R
trunk/rkward/tests/distributions/tukey_quantiles.rkcommands.R
trunk/rkward/tests/distributions/uniform_clt.rkcommands.R
trunk/rkward/tests/distributions/uniform_probabilities.rkcommands.R
trunk/rkward/tests/distributions/uniform_quantiles.rkcommands.R
trunk/rkward/tests/distributions/weibull_clt.rkcommands.R
trunk/rkward/tests/distributions/weibull_probabilities.rkcommands.R
trunk/rkward/tests/distributions/weibull_quantiles.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_clt.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_probabilities.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_quantiles.rkcommands.R
trunk/rkward/tests/import_export_plugins/import_csv.rkcommands.R
trunk/rkward/tests/import_export_plugins/load_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/load_source.rkcommands.R
trunk/rkward/tests/import_export_plugins/package_skeleton.rkcommands.R
trunk/rkward/tests/import_export_plugins/save_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/setworkdir.rkcommands.R
trunk/rkward/tests/import_export_plugins/write_table.rkcommands.R
trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkcommands.R
trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_2PL.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_3PL.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_GRM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_PCM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_RSM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_Rasch.rkcommands.R
trunk/rkward/tests/plots/barplot.rkcommands.R
trunk/rkward/tests/plots/boxplot.rkcommands.R
trunk/rkward/tests/plots/boxplot_grouped.rkcommands.R
trunk/rkward/tests/plots/density_plot.rkcommands.R
trunk/rkward/tests/plots/dotchart.rkcommands.R
trunk/rkward/tests/plots/ecdf_plot.rkcommands.R
trunk/rkward/tests/plots/generic_plot.rkcommands.R
trunk/rkward/tests/plots/histogram.rkcommands.R
trunk/rkward/tests/plots/piechart.rkcommands.R
trunk/rkward/tests/plots/scatterplot.rkcommands.R
trunk/rkward/tests/plots/scatterplot_matrix.rkcommands.R
trunk/rkward/tests/plots/stem_leaf_plot.rkcommands.R
trunk/rkward/tests/plots/stripchart.rkcommands.R
trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkcommands.R
trunk/rkward/tests/rkward_application_tests/run_again_links.rkcommands.R
Modified: trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- var.test (test50z, test50y, alternative = "two.sided", ratio = 1.00)
Modified: trunk/rkward/tests/analysis_plugins/bartlett_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/bartlett_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/bartlett_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- bartlett.test (list (warpbreaks[["breaks"]], test50z, test50y, test50x, test10z, test10y, test10x))
## Print result
Modified: trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (women[["weight"]], test50x)
results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
Modified: trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (test10x, women[["height"]])
results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
Modified: trunk/rkward/tests/analysis_plugins/box_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/box_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/box_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (test50x, test10y)
results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
Modified: trunk/rkward/tests/analysis_plugins/correlation_matrix.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/correlation_matrix.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/correlation_matrix.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
# cor requires all objects to be inside the same data.frame.
# Here we construct such a temporary frame from the input variables
@@ -25,7 +24,6 @@
rk.results (data.frame (result.p, check.names=FALSE), titles=c ("n \\ p", names (data)))
})
local({
-## Prepare
## Compute
# cor requires all objects to be inside the same data.frame.
# Here we construct such a temporary frame from the input variables
Modified: trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -20,7 +20,6 @@
pairs(x, lower.panel=panel.smooth, upper.panel=panel.cor)
}
-## Compute
## Print result
data <- data.frame (rock)
Modified: trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
x <- rk.list (warpbreaks[["tension"]])
yvars <- rk.list (warpbreaks[["wool"]], warpbreaks[["tension"]])
Modified: trunk/rkward/tests/analysis_plugins/descriptive_stats.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/descriptive_stats.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/descriptive_stats.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (women[["height"]], test10z)
results <- data.frame ('Object'=I(names (vars)))
Modified: trunk/rkward/tests/analysis_plugins/fligner_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/fligner_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/fligner_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- fligner.test (list (women[["weight"]], women[["height"]], test50z, test50y, test50x, test10z, test10y, test10x))
## Print result
Modified: trunk/rkward/tests/analysis_plugins/hp_filter.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/hp_filter.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/hp_filter.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Hodrick-Prescott Filter", parameters=list("Lambda", 1600))
x <- co2
Modified: trunk/rkward/tests/analysis_plugins/linear_regression.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/linear_regression.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/linear_regression.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
results <- summary.lm (lm (warpbreaks[["breaks"]] ~ warpbreaks[["tension"]] + warpbreaks[["wool"]]))
## Print result
Modified: trunk/rkward/tests/analysis_plugins/mood_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/mood_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/mood_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- mood.test (test50z, test50x, alternative = "two.sided")
## Print result
Modified: trunk/rkward/tests/analysis_plugins/pp_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/pp_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/analysis_plugins/pp_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (rock[["shape"]], rock[["perm"]], rock[["peri"]], rock[["area"]])
results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
Modified: trunk/rkward/tests/distributions/beta_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/beta_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/beta_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
shape1 <- 2.0; shape2 <- 2.0;
Modified: trunk/rkward/tests/distributions/beta_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/beta_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/beta_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pbeta (q = c (0.95), shape1 = 1.00, shape2 = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Beta probability")
})
local({
-## Prepare
## Compute
result <- (pbeta (q = c (0.96), shape1 = 1.01, shape2 = 1.01, ncp = 0.02, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/beta_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/beta_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/beta_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qbeta (p = c (0.95), shape1 = 1.00, shape2 = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Beta quantiles")
})
local({
-## Prepare
## Compute
result <- (qbeta (p = c (-1), shape1 = 1.04, shape2 = 1.03, ncp = 0.08, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/binomial_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/binomial_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/binomial_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
size <- 11; prob <- 0.50;
Modified: trunk/rkward/tests/distributions/binomial_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/binomial_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/binomial_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pbinom (q = c (0.95, 2), size = 3, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/binomial_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/binomial_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/binomial_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qbinom (p = c (0.95, .5), size = 3, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/cauchy_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/cauchy_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/cauchy_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pcauchy (q = c (0.95), location = 0.03, scale = 1.02, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Cauchy probabilities")
})
local({
-## Prepare
## Compute
result <- (pcauchy (q = c (0.95), location = -0.02, scale = 1.03, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/cauchy_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/cauchy_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/cauchy_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qcauchy (p = c (0.95), location = -0.03, scale = 1.03, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Cauchy quantiles")
})
local({
-## Prepare
## Compute
result <- (qcauchy (p = c (-1, -2), location = 0.02, scale = 0.98, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/chi_squared_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/chi_squared_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/chi_squared_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
df <- 4.0; ncp <- 0.6;
Modified: trunk/rkward/tests/distributions/chi_squared_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/chi_squared_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/chi_squared_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pchisq (q = c (0.97, 0.65), df = 3.00, ncp = 0.05, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Chi-squared probabilities")
})
local({
-## Prepare
## Compute
result <- (pchisq (q = c (1), df = 1.01, ncp = 0.02, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/chi_squared_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/chi_squared_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/chi_squared_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qchisq (p = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
@@ -7,7 +6,6 @@
rk.results (result, titles="Chi-squared quantiles")
})
local({
-## Prepare
## Compute
result <- (qchisq (p = c (-1, -2), df = 1.02, ncp = 3.00, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/exponential_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/exponential_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/exponential_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
rate <- 1.0;
Modified: trunk/rkward/tests/distributions/exponential_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/exponential_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/exponential_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pexp (q = c (0.96), rate = 1.07, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/exponential_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/exponential_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/exponential_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qexp (p = c (-1.1), rate = 1.05, lower.tail=FALSE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/f_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/f_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/f_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
df1 <- 5.0; df2 <- 5.0; ncp <- 0.0;
Modified: trunk/rkward/tests/distributions/f_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/f_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/f_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pf (q = c (.1, .2), df1 = 1.02, df2 = 1.11, ncp = 0.02, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/f_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/f_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/f_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qf (p = c (0.95), df1 = 1.00, df2 = 1.00, ncp = 0.00, lower.tail=FALSE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/gamma_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/gamma_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/gamma_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
shape <- 5.9; rate <- 0.3;
Modified: trunk/rkward/tests/distributions/gamma_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/gamma_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/gamma_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pgamma (q = c (0.95), shape = 1.00, rate = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/gamma_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/gamma_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/gamma_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qgamma (p = c (-5), shape = 1.00, rate = 1.00, lower.tail=TRUE, log.p = TRUE))
Modified: trunk/rkward/tests/distributions/geom_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/geom_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/geom_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pgeom (q = c (0.95), prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/geom_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/geom_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/geom_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qgeom (p = c (0.95), prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/geometric_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/geometric_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/geometric_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
prob <- 0.50;
Modified: trunk/rkward/tests/distributions/gumbel_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/gumbel_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/gumbel_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pweibull (q = exp(c (0.95)), shape = 1.03, scale = 1.04, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/gumbel_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/gumbel_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/gumbel_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- log(qweibull (p = c (0.95), shape = 1.00, scale = 1.00, lower.tail=FALSE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/hypergeometric_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/hypergeometric_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/hypergeometric_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
m <- 12; n <- 12; k <- 15;
Modified: trunk/rkward/tests/distributions/hypergeometric_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/hypergeometric_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/hypergeometric_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (phyper (q = c (0, 1, 2, 3, 4, 5), m = 5, n = 4, k = 4, lower.tail=FALSE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/hypergeometric_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/hypergeometric_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/hypergeometric_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qhyper (p = c (0.95), m = 1, n = 1, k = 1, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/log_normal_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/log_normal_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/log_normal_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
mean <- 0.0; sd <- 1.00;
Modified: trunk/rkward/tests/distributions/log_normal_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/log_normal_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/log_normal_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (plnorm (q = c (0.95), meanlog = 0.00, sdlog = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/log_normal_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/log_normal_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/log_normal_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qlnorm (p = c (0.95), meanlog = 0.00, sdlog = 1.00, lower.tail=FALSE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/logistic_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/logistic_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/logistic_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
loc <- 0.0; scale <- 3.0;
Modified: trunk/rkward/tests/distributions/logistic_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/logistic_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/logistic_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (plogis (q = c (0.95), location = 1.04, scale = 1.00, lower.tail=TRUE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/logistic_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/logistic_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/logistic_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qlogis (p = c (0.95), location = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/negative_binomial_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/negative_binomial_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/negative_binomial_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pnbinom (q = c (0.95), size = 3, prob = 0.50, lower.tail=TRUE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/negative_binomial_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/negative_binomial_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/negative_binomial_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qnbinom (p = c (0.95), size = 4, prob = 0.50, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/negbinomial_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/negbinomial_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/negbinomial_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
size <- 12; prob <- 0.28;
Modified: trunk/rkward/tests/distributions/normal_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/normal_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/normal_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
mean <- 0.0; sd <- 1.0;
Modified: trunk/rkward/tests/distributions/normal_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/normal_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/normal_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pnorm (q = c (0.95), mean = 0.00, sd = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/normal_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/normal_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/normal_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qnorm (p = c (0.95), mean = 0.00, sd = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/plot_beta_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_beta_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_beta_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Beta distribution function", list ("Number of Observations", "100", "Lower quantile", "0.00", "Upper quantile", "1.00", "Shape1", "2.00", "Shape2", "2.00", "Non-centrality parameter", "0.00", "Scale", "logarithmic", "Tail","Lower", "Function", "pbeta"));
Modified: trunk/rkward/tests/distributions/plot_binomial_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_binomial_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_binomial_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Binomial density function", list ("Lower quantile", "0", "Upper quantile", "12", "Number of trials", "12", "Probability of success on each trial", "0.50", "Scale", "normal", "Function", "dbinom"));
Modified: trunk/rkward/tests/distributions/plot_cauchy_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_cauchy_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_cauchy_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Cauchy density function", list ("Number of Observations", "100", "Lower quantile", "-3.29", "Upper quantile", "3.29", "Location", "0.00", "Scale", "1.00", "Scale", "normal", "Function", "dcauchy"));
Modified: trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Chisquare density function", list ("Number of Observations", "100", "Lower quantile", "0.30", "Upper quantile", "24.10", "Degrees of freedom", "4.00", "Non-centrality parameter", "0.00", "Scale", "normal", "Function", "dchisq"));
Modified: trunk/rkward/tests/distributions/plot_exponential_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_exponential_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_exponential_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Exponential distribution function", list ("Number of Observations", "100", "Lower quantile", "0.00", "Upper quantile", "10.00", "Rate", "1.00", "Scale", "normal", "Tail","Upper", "Function", "pexp"));
Modified: trunk/rkward/tests/distributions/plot_f_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_f_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_f_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("F density function", list ("Number of Observations", "100", "Lower quantile", "0.001", "Upper quantile", "25.00", "Numerator degrees of freedom", "5.00", "Denominator degrees of freedom", "5.00", "Non-centrality", "0", "Scale", "logarithmic", "Function", "df"));
Modified: trunk/rkward/tests/distributions/plot_gamma_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_gamma_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_gamma_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Gamma density function", list ("Number of Observations", "100", "Lower quantile", "0.01", "Upper quantile", "4.60", "Shape", "1.61", "Rate", "0.87", "Scale", "normal", "Function", "dgamma"));
Modified: trunk/rkward/tests/distributions/plot_geometric_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_geometric_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_geometric_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Geometric density function", list ("Lower quantile", "0", "Upper quantile", "12", "Probability of success on each trial", "0.50", "Scale", "normal", "Function", "dgeom"));
Modified: trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Hypergeometric distribution function", list ("Lower quantile", "0", "Upper quantile", "12", "Number of white balls", "12", "Number of black balls", "12", "Number of balls drawn", "15", "Scale", "normal", "Tail","Lower", "Function", "phyper"));
Modified: trunk/rkward/tests/distributions/plot_log_normal_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_log_normal_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_log_normal_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Lognormal distribution function", list ("Number of Observations", "100", "Lower quantile", "0.01", "Upper quantile", "3.29", "Mean", "4.00", "Standard deviation", "1.00", "Scale", "normal", "Tail","Lower", "Function", "plnorm"));
Modified: trunk/rkward/tests/distributions/plot_logistic_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_logistic_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_logistic_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Logistic density function", list ("Number of Observations", "100", "Lower quantile", "-3.29", "Upper quantile", "3.29", "Location", "0.00", "Scale", "1.00", "Scale", "normal", "Function", "dlogis"));
Modified: trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Negative Binomial density function", list ("Lower quantile", "0", "Upper quantile", "24", "Target for number of successful trials", "12", "Probability of success in each trial", "0.75", "Scale", "normal", "Function", "dnbinom"));
Modified: trunk/rkward/tests/distributions/plot_normal_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_normal_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_normal_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Normal density function", list ("Number of Observations", "100", "Lower quantile", "-3.29", "Upper quantile", "3.29", "Mean", "0.00", "Standard Deviation", "1.00", "Scale", "normal", "Function", "dnorm"));
Modified: trunk/rkward/tests/distributions/plot_poisson_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_poisson_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_poisson_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Poisson density function", list ("Lower quantile", "0", "Upper quantile", "12", "Mean", "5.00", "Scale", "normal", "Function", "dpois"));
Modified: trunk/rkward/tests/distributions/plot_t_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_t_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_t_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Student t distribution function", list ("Number of Observations", "100", "Minimum", "-12.924", "Maximum", "12.924", "Degrees of freedom", "1.00", "Non-centrality", "0.00", "Scale", "normal", "Tail","Lower", "Function", "pt"));
Modified: trunk/rkward/tests/distributions/plot_tukey_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_tukey_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_tukey_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Tukey distribution function", list ("Number of Observations", "101", "Lower quantile", "-1.00", "Upper quantile", "8.00", "Sample size for range", "6", "Degreed of freedom for s", "5.00", "Number of groups", "1", "Scale", "normal", "Tail","Lower", "Function", "ptukey"));
Modified: trunk/rkward/tests/distributions/plot_uniform_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_uniform_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_uniform_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Uniform density function", list ("Number of Observations", "100", "Lower quantile", "-1.00", "Upper quantile", "2.00", "Minimum", "0.00", "Maximum", "1.00", "Scale", "normal", "Function", "dunif"));
Modified: trunk/rkward/tests/distributions/plot_weibull_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_weibull_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_weibull_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Weibull density function", list ("Number of Observations", "100", "Lower quantile", "0.00", "Upper quantile", "5.00", "Shape", "2.00", "Scale", "1.00", "Scale", "normal", "Function", "dweibull"));
Modified: trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Binomial density function", list ("Lower quantile", "0", "Upper quantile", "24", "First sample size", "4", "Second sample size", "6", "Scale", "normal", "Function", "dwilcox"));
Modified: trunk/rkward/tests/distributions/poisson_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/poisson_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/poisson_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
mean <- 5.0;
Modified: trunk/rkward/tests/distributions/poisson_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/poisson_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/poisson_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (ppois (q = c (0.95), lambda = 1.07, lower.tail=TRUE, log.p = TRUE))
## Print result
Modified: trunk/rkward/tests/distributions/poisson_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/poisson_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/poisson_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qpois (p = c (0.95), lambda = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/shapiro_wilk_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/shapiro_wilk_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/shapiro_wilk_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
vars <- rk.list (rock[["shape"]], rock[["perm"]])
results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
Modified: trunk/rkward/tests/distributions/t_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/t_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/t_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
df <- 3.0; ncp <- 0.0;
Modified: trunk/rkward/tests/distributions/t_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/t_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/t_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pt (q = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/t_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/t_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/t_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qt (p = c (0.95), df = 1.00, ncp = 0.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/tukey_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/tukey_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/tukey_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (ptukey (q = c (0.95), nmeans = 2, df = 5, nranges = 1, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/tukey_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/tukey_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/tukey_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qtukey (p = c (0.95), nmeans = 2, df = 2:11, nranges = 1, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/uniform_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/uniform_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/uniform_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
llim <- 0.0; ulim <- 1.0;
Modified: trunk/rkward/tests/distributions/uniform_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/uniform_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/uniform_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (punif (q = c (0.95), min = 0.00, max = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/uniform_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/uniform_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/uniform_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qunif (p = c (0.95), min = 0.00, max = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/weibull_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/weibull_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/weibull_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
scale <- 1.0; shape <- 2.0;
Modified: trunk/rkward/tests/distributions/weibull_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/weibull_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/weibull_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pweibull (q = c (0.95), shape = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/weibull_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/weibull_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/weibull_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qweibull (p = c (0.95), shape = 1.00, scale = 1.00, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/wilcoxon_clt.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/wilcoxon_clt.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/wilcoxon_clt.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
m <- 4; n <- 6;
Modified: trunk/rkward/tests/distributions/wilcoxon_probabilities.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/wilcoxon_probabilities.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/wilcoxon_probabilities.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (pwilcox (q = c (0.95), m = 2, n = 1, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/distributions/wilcoxon_quantiles.rkcommands.R
===================================================================
--- trunk/rkward/tests/distributions/wilcoxon_quantiles.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/distributions/wilcoxon_quantiles.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
result <- (qwilcox (p = c (0.95), m = 1, n = 2, lower.tail=TRUE, log.p = FALSE))
## Print result
Modified: trunk/rkward/tests/import_export_plugins/import_csv.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/import_csv.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/import_csv.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
imported <- read.csv (file="women.csv", row.names=1, na.strings = "NA", nrows = -1, skip = 0, check.names = TRUE, strip.white = FALSE, blank.lines.skip = TRUE)
Modified: trunk/rkward/tests/import_export_plugins/load_r_object.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/load_r_object.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/load_r_object.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
load (file="women.RData", envir=globalenv())
## Print result
Modified: trunk/rkward/tests/import_export_plugins/load_source.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/load_source.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/load_source.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,12 +1,10 @@
local({
-## Prepare
## Compute
source (file="source.R", local=TRUE, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
## Print result
rk.header("Source R file", parameters=list("File", "source.R"))
})
local({
-## Prepare
## Compute
source (file="source.R", local=FALSE, echo=TRUE, max.deparse.length=150, verbose=FALSE, print.eval=FALSE, chdir=FALSE)
## Print result
Modified: trunk/rkward/tests/import_export_plugins/package_skeleton.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/package_skeleton.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/package_skeleton.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
package.skeleton(name="anRpackage", list=c('skel.func1','skel.func2'), path=".", force= TRUE)
## Print result
Modified: trunk/rkward/tests/import_export_plugins/save_r_object.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/save_r_object.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/save_r_object.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
save (testx, file="x.RData", ascii=TRUE, compress=TRUE)
## Print result
@@ -7,7 +6,6 @@
"Variables", "testx"))
})
local({
-## Prepare
## Compute
save (testy, file="y.RData", ascii=TRUE, compress=TRUE)
## Print result
Modified: trunk/rkward/tests/import_export_plugins/setworkdir.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/setworkdir.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/setworkdir.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,11 +1,9 @@
local({
-## Prepare
## Compute
setwd("..")
## Print result
})
local({
-## Prepare
## Compute
setwd("import_export_plugins")
## Print result
Modified: trunk/rkward/tests/import_export_plugins/write_table.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/write_table.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/write_table.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
write.table ( x = women , file = "data" , append = FALSE ,quote = TRUE , sep = '\t' , eol = "\n" , na = "NA" , dec = '.' , row.names = FALSE , col.names = TRUE , qmethod= 'escape' )
## Print result
Modified: trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkcommands.R
===================================================================
--- trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
write (x=testx, file="data", ncolumns=2, append=FALSE, sep=",")
## Print result
Modified: trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(eRm)
-## Compute
## Print result
rk.header("Andersen's LR test")
Modified: trunk/rkward/tests/item_response_theory/plot_2PL.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_2PL.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_2PL.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(ltm)
-## Compute
## Print result
rk.header("Two parameter logistic model plot")
Modified: trunk/rkward/tests/item_response_theory/plot_3PL.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_3PL.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_3PL.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(ltm)
-## Compute
## Print result
rk.header("Birnbaum three parameter model plot")
Modified: trunk/rkward/tests/item_response_theory/plot_GRM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_GRM.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_GRM.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(ltm)
-## Compute
## Print result
rk.header("Graded response model plot")
Modified: trunk/rkward/tests/item_response_theory/plot_PCM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_PCM.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_PCM.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(eRm)
-## Compute
## Print result
rk.header("Partial credit model plot")
Modified: trunk/rkward/tests/item_response_theory/plot_RSM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_RSM.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_RSM.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(eRm)
-## Compute
## Print result
rk.header("Rating scale model plot")
Modified: trunk/rkward/tests/item_response_theory/plot_Rasch.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/plot_Rasch.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/item_response_theory/plot_Rasch.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(ltm)
-## Compute
## Print result
rk.header("Rasch model plot")
Modified: trunk/rkward/tests/plots/barplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/barplot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/barplot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
x <- swiss[["Catholic"]]
# barplot is a bit picky about attributes, so we need to convert to vector explicitely
@@ -21,8 +19,6 @@
rk.graph.off ()
})
local({
-## Prepare
-## Compute
## Print result
x <- test_table
# barplot is a bit picky about attributes, so we need to convert to vector explicitely
@@ -37,8 +33,6 @@
rk.graph.off ()
})
local({
-## Prepare
-## Compute
## Print result
groups <- rk.list (warpbreaks[["wool"]], warpbreaks[["tension"]])
title <- paste (names (groups), collapse=" by ")
Modified: trunk/rkward/tests/plots/boxplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/boxplot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/boxplot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
data_list <- rk.list (women[["weight"]], women[["height"]]) #convert single sample variables to list
rk.header ("Boxplot", list ("Variable(s)", paste (names (data_list), collapse=", ")))
Modified: trunk/rkward/tests/plots/boxplot_grouped.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/boxplot_grouped.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/boxplot_grouped.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
groups <- rk.list (warpbreaks[["tension"]], warpbreaks[["wool"]])
data_list <- split (warpbreaks[["breaks"]], groups) #split sample by grouping variables
@@ -10,8 +8,6 @@
rk.graph.off ()
})
local({
-## Prepare
-## Compute
## Print result
groups <- rk.list (datasets::warpbreaks[["tension"]], datasets::warpbreaks[["wool"]])
data_list <- split (datasets::warpbreaks[["breaks"]], groups) #split sample by grouping variables
Modified: trunk/rkward/tests/plots/density_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/density_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/density_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(hdrcde)
-## Compute
## Print result
rk.header ("Highest density regions", list ("Variable", rk.get.description (women[["height"]]), "Band Width", "nrd0", "Adjust", 1.00, "Remove Missing Values", na.rm=TRUE, "Length", length (women[["height"]]), "Resolution", 512.00, "Smoothing Kernel", "gaussian"))
Modified: trunk/rkward/tests/plots/dotchart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/dotchart.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/dotchart.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
x <- women[["height"]]
if (!is.numeric (x)) {
@@ -17,8 +15,6 @@
rk.graph.off ()
})
local({
-## Prepare
-## Compute
## Print result
groups <- rk.list (warpbreaks[["tension"]], warpbreaks[["wool"]])
title <- paste (names (groups), collapse=" by ")
Modified: trunk/rkward/tests/plots/ecdf_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/ecdf_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/ecdf_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -3,7 +3,6 @@
yrange <- range (swiss[["Catholic"]], na.rm=TRUE)
data.mean <- mean (swiss[["Catholic"]], na.rm=TRUE)
data.sd <- sd (swiss[["Catholic"]], na.rm=TRUE)
-## Compute
## Print result
rk.header ("Empirical Cumulative Distribution Function", list ("Variable", rk.get.description (swiss[["Catholic"]]), "Minimum", yrange[1], "Maximum", yrange[2]))
Modified: trunk/rkward/tests/plots/generic_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/generic_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/generic_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Generic Plot")
rk.graph.on ()
Modified: trunk/rkward/tests/plots/histogram.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/histogram.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/histogram.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Histogram", list ("Variable", rk.get.description (swiss[["Education"]]) , "Density bandwidth", "nrd", "Density adjust", 4.00, "Density resolution", 512.00, "Density Remove missing values", na.rm=TRUE , "Break points", "Equally spaced vector of length 6", "Right closed", "TRUE", "Include in lowest cell", "TRUE", "Scale", "Density"))
Modified: trunk/rkward/tests/plots/piechart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/piechart.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/piechart.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
x <- test_table[["A"]]
if (!is.numeric (x)) {
@@ -16,8 +14,6 @@
rk.graph.off ()
})
local({
-## Prepare
-## Compute
## Print result
groups <- rk.list (test_table[["A"]], test_table[["B"]], test_table[["C"]])
title <- paste (names (groups), collapse=" by ")
Modified: trunk/rkward/tests/plots/scatterplot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/scatterplot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/scatterplot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
Xvars <- list(women[["weight"]],swiss[["Education"]])
Yvars <- list(women[["height"]],swiss[["Catholic"]])
Modified: trunk/rkward/tests/plots/scatterplot_matrix.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/scatterplot_matrix.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/scatterplot_matrix.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,7 +1,6 @@
local({
## Prepare
require(car)
-## Compute
## Print result
data <- data.frame (swiss)
Modified: trunk/rkward/tests/plots/stem_leaf_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/stem_leaf_plot.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/stem_leaf_plot.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Stem-and-Leaf Plot",
parameters=list ("Variable", paste (rk.get.description (swiss[["Fertility"]])), "Plot Length", "1.50","Plot Width", "80.00", "Tolerance", "0.01"))
Modified: trunk/rkward/tests/plots/stripchart.rkcommands.R
===================================================================
--- trunk/rkward/tests/plots/stripchart.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/plots/stripchart.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
rk.header ("Stripchart", list ("Variable"=rk.get.description (warpbreaks[["breaks"]]), "Group"=rk.get.description (warpbreaks[["tension"]]), "Method"="stack", "Offset" = 0.50, "Orientation"="Horizontal"))
Modified: trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,5 +1,4 @@
local({
-## Prepare
## Compute
for (i in 1:20) {
Modified: trunk/rkward/tests/rkward_application_tests/run_again_links.rkcommands.R
===================================================================
--- trunk/rkward/tests/rkward_application_tests/run_again_links.rkcommands.R 2011-11-19 13:53:52 UTC (rev 4038)
+++ trunk/rkward/tests/rkward_application_tests/run_again_links.rkcommands.R 2011-11-19 15:43:02 UTC (rev 4039)
@@ -1,6 +1,4 @@
local({
-## Prepare
-## Compute
## Print result
# parameters:
shape1 <- 2.0; shape2 <- 2.0;
@@ -28,8 +26,6 @@
.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.barlabels.state=1\nhistogram_opt.density.real=-1.00\nhistogram_opt.doborder.state=1\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.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nscalenorm.state=0", label="Run again")
.rk.make.hr()
local({
-## Prepare
-## Compute
## Print result
# parameters:
mean <- 0.0; sd <- 1.0;
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