[rkward-cvs] SF.net SVN: rkward:[3685] trunk/rkward
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Sat Jun 11 11:01:14 UTC 2011
Revision: 3685
http://rkward.svn.sourceforge.net/rkward/?rev=3685&view=rev
Author: tfry
Date: 2011-06-11 11:01:11 +0000 (Sat, 11 Jun 2011)
Log Message:
-----------
Since test results are stored in a temporary directory, we can do away with the 'RKTestStanard.' in the file names.
This makes it so much easier to update individual standards files...
Modified Paths:
--------------
trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R
trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
trunk/rkward/rkward/rbackend/rpackages/rkwardtests/man/rktest.setSuiteStandards.Rd
Added Paths:
-----------
trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/F_test.rkout
trunk/rkward/tests/analysis_plugins/agostino_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/agostino_test.rkout
trunk/rkward/tests/analysis_plugins/ansari_bradley_exact_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/ansari_bradley_exact_test.rkout
trunk/rkward/tests/analysis_plugins/ansari_bradley_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/ansari_bradley_test.rkout
trunk/rkward/tests/analysis_plugins/anscombe_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/anscombe_test.rkout
trunk/rkward/tests/analysis_plugins/bartlett_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/bartlett_test.rkout
trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkcommands.R
trunk/rkward/tests/analysis_plugins/basic_statistics_a.rkout
trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkcommands.R
trunk/rkward/tests/analysis_plugins/basic_statistics_b.rkout
trunk/rkward/tests/analysis_plugins/bonett_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/bonett_test.rkout
trunk/rkward/tests/analysis_plugins/box_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/box_test.rkout
trunk/rkward/tests/analysis_plugins/chisq_out_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/chisq_out_test.rkout
trunk/rkward/tests/analysis_plugins/correlation_matrix.rkcommands.R
trunk/rkward/tests/analysis_plugins/correlation_matrix.rkout
trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkcommands.R
trunk/rkward/tests/analysis_plugins/correlation_matrix_plot.rkout
trunk/rkward/tests/analysis_plugins/crosstab_multi.rkcommands.R
trunk/rkward/tests/analysis_plugins/crosstab_multi.rkout
trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkcommands.R
trunk/rkward/tests/analysis_plugins/crosstab_n_to_1.rkout
trunk/rkward/tests/analysis_plugins/descriptive_stats.rkcommands.R
trunk/rkward/tests/analysis_plugins/descriptive_stats.rkout
trunk/rkward/tests/analysis_plugins/dixon_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/dixon_test.rkout
trunk/rkward/tests/analysis_plugins/fligner_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/fligner_test.rkout
trunk/rkward/tests/analysis_plugins/grubbs_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/grubbs_test.rkout
trunk/rkward/tests/analysis_plugins/hp_filter.rkcommands.R
trunk/rkward/tests/analysis_plugins/hp_filter.rkout
trunk/rkward/tests/analysis_plugins/kpss_test.messages.txt
trunk/rkward/tests/analysis_plugins/kpss_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/kpss_test.rkout
trunk/rkward/tests/analysis_plugins/levene_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/levene_test.rkout
trunk/rkward/tests/analysis_plugins/linear_regression.rkcommands.R
trunk/rkward/tests/analysis_plugins/linear_regression.rkout
trunk/rkward/tests/analysis_plugins/moments_moment.rkcommands.R
trunk/rkward/tests/analysis_plugins/moments_moment.rkout
trunk/rkward/tests/analysis_plugins/mood_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/mood_test.rkout
trunk/rkward/tests/analysis_plugins/outlier.rkcommands.R
trunk/rkward/tests/analysis_plugins/outlier.rkout
trunk/rkward/tests/analysis_plugins/pp_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/pp_test.rkout
trunk/rkward/tests/analysis_plugins/skewness_kurtosis.rkcommands.R
trunk/rkward/tests/analysis_plugins/skewness_kurtosis.rkout
trunk/rkward/tests/analysis_plugins/t_test_two_vars.rkcommands.R
trunk/rkward/tests/analysis_plugins/t_test_two_vars.rkout
trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/wilcoxon_exact_test.rkout
trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/wilcoxon_test.rkout
trunk/rkward/tests/distributions/ad_test.rkcommands.R
trunk/rkward/tests/distributions/ad_test.rkout
trunk/rkward/tests/distributions/beta_clt.rkcommands.R
trunk/rkward/tests/distributions/beta_clt.rkout
trunk/rkward/tests/distributions/beta_probabilities.rkcommands.R
trunk/rkward/tests/distributions/beta_probabilities.rkout
trunk/rkward/tests/distributions/beta_quantiles.rkcommands.R
trunk/rkward/tests/distributions/beta_quantiles.rkout
trunk/rkward/tests/distributions/binomial_clt.rkcommands.R
trunk/rkward/tests/distributions/binomial_clt.rkout
trunk/rkward/tests/distributions/binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/binomial_probabilities.rkout
trunk/rkward/tests/distributions/binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/binomial_quantiles.rkout
trunk/rkward/tests/distributions/cauchy_probabilities.rkcommands.R
trunk/rkward/tests/distributions/cauchy_probabilities.rkout
trunk/rkward/tests/distributions/cauchy_quantiles.rkcommands.R
trunk/rkward/tests/distributions/cauchy_quantiles.rkout
trunk/rkward/tests/distributions/chi_squared_clt.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_clt.rkout
trunk/rkward/tests/distributions/chi_squared_probabilities.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_probabilities.rkout
trunk/rkward/tests/distributions/chi_squared_quantiles.rkcommands.R
trunk/rkward/tests/distributions/chi_squared_quantiles.rkout
trunk/rkward/tests/distributions/cvm_test.rkcommands.R
trunk/rkward/tests/distributions/cvm_test.rkout
trunk/rkward/tests/distributions/exponential_clt.rkcommands.R
trunk/rkward/tests/distributions/exponential_clt.rkout
trunk/rkward/tests/distributions/exponential_probabilities.rkcommands.R
trunk/rkward/tests/distributions/exponential_probabilities.rkout
trunk/rkward/tests/distributions/exponential_quantiles.rkcommands.R
trunk/rkward/tests/distributions/exponential_quantiles.rkout
trunk/rkward/tests/distributions/f_clt.rkcommands.R
trunk/rkward/tests/distributions/f_clt.rkout
trunk/rkward/tests/distributions/f_probabilities.rkcommands.R
trunk/rkward/tests/distributions/f_probabilities.rkout
trunk/rkward/tests/distributions/f_quantiles.rkcommands.R
trunk/rkward/tests/distributions/f_quantiles.rkout
trunk/rkward/tests/distributions/gamma_clt.rkcommands.R
trunk/rkward/tests/distributions/gamma_clt.rkout
trunk/rkward/tests/distributions/gamma_probabilities.rkcommands.R
trunk/rkward/tests/distributions/gamma_probabilities.rkout
trunk/rkward/tests/distributions/gamma_quantiles.rkcommands.R
trunk/rkward/tests/distributions/gamma_quantiles.rkout
trunk/rkward/tests/distributions/geom_probabilities.rkcommands.R
trunk/rkward/tests/distributions/geom_probabilities.rkout
trunk/rkward/tests/distributions/geom_quantiles.rkcommands.R
trunk/rkward/tests/distributions/geom_quantiles.rkout
trunk/rkward/tests/distributions/geometric_clt.rkcommands.R
trunk/rkward/tests/distributions/geometric_clt.rkout
trunk/rkward/tests/distributions/gumbel_probabilities.rkcommands.R
trunk/rkward/tests/distributions/gumbel_probabilities.rkout
trunk/rkward/tests/distributions/gumbel_quantiles.rkcommands.R
trunk/rkward/tests/distributions/gumbel_quantiles.rkout
trunk/rkward/tests/distributions/hypergeometric_clt.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_clt.rkout
trunk/rkward/tests/distributions/hypergeometric_probabilities.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_probabilities.rkout
trunk/rkward/tests/distributions/hypergeometric_quantiles.rkcommands.R
trunk/rkward/tests/distributions/hypergeometric_quantiles.rkout
trunk/rkward/tests/distributions/jb_test.rkcommands.R
trunk/rkward/tests/distributions/jb_test.rkout
trunk/rkward/tests/distributions/lillie_test.rkcommands.R
trunk/rkward/tests/distributions/lillie_test.rkout
trunk/rkward/tests/distributions/log_normal_clt.rkcommands.R
trunk/rkward/tests/distributions/log_normal_clt.rkout
trunk/rkward/tests/distributions/log_normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/log_normal_probabilities.rkout
trunk/rkward/tests/distributions/log_normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/log_normal_quantiles.rkout
trunk/rkward/tests/distributions/logistic_clt.rkcommands.R
trunk/rkward/tests/distributions/logistic_clt.rkout
trunk/rkward/tests/distributions/logistic_probabilities.rkcommands.R
trunk/rkward/tests/distributions/logistic_probabilities.rkout
trunk/rkward/tests/distributions/logistic_quantiles.rkcommands.R
trunk/rkward/tests/distributions/logistic_quantiles.rkout
trunk/rkward/tests/distributions/negative_binomial_probabilities.rkcommands.R
trunk/rkward/tests/distributions/negative_binomial_probabilities.rkout
trunk/rkward/tests/distributions/negative_binomial_quantiles.rkcommands.R
trunk/rkward/tests/distributions/negative_binomial_quantiles.rkout
trunk/rkward/tests/distributions/negbinomial_clt.rkcommands.R
trunk/rkward/tests/distributions/negbinomial_clt.rkout
trunk/rkward/tests/distributions/normal_clt.rkcommands.R
trunk/rkward/tests/distributions/normal_clt.rkout
trunk/rkward/tests/distributions/normal_probabilities.rkcommands.R
trunk/rkward/tests/distributions/normal_probabilities.rkout
trunk/rkward/tests/distributions/normal_quantiles.rkcommands.R
trunk/rkward/tests/distributions/normal_quantiles.rkout
trunk/rkward/tests/distributions/pearson_test.rkcommands.R
trunk/rkward/tests/distributions/pearson_test.rkout
trunk/rkward/tests/distributions/plot_beta_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_beta_distribution.rkout
trunk/rkward/tests/distributions/plot_binomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_binomial_distribution.rkout
trunk/rkward/tests/distributions/plot_cauchy_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_cauchy_distribution.rkout
trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_chi_squared_distribution.rkout
trunk/rkward/tests/distributions/plot_exponential_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_exponential_distribution.rkout
trunk/rkward/tests/distributions/plot_f_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_f_distribution.rkout
trunk/rkward/tests/distributions/plot_gamma_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_gamma_distribution.rkout
trunk/rkward/tests/distributions/plot_geometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_geometric_distribution.rkout
trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_hypergeometric_distribution.rkout
trunk/rkward/tests/distributions/plot_log_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_log_normal_distribution.rkout
trunk/rkward/tests/distributions/plot_logistic_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_logistic_distribution.rkout
trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_negbinomial_distribution.rkout
trunk/rkward/tests/distributions/plot_normal_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_normal_distribution.rkout
trunk/rkward/tests/distributions/plot_poisson_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_poisson_distribution.rkout
trunk/rkward/tests/distributions/plot_t_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_t_distribution.rkout
trunk/rkward/tests/distributions/plot_tukey_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_tukey_distribution.rkout
trunk/rkward/tests/distributions/plot_uniform_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_uniform_distribution.rkout
trunk/rkward/tests/distributions/plot_weibull_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_weibull_distribution.rkout
trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkcommands.R
trunk/rkward/tests/distributions/plot_wilcoxon_distribution.rkout
trunk/rkward/tests/distributions/poisson_clt.rkcommands.R
trunk/rkward/tests/distributions/poisson_clt.rkout
trunk/rkward/tests/distributions/poisson_probabilities.rkcommands.R
trunk/rkward/tests/distributions/poisson_probabilities.rkout
trunk/rkward/tests/distributions/poisson_quantiles.rkcommands.R
trunk/rkward/tests/distributions/poisson_quantiles.rkout
trunk/rkward/tests/distributions/sf_test.rkcommands.R
trunk/rkward/tests/distributions/sf_test.rkout
trunk/rkward/tests/distributions/shapiro_wilk_test.rkcommands.R
trunk/rkward/tests/distributions/shapiro_wilk_test.rkout
trunk/rkward/tests/distributions/t_clt.rkcommands.R
trunk/rkward/tests/distributions/t_clt.rkout
trunk/rkward/tests/distributions/t_probabilities.rkcommands.R
trunk/rkward/tests/distributions/t_probabilities.rkout
trunk/rkward/tests/distributions/t_quantiles.rkcommands.R
trunk/rkward/tests/distributions/t_quantiles.rkout
trunk/rkward/tests/distributions/tukey_probabilities.rkcommands.R
trunk/rkward/tests/distributions/tukey_probabilities.rkout
trunk/rkward/tests/distributions/tukey_quantiles.rkcommands.R
trunk/rkward/tests/distributions/tukey_quantiles.rkout
trunk/rkward/tests/distributions/uniform_clt.rkcommands.R
trunk/rkward/tests/distributions/uniform_clt.rkout
trunk/rkward/tests/distributions/uniform_probabilities.rkcommands.R
trunk/rkward/tests/distributions/uniform_probabilities.rkout
trunk/rkward/tests/distributions/uniform_quantiles.rkcommands.R
trunk/rkward/tests/distributions/uniform_quantiles.rkout
trunk/rkward/tests/distributions/weibull_clt.rkcommands.R
trunk/rkward/tests/distributions/weibull_clt.rkout
trunk/rkward/tests/distributions/weibull_probabilities.rkcommands.R
trunk/rkward/tests/distributions/weibull_probabilities.rkout
trunk/rkward/tests/distributions/weibull_quantiles.rkcommands.R
trunk/rkward/tests/distributions/weibull_quantiles.rkout
trunk/rkward/tests/distributions/wilcoxon_clt.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_clt.rkout
trunk/rkward/tests/distributions/wilcoxon_probabilities.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_probabilities.rkout
trunk/rkward/tests/distributions/wilcoxon_quantiles.rkcommands.R
trunk/rkward/tests/distributions/wilcoxon_quantiles.rkout
trunk/rkward/tests/import_export_plugins/import_csv.rkcommands.R
trunk/rkward/tests/import_export_plugins/import_csv.rkout
trunk/rkward/tests/import_export_plugins/import_csv_overwrite.messages.txt
trunk/rkward/tests/import_export_plugins/import_spss.messages.txt
trunk/rkward/tests/import_export_plugins/import_spss.rkcommands.R
trunk/rkward/tests/import_export_plugins/import_spss.rkout
trunk/rkward/tests/import_export_plugins/import_stata.rkcommands.R
trunk/rkward/tests/import_export_plugins/import_stata.rkout
trunk/rkward/tests/import_export_plugins/load_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/load_r_object.rkout
trunk/rkward/tests/import_export_plugins/load_source.rkcommands.R
trunk/rkward/tests/import_export_plugins/load_source.rkout
trunk/rkward/tests/import_export_plugins/package_skeleton.messages.txt
trunk/rkward/tests/import_export_plugins/package_skeleton.rkcommands.R
trunk/rkward/tests/import_export_plugins/package_skeleton.rkout
trunk/rkward/tests/import_export_plugins/save_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/save_r_object.rkout
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_table.rkout
trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkcommands.R
trunk/rkward/tests/import_export_plugins/write_vector_matrix.rkout
trunk/rkward/tests/item_response_theory/2PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/2PL_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/3PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/3PL_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/Andersen_LR_plot.messages.txt
trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkcommands.R
trunk/rkward/tests/item_response_theory/Andersen_LR_plot.rkout
trunk/rkward/tests/item_response_theory/Cronbach_alpha.rkcommands.R
trunk/rkward/tests/item_response_theory/Cronbach_alpha.rkout
trunk/rkward/tests/item_response_theory/GPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/GPCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/GRM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/GRM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/LLTM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/LLTM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/LPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/LPCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/LRSM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/LRSM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/PCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/PCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RSM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RSM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/Rasch_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/Rasch_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/Wald_test.messages.txt
trunk/rkward/tests/item_response_theory/Wald_test.rkcommands.R
trunk/rkward/tests/item_response_theory/Wald_test.rkout
trunk/rkward/tests/item_response_theory/goodnes-of-fit_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/goodnes-of-fit_Rasch.rkout
trunk/rkward/tests/item_response_theory/item_fit_statistics.rkcommands.R
trunk/rkward/tests/item_response_theory/item_fit_statistics.rkout
trunk/rkward/tests/item_response_theory/person_fit_statistics.rkcommands.R
trunk/rkward/tests/item_response_theory/person_fit_statistics.rkout
trunk/rkward/tests/item_response_theory/plot_2PL.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_2PL.rkout
trunk/rkward/tests/item_response_theory/plot_3PL.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_3PL.rkout
trunk/rkward/tests/item_response_theory/plot_GRM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_GRM.rkout
trunk/rkward/tests/item_response_theory/plot_PCM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_PCM.rkout
trunk/rkward/tests/item_response_theory/plot_RSM.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_RSM.rkout
trunk/rkward/tests/item_response_theory/plot_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/plot_Rasch.rkout
trunk/rkward/tests/item_response_theory/unidimensional.rkcommands.R
trunk/rkward/tests/item_response_theory/unidimensional.rkout
trunk/rkward/tests/plots/barplot.rkcommands.R
trunk/rkward/tests/plots/barplot.rkout
trunk/rkward/tests/plots/boxplot.rkcommands.R
trunk/rkward/tests/plots/boxplot.rkout
trunk/rkward/tests/plots/boxplot_grouped.rkcommands.R
trunk/rkward/tests/plots/boxplot_grouped.rkout
trunk/rkward/tests/plots/density_plot.rkcommands.R
trunk/rkward/tests/plots/density_plot.rkout
trunk/rkward/tests/plots/dotchart.rkcommands.R
trunk/rkward/tests/plots/dotchart.rkout
trunk/rkward/tests/plots/ecdf_plot.rkcommands.R
trunk/rkward/tests/plots/ecdf_plot.rkout
trunk/rkward/tests/plots/generic_plot.rkcommands.R
trunk/rkward/tests/plots/generic_plot.rkout
trunk/rkward/tests/plots/histogram.rkcommands.R
trunk/rkward/tests/plots/histogram.rkout
trunk/rkward/tests/plots/pareto_chart.rkcommands.R
trunk/rkward/tests/plots/pareto_chart.rkout
trunk/rkward/tests/plots/piechart.rkcommands.R
trunk/rkward/tests/plots/piechart.rkout
trunk/rkward/tests/plots/scatterplot.rkcommands.R
trunk/rkward/tests/plots/scatterplot.rkout
trunk/rkward/tests/plots/scatterplot_matrix.rkcommands.R
trunk/rkward/tests/plots/scatterplot_matrix.rkout
trunk/rkward/tests/plots/stem_leaf_plot.rkcommands.R
trunk/rkward/tests/plots/stem_leaf_plot.rkout
trunk/rkward/tests/plots/stripchart.rkcommands.R
trunk/rkward/tests/plots/stripchart.rkout
trunk/rkward/tests/rkward_application_tests/active_binding.messages.txt
trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkcommands.R
trunk/rkward/tests/rkward_application_tests/output_capture_interleaving_test.rkout
trunk/rkward/tests/rkward_application_tests/output_graphics_formats.rkout
trunk/rkward/tests/rkward_application_tests/plot_history_basics.messages.txt
trunk/rkward/tests/rkward_application_tests/promise_in_globalenv.messages.txt
Removed 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.agostino_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_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.anscombe_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_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.basic_statistics_b.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.messages.txt
trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.mood_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.mood_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.outlier.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.outlier.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.pp_test.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.pp_test.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.skewness_kurtosis.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.skewness_kurtosis.rkout
trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkcommands.R
trunk/rkward/tests/analysis_plugins/RKTestStandard.t_test_two_vars.rkout
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/distributions/RKTestStandard.ad_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.ad_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.beta_clt.rkout
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_clt.rkout
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_clt.rkout
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.cvm_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.cvm_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.exponential_clt.rkout
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_clt.rkout
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_clt.rkout
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.geometric_clt.rkout
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_clt.rkout
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.hypergeometric_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.jb_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.jb_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.lillie_test.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_clt.rkout
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_clt.rkout
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.negbinomial_clt.rkout
trunk/rkward/tests/distributions/RKTestStandard.normal_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.normal_clt.rkout
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.pearson_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.pearson_test.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_hypergeometric_distribution.rkout
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.plot_wilcoxon_distribution.rkout
trunk/rkward/tests/distributions/RKTestStandard.poisson_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.poisson_clt.rkout
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.sf_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.sf_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.shapiro_wilk_test.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.shapiro_wilk_test.rkout
trunk/rkward/tests/distributions/RKTestStandard.t_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.t_clt.rkout
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_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.tukey_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.tukey_quantiles.rkout
trunk/rkward/tests/distributions/RKTestStandard.uniform_clt.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.uniform_clt.rkout
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_clt.rkout
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_clt.rkout
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_probabilities.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_probabilities.rkout
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_quantiles.rkcommands.R
trunk/rkward/tests/distributions/RKTestStandard.wilcoxon_quantiles.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_csv.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_csv.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_csv_overwrite.messages.txt
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_spss.messages.txt
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_spss.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_spss.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.import_stata.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.load_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.load_r_object.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.load_source.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.load_source.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.package_skeleton.messages.txt
trunk/rkward/tests/import_export_plugins/RKTestStandard.package_skeleton.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.package_skeleton.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.save_r_object.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.save_r_object.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.setworkdir.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.write_table.rkout
trunk/rkward/tests/import_export_plugins/RKTestStandard.write_vector_matrix.rkcommands.R
trunk/rkward/tests/import_export_plugins/RKTestStandard.write_vector_matrix.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.messages.txt
trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.GPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.GPCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.messages.txt
trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkout
trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkout
trunk/rkward/tests/plots/RKTestStandard.barplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.barplot.rkout
trunk/rkward/tests/plots/RKTestStandard.boxplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.boxplot.rkout
trunk/rkward/tests/plots/RKTestStandard.boxplot_grouped.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.boxplot_grouped.rkout
trunk/rkward/tests/plots/RKTestStandard.density_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.density_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.dotchart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.dotchart.rkout
trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.ecdf_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.generic_plot.rkout
trunk/rkward/tests/plots/RKTestStandard.histogram.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.histogram.rkout
trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.pareto_chart.rkout
trunk/rkward/tests/plots/RKTestStandard.piechart.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.piechart.rkout
trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.scatterplot.rkout
trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkcommands.R
trunk/rkward/tests/plots/RKTestStandard.scatterplot_matrix.rkout
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/RKTestStandard.stripchart.rkout
trunk/rkward/tests/rkward_application_tests/RKTestStandard.active_binding.messages.txt
trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_capture_interleaving_test.rkcommands.R
trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_capture_interleaving_test.rkout
trunk/rkward/tests/rkward_application_tests/RKTestStandard.output_graphics_formats.rkout
trunk/rkward/tests/rkward_application_tests/RKTestStandard.plot_history_basics.messages.txt
trunk/rkward/tests/rkward_application_tests/RKTestStandard.promise_in_globalenv.messages.txt
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rktest.setSuiteStandards.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -10,8 +10,8 @@
#' @param testroot Path to the test root directory, defaults to the working directory.
#' @param file Logical: If \code{suite} is already a present R object, set this to FALSE.
#' Otherwise it is assumed to be a file and fed to \code{source}.
-#' @return The function simply changes the names of the previously created files,
-#' specifically adding the prefix "RKTestStandard.".
+#' @return The function simply copies the previously created files from the temporary directory
+#' to the directory containing the test standards (inside the testroot).
#' @author Thomas Friedrichsmeier \email{thomas.friedrichsmeier@@ruhr-uni-bochum.de}
#' @keywords utilities
#' @seealso \code{\link[rkwardtests:RKTestSuite]{RKTestSuite-class}}, \code{\link[rkwardtests:rktest.makeplugintests]{rktest.makeplugintests}}
@@ -38,7 +38,7 @@
temp.suite.dir <- rktest.createTempSuiteDir(suite at id)
files <- list.files (temp.suite.dir)
files <- grep ("\\.(messages.txt|rkcommands.R|rkout)$", files, value=TRUE)
- file.copy (file.path(temp.suite.dir, files), paste ("RKTestStandard.", files, sep=""), overwrite=TRUE)
+ file.copy (file.path(temp.suite.dir, files), files, overwrite=TRUE)
# clean anything that is *not* a standard file
rktest.cleanRKTestSuite (suite)
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/R/rkwardtests-internal.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -40,7 +40,7 @@
# returns true, if file corresponds to standard.
rktest.compare.against.standard <- function (file, standard.path, fuzzy=FALSE) {
- standard_file <- file.path(standard.path, gsub ("^(.*\\/)([^\\/]*)$", "RKTestStandard\\.\\2", file))
+ standard_file <- file.path(standard.path, gsub ("^(.*\\/)", "", file)) # gsub strips any leading directories from the path
if (file.exists (file)) {
# purge empty files
info <- file.info (file)
Modified: trunk/rkward/rkward/rbackend/rpackages/rkwardtests/man/rktest.setSuiteStandards.Rd
===================================================================
--- trunk/rkward/rkward/rbackend/rpackages/rkwardtests/man/rktest.setSuiteStandards.Rd 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/rkward/rbackend/rpackages/rkwardtests/man/rktest.setSuiteStandards.Rd 2011-06-11 11:01:11 UTC (rev 3685)
@@ -6,8 +6,8 @@
\details{Use this function after you plugin passed all tests to set the resulting code,
output and R messages as the standard that will be compared to during following tests.}
\alias{rktest.setSuiteStandards}
-\value{The function simply changes the names of the previously created files,
-specifically adding the prefix "RKTestStandard.".}
+\value{The function simply copies the previously created files from the temporary directory to
+the directory with the test standards.}
\author{Thomas Friedrichsmeier \email{thomas.friedrichsmeier at ruhr-uni-bochum.de}}
\keyword{utilities}
\seealso{\code{\link[rkwardtests:RKTestSuite]{RKTestSuite-class}}, \code{\link[rkwardtests:rktest.makeplugintests]{rktest.makeplugintests}}}
Copied: trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R (from rev 3684, trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R)
===================================================================
--- trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R (rev 0)
+++ trunk/rkward/tests/analysis_plugins/F_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -0,0 +1,23 @@
+local({
+## Prepare
+## Compute
+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.95", "Alternative Hypothesis", rk.describe.alternative(result)))
+
+rk.results (list (
+ 'Variables'=names,
+ 'F'=result$statistic["F"],
+ 'Numerator DF'=result$parameter["num df"],
+ 'Denominator DF'=result$parameter["denom df"],
+ 'p-value'=result$p.value,
+ 'Lower CI'=result$conf.int[1],
+ '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.95\nratio.real=1.00\nx.available=test50z\ny.available=test50y", label="Run again")
+.rk.make.hr()
Copied: trunk/rkward/tests/analysis_plugins/F_test.rkout (from rev 3684, trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout)
===================================================================
--- trunk/rkward/tests/analysis_plugins/F_test.rkout (rev 0)
+++ trunk/rkward/tests/analysis_plugins/F_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -0,0 +1,11 @@
+<h1>F test to compare two variances</h1>
+<h2>Parameters</h2>
+<ul><li>Confidence Level: 0.95</li>
+<li>Alternative Hypothesis: true ratio of variances is not equal to 1</li>
+</ul>
+DATE<br>
+<table border="1">
+<tr><td>Variables</td><td>F</td><td>Numerator DF</td><td>Denominator DF</td><td>p-value</td><td>Lower CI</td><td>Upper CI</td><td>ratio of variances</td></tr>
+<tr><td>test50z
+<br/>test50y</td><td>16</td><td>49</td><td>49</td><td>0</td><td>9.0796</td><td>28.195</td><td>16</td></tr>
+</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,23 +0,0 @@
-local({
-## Prepare
-## Compute
-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.95", "Alternative Hypothesis", rk.describe.alternative(result)))
-
-rk.results (list (
- 'Variables'=names,
- 'F'=result$statistic["F"],
- 'Numerator DF'=result$parameter["num df"],
- 'Denominator DF'=result$parameter["denom df"],
- 'p-value'=result$p.value,
- 'Lower CI'=result$conf.int[1],
- '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.95\nratio.real=1.00\nx.available=test50z\ny.available=test50y", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.F_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>F test to compare two variances</h1>
-<h2>Parameters</h2>
-<ul><li>Confidence Level: 0.95</li>
-<li>Alternative Hypothesis: true ratio of variances is not equal to 1</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variables</td><td>F</td><td>Numerator DF</td><td>Denominator DF</td><td>p-value</td><td>Lower CI</td><td>Upper CI</td><td>ratio of variances</td></tr>
-<tr><td>test50z
-<br/>test50y</td><td>16</td><td>49</td><td>49</td><td>0</td><td>9.0796</td><td>28.195</td><td>16</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,28 +0,0 @@
-local({
-## Prepare
-require(moments)
-## Compute
-vars <- rk.list (warpbreaks[["breaks"]], test50z, test10x)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- agostino.test (var, alternative = "two.sided")
- results[i, 'skewness estimator (skew)'] <- t$statistic["skew"]
- results[i, 'transformation (z)'] <- t$statistic["z"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis'] <- rk.describe.alternative (t)
- NA # no error
- }, error=function (e) e$message) # catch any errors
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("D'Agostino test of skewness",
- parameters=list ("Alternative Hypothesis", "two.sided"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::agostino_test", settings="alternative.string=two.sided\nlength.state=1\nshow_alternative.state=1\nx.available=warpbreaks[[\\\"breaks\\\"]]\\ntest50z\\ntest10x", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.agostino_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>D'Agostino test of skewness</h1>
-<h2>Parameters</h2>
-<ul><li>Alternative Hypothesis: two.sided</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>skewness estimator (skew)</td><td>transformation (z)</td><td>p-value</td><td>Alternative Hypothesis</td><td>Length</td><td>NAs</td></tr>
-<tr><td>breaks</td><td>1.2720</td><td>2.3145</td><td>0.020643</td><td>data have a skewness</td><td>54</td><td>0</td></tr>
-<tr><td>test50z</td><td>0</td><td>0</td><td>1</td><td>data have a skewness</td><td>50</td><td>0</td></tr>
-<tr><td>test10x</td><td>0</td><td>0</td><td>1</td><td>data have a skewness</td><td>11</td><td>1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,48 +0,0 @@
-local({
-## Prepare
-require(exactRankTests)
-
-names <- rk.get.description (test50x, test10y)
-## Compute
-result <- ansari.exact (test50x, test10y, alternative = "two.sided", exact=TRUE, conf.int = TRUE)
-
-## Print result
-rk.header (result$method,
- parameters=list ("Comparing", paste (names[1], "against", names[2]),
- 'H1', rk.describe.alternative (result),
- "Compute exact p-value", "yes",
- "Confidence Level", "0.95" ))
-
-rk.results (list (
- 'Variable Names'=names,
- 'statistic'=result$statistic,
- 'null.value'=result$null.value,
- p=result$p.value,
- 'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
- '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.95\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-require(exactRankTests)
-
-names <- rk.get.description (test50x, test50y)
-## Compute
-result <- ansari.exact (test50x, test50y, alternative = "less", conf.int = FALSE)
-
-## Print result
-rk.header (result$method,
- parameters=list ("Comparing", paste (names[1], "against", names[2]),
- 'H1', rk.describe.alternative (result),
- "Compute exact p-value", "automatic"))
-
-rk.results (list (
- 'Variable Names'=names,
- 'statistic'=result$statistic,
- 'null.value'=result$null.value,
- p=result$p.value))
-})
-.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_exact_test", settings="alternative.string=less\nconfint.state=FALSE\nexact.string=automatic\nx.available=test50x\ny.available=test50y", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_exact_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,26 +0,0 @@
-<h1>Ansari-Bradley test</h1>
-<h2>Parameters</h2>
-<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.95</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>null.value</td><td>p</td><td>confidence interval percent</td><td>confidence interval of difference</td><td>estimate of the ratio of scales</td></tr>
-<tr><td>test50x
-<br/>test10y</td><td>875</td><td>1</td><td>1.3814e-05</td><td>95</td><td>0.56158
-<br/>0.70792</td><td>0.58206</td></tr>
-</table>
-<h1>Ansari-Bradley test</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x against test50y</li>
-<li>H1: true ratio of scales is less than 1</li>
-<li>Compute exact p-value: automatic</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>null.value</td><td>p</td></tr>
-<tr><td>test50x
-<br/>test50y</td><td>1275</td><td>1</td><td>0.5</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,46 +0,0 @@
-local({
-## Prepare
-names <- rk.get.description (test50x, test10y)
-## Compute
-result <- ansari.test (test50x, test10y, alternative = "two.sided", exact=TRUE, conf.int = TRUE)
-
-## Print result
-rk.header (result$method,
- parameters=list (
- "Comparing", paste (names[1], "against", names[2]),
- "Alternative Hypothesis", rk.describe.alternative(result),
- "Compute exact p-value", "yes",
- "Confidence Level", "0.95" ))
-
-rk.results (list (
- 'Variable Names'=names,
- 'statistic'=result$statistic,
- 'null.value'=result$null.value,
- p=result$p.value,
- 'confidence interval percent'=(100 * attr(result$conf.int, "conf.level")),
- '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.95\nexact.string=yes\nx.available=test50x\ny.available=test10y", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-names <- rk.get.description (test50x, test50y)
-## Compute
-result <- ansari.test (test50x, test50y, alternative = "less", conf.int = FALSE)
-
-## Print result
-rk.header (result$method,
- parameters=list (
- "Comparing", paste (names[1], "against", names[2]),
- "Alternative Hypothesis", rk.describe.alternative(result),
- "Compute exact p-value", "automatic"))
-
-rk.results (list (
- 'Variable Names'=names,
- 'statistic'=result$statistic,
- 'null.value'=result$null.value,
- p=result$p.value))
-})
-.rk.rerun.plugin.link(plugin="rkward::ansari_bradley_test", settings="alternative.string=less\nconfint.state=FALSE\nexact.string=automatic\nx.available=test50x\ny.available=test50y", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.ansari_bradley_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,26 +0,0 @@
-<h1>Ansari-Bradley test</h1>
-<h2>Parameters</h2>
-<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.95</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>null.value</td><td>p</td><td>confidence interval percent</td><td>confidence interval of difference</td><td>estimate of the ratio of scales</td></tr>
-<tr><td>test50x
-<br/>test10y</td><td>875</td><td>1</td><td>1.3814e-05</td><td>95</td><td>0.56158
-<br/>0.70792</td><td>0.58206</td></tr>
-</table>
-<h1>Ansari-Bradley test</h1>
-<h2>Parameters</h2>
-<ul><li>Comparing: test50x against test50y</li>
-<li>Alternative Hypothesis: true ratio of scales is less than 1</li>
-<li>Compute exact p-value: automatic</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Names</td><td>statistic</td><td>null.value</td><td>p</td></tr>
-<tr><td>test50x
-<br/>test50y</td><td>1275</td><td>1</td><td>0.5</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,27 +0,0 @@
-local({
-## Prepare
-require(moments)
-## Compute
-vars <- rk.list (warpbreaks[["breaks"]], test50z, test10y)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- results[i, 'Error'] <- tryCatch ({
- t <- anscombe.test (var, alternative = "two.sided")
- results[i, 'Kurtosis estimator (tau)'] <- t$statistic["kurt"]
- results[i, 'Transformation (z)'] <- t$statistic["z"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis'] <- rk.describe.alternative (t)
- NA # no error
- }, error=function (e) e$message) # catch any errors
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Anscombe-Glynn test of kurtosis",
- parameters=list ("Alternative Hypothesis", "two.sided"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::anscombe_test", settings="alternative.string=two.sided\nlength.state=1\nshow_alternative.state=1\nx.available=warpbreaks[[\\\"breaks\\\"]]\\ntest50z\\ntest10y", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.anscombe_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>Anscombe-Glynn test of kurtosis</h1>
-<h2>Parameters</h2>
-<ul><li>Alternative Hypothesis: two.sided</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Kurtosis estimator (tau)</td><td>Transformation (z)</td><td>p-value</td><td>Alternative Hypothesis</td><td>Length</td><td>NAs</td></tr>
-<tr><td>breaks</td><td>4.499</td><td>2.0997</td><td>0.035759</td><td>kurtosis is not equal to 3</td><td>54</td><td>0</td></tr>
-<tr><td>test50z</td><td>1.7990</td><td>-3.2904</td><td>0.0010006</td><td>kurtosis is not equal to 3</td><td>50</td><td>0</td></tr>
-<tr><td>test10y</td><td>1.7758</td><td>-0.98164</td><td>0.32628</td><td>kurtosis is not equal to 3</td><td>11</td><td>1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-local({
-## Prepare
-## Compute
-result <- bartlett.test (list (warpbreaks[["breaks"]], test50z, test50y, test50x, test10z, test10y, test10x))
-## Print result
-names <- rk.get.description (warpbreaks[["breaks"]], test50z, test50y, test50x, test10z, test10y, test10x)
-
-rk.header (result$method)
-
-rk.results (list (
- 'Variables'=names,
- 'Bartlett s K-squared'=result$statistic,
- 'df'=result$parameter,
- 'p-value'=result$p.value))
-})
-.rk.rerun.plugin.link(plugin="rkward::bartlett_test", settings="x.available=warpbreaks[[\\\"breaks\\\"]]\\ntest50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.bartlett_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,12 +0,0 @@
-<h1>Bartlett test of homogeneity of variances</h1>
-DATE<br>
-<table border="1">
-<tr><td>Variables</td><td>Bartlett s K-squared</td><td>df</td><td>p-value</td></tr>
-<tr><td>breaks
-<br/>test50z
-<br/>test50y
-<br/>test50x
-<br/>test10z
-<br/>test10y
-<br/>test10x</td><td>249.64</td><td>6</td><td>4.9026e-51</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,50 +0,0 @@
-local({
-## Prepare
-## Compute
-vars <- rk.list (women[["weight"]], test50x)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- results[i, 'Number of obs'] <- length(var)
- results[i, 'Number of missing values'] <- sum(is.na(var))
- results[i, 'Mean'] <- mean(var,na.rm=TRUE)
- results[i, 'Variance'] <- var(var,na.rm=TRUE)
- results[i, 'Sd'] <- sd(var,na.rm=TRUE)
- results[i, 'Minimum'] <- min(var,na.rm=TRUE)
- results[i, 'Maximum'] <- max(var,na.rm=TRUE)
- results[i, 'Median'] <- median(var,na.rm=TRUE)
- results[i, 'Inter Quartile Range'] <- IQR(var,na.rm=TRUE)
- temp <- quantile (var,na.rm=TRUE)
- results[i, 'Quartiles'] <- paste (names (temp), temp, sep=": ", collapse=" ")
- temp <- quantile (var, probs=seq (0, 1, length.out=6), na.rm=TRUE)
- results[i, 'Quantiles'] <- paste (names (temp), temp, sep=": ", collapse=" ")
-
- #robust statistics
- 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.50,tol=0.07, mu=3, s=,initmu =median(var))
- })
- results[i, 'Huber M-Estimator'] <- paste (temp[[1]], temp[[2]], sep=": ", collapse=" ")
-}
-
-# store results
-.GlobalEnv$my.data <- results
-## Print result
-rk.header ("Univariate statistics", parameters=list (
-"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"
-))
-
-rk.results (results)
-})
-.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\npourcent.real=0.05\nquartile.state=1\ns.text=\nsaveas.active=1\nsaveas.objectname=my.data\nsaveas.parent=.GlobalEnv\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()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_a.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-<h1>Univariate statistics</h1>
-<h2>Parameters</h2>
-<ul><li>Remove Missing values: TRUE</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>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Number of obs</td><td>Number of missing values</td><td>Mean</td><td>Variance</td><td>Sd</td><td>Minimum</td><td>Maximum</td><td>Median</td><td>Inter Quartile Range</td><td>Quartiles</td><td>Quantiles</td><td>Trimmed Mean</td><td>Median Absolute Deviation</td><td>Huber M-Estimator</td></tr>
-<tr><td>weight</td><td>15</td><td>0</td><td>136.73</td><td>240.21</td><td>15.499</td><td>115</td><td>164</td><td>135</td><td>23.5</td><td>0%: 115 25%: 124.5 50%: 135 75%: 148 100%: 164</td><td>0%: 115 20%: 122.4 40%: 130.8 60%: 140.2 80%: 150.8 100%: 164</td><td>136.73</td><td>17.554</td><td>3: 143.017677999144</td></tr>
-<tr><td>test50x</td><td>50</td><td>0</td><td>125.5</td><td>212.5</td><td>14.577</td><td>101</td><td>150</td><td>125.5</td><td>24.5</td><td>0%: 101 25%: 113.25 50%: 125.5 75%: 137.75 100%: 150</td><td>0%: 101 20%: 110.8 40%: 120.6 60%: 130.4 80%: 140.2 100%: 150</td><td>125.5</td><td>18.285</td><td>3: 138.260549866364</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,26 +0,0 @@
-local({
-## Prepare
-## Compute
-vars <- rk.list (test10x, women[["height"]])
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- if (length (var) >= 2) {
- results[i, 'Minimum values'] <- paste (sort(var, decreasing=FALSE, na.last=TRUE)[1:2], collapse=" ")
- }
- if (length (var) >= 3) {
- results[i, 'Maximum values'] <- paste (sort(var, decreasing=TRUE, na.last=TRUE)[1:3], collapse=" ")
- }
-
- #robust statistics
-}
-
-## Print result
-rk.header ("Univariate statistics", parameters=list (
-"Remove Missing values", TRUE))
-
-rk.results (results)
-})
-.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\nsaveas.active=0\nsaveas.objectname=rk.univariate\nsaveas.parent=.GlobalEnv\nsd.state=0\ntrim.state=\nvari.state=0\nz.available=test10x\\nwomen[[\\\"height\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.basic_statistics_b.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,10 +0,0 @@
-<h1>Univariate statistics</h1>
-<h2>Parameters</h2>
-<ul><li>Remove Missing values: TRUE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Minimum values</td><td>Maximum values</td></tr>
-<tr><td>test10x</td><td>101 102</td><td>110 109 108</td></tr>
-<tr><td>height</td><td>58 59</td><td>72 71 70</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,27 +0,0 @@
-local({
-## Prepare
-require(moments)
-## Compute
-vars <- rk.list (test50z, test50y, test50x, test10z, test10y, test10x)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- results[i, 'Error'] <- tryCatch ({
- t <- bonett.test (var, alternative = "two.sided")
- results[i, 'Kurtosis estimator (tau)'] <- t$statistic["tau"]
- results[i, 'Transformation (z)'] <- t$statistic["z"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis'] <- rk.describe.alternative (t)
- NA # no error
- }, error=function (e) e$message) # catch any errors
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- length (which(is.na(var)))
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Bonett-Seier test of Geary's kurtosis",
- parameters=list ("Alternative Hypothesis", "two.sided"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::bonett_test", settings="alternative.string=two.sided\nlength.state=1\nshow_alternative.state=1\nx.available=test50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.bonett_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,14 +0,0 @@
-<h1>Bonett-Seier test of Geary's kurtosis</h1>
-<h2>Parameters</h2>
-<ul><li>Alternative Hypothesis: two.sided</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Kurtosis estimator (tau)</td><td>Transformation (z)</td><td>p-value</td><td>Alternative Hypothesis</td><td>Length</td><td>NAs</td></tr>
-<tr><td>test50z</td><td>50</td><td>-2.2224</td><td>0.026254</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>50</td><td>0</td></tr>
-<tr><td>test50y</td><td>12.5</td><td>-2.2224</td><td>0.026254</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>50</td><td>0</td></tr>
-<tr><td>test50x</td><td>12.5</td><td>-2.2224</td><td>0.026254</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>50</td><td>0</td></tr>
-<tr><td>test10z</td><td>10</td><td>-1.1304</td><td>0.25832</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>11</td><td>1</td></tr>
-<tr><td>test10y</td><td>2.5</td><td>-1.1304</td><td>0.25832</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>11</td><td>1</td></tr>
-<tr><td>test10x</td><td>2.5</td><td>-1.1304</td><td>0.25832</td><td>kurtosis is not equal to sqrt(2/pi)</td><td>11</td><td>1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,25 +0,0 @@
-local({
-## Prepare
-## Compute
-vars <- rk.list (test50x, test10y)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- try ({
- test <- Box.test (var, lag = 1, type = "Box-Pierce")
- results[i, 'X-squared'] <- test$statistic
- results[i, 'degrees of freedom'] <- test$parameter
- results[i, 'p-value'] <- test$p.value
- })
-}
-## Print result
-rk.header ("Box-Pierce Test",
- parameters=list ("lag", "1", "type", "Box-Pierce"))
-
-rk.results (results)
-})
-.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()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.box_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>Box-Pierce Test</h1>
-<h2>Parameters</h2>
-<ul><li>lag: 1</li>
-<li>type: Box-Pierce</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>X-squared</td><td>degrees of freedom</td><td>p-value</td></tr>
-<tr><td>test50x</td><td>50</td><td>0</td><td>44.18</td><td>1</td><td>2.9953e-11</td></tr>
-<tr><td>test10y</td><td>11</td><td>1</td><td>4.9</td><td>1</td><td>0.026857</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,64 +0,0 @@
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (rock[["shape"]], rock[["perm"]], rock[["peri"]], rock[["area"]])
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- var <- na.omit (var) # omit NAs for all further calculations
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- chisq.out.test (var, opposite = FALSE)
- results[i, 'X-squared'] <- t$statistic
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- results[i, 'Variance'] <- var (var)
- results[i, 'Mean'] <- mean (var)
- results[i, 'Standard Deviation'] <- sd (var)
- results[i, 'Median'] <- median (var)
- results[i, 'Minimum'] <- min (var)
- results[i, 'Maximum'] <- max (var)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Chi-squared test for outlier",
- parameters=list ("Opposite", "FALSE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::chisq_out_test", settings="descriptives.state=1\nlength.state=1\nopposite.state=FALSE\nx.available=rock[[\\\"shape\\\"]]\\nrock[[\\\"perm\\\"]]\\nrock[[\\\"peri\\\"]]\\nrock[[\\\"area\\\"]]", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (rock[["shape"]], rock[["perm"]], rock[["peri"]], rock[["area"]])
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- na.omit (vars[[i]])
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- chisq.out.test (var, opposite = TRUE)
- results[i, 'X-squared'] <- t$statistic
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- results[i, 'Variance'] <- var (var)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Chi-squared test for outlier",
- parameters=list ("Opposite", "TRUE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::chisq_out_test", settings="descriptives.state=0\nlength.state=0\nopposite.state=TRUE\nx.available=rock[[\\\"shape\\\"]]\\nrock[[\\\"perm\\\"]]\\nrock[[\\\"peri\\\"]]\\nrock[[\\\"area\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.chisq_out_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,24 +0,0 @@
-<h1>Chi-squared test for outlier</h1>
-<h2>Parameters</h2>
-<ul><li>Opposite: FALSE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>X-squared</td><td>p-value</td><td>Alternative Hypothesis</td><td>Variance</td><td>Mean</td><td>Standard Deviation</td><td>Median</td><td>Minimum</td><td>Maximum</td></tr>
-<tr><td>shape</td><td>48</td><td>0</td><td>8.6813</td><td>0.0032149</td><td>highest value 0.464125 is an outlier</td><td>0.0069717</td><td>0.21811</td><td>0.083496</td><td>0.19886</td><td>0.09033</td><td>0.46413</td></tr>
-<tr><td>perm</td><td>48</td><td>0</td><td>4.0819</td><td>0.043346</td><td>highest value 1300 is an outlier</td><td>191685</td><td>415.45</td><td>437.82</td><td>130.5</td><td>6.3</td><td>1300</td></tr>
-<tr><td>peri</td><td>48</td><td>0</td><td>2.7487</td><td>0.097335</td><td>lowest value 308.642 is an outlier</td><td>2049654</td><td>2682.2</td><td>1431.7</td><td>2536.2</td><td>308.64</td><td>4864.2</td></tr>
-<tr><td>area</td><td>48</td><td>0</td><td>5.2881</td><td>0.021472</td><td>lowest value 1016 is an outlier</td><td>7203045</td><td>7187.7</td><td>2683.8</td><td>7487</td><td>1016</td><td>12212</td></tr>
-</table>
-<h1>Chi-squared test for outlier</h1>
-<h2>Parameters</h2>
-<ul><li>Opposite: TRUE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>X-squared</td><td>p-value</td><td>Alternative Hypothesis</td><td>Variance</td></tr>
-<tr><td>shape</td><td>2.3420</td><td>0.12592</td><td>lowest value 0.0903296 is an outlier</td><td>0.0069717</td></tr>
-<tr><td>perm</td><td>0.87333</td><td>0.35004</td><td>lowest value 6.3 is an outlier</td><td>191685</td></tr>
-<tr><td>peri</td><td>2.3229</td><td>0.12748</td><td>highest value 4864.22 is an outlier</td><td>2049654</td></tr>
-<tr><td>area</td><td>3.5045</td><td>0.061201</td><td>highest value 12212 is an outlier</td><td>7203045</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,44 +0,0 @@
-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
-data <- as.data.frame (rk.list (test50x, test50y, test50z), check.names=FALSE)
-
-# calculate correlation matrix
-result <- cor (data, use="pairwise.complete.obs", method="pearson")
-# calculate matrix of probabilities
-result.p <- matrix (nrow = length (data), ncol = length (data), dimnames=list (names (data), names (data)))
-for (i in 1:length (data)) {
- for (j in i:length (data)) {
- if (i != j) {
- t <- cor.test (data[[i]], data[[j]], method="pearson")
- result.p[i, j] <- t$p.value
- result.p[j, i] <- sum (complete.cases (data[[i]], data[[j]]))
- }
- }
-}
-## Print result
-rk.header ("Correlation Matrix", parameters=list ("Method", "pearson", "Exclusion", "pairwise.complete.obs"))
-
-rk.results (data.frame ("Coefficient"=I(names (data)), result, check.names=FALSE))
-rk.results (data.frame ("n \\ p"=I(names (data)), result.p, check.names=FALSE))
-})
-.rk.rerun.plugin.link(plugin="rkward::corr_matrix", settings="do_p.state=1\nmethod.string=pearson\nuse.string=pairwise\nx.available=test50x\\ntest50y\\ntest50z", label="Run again")
-.rk.make.hr()
-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
-data <- as.data.frame (rk.list (women[["weight"]], women[["height"]]), check.names=FALSE)
-
-# calculate correlation matrix
-result <- cor (data, use="pairwise.complete.obs", method="pearson")
-## Print result
-rk.header ("Correlation Matrix", parameters=list ("Method", "pearson", "Exclusion", "pairwise.complete.obs"))
-
-rk.results (data.frame ("Coefficient"=I(names (data)), result, check.names=FALSE))
-})
-.rk.rerun.plugin.link(plugin="rkward::corr_matrix", settings="do_p.state=\nmethod.string=pearson\nuse.string=pairwise\nx.available=women[[\\\"weight\\\"]]\\nwomen[[\\\"height\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,29 +0,0 @@
-<h1>Correlation Matrix</h1>
-<h2>Parameters</h2>
-<ul><li>Method: pearson</li>
-<li>Exclusion: pairwise.complete.obs</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Coefficient</td><td>test50x</td><td>test50y</td><td>test50z</td></tr>
-<tr><td>test50x</td><td>1</td><td>1</td><td>1</td></tr>
-<tr><td>test50y</td><td>1</td><td>1</td><td>1</td></tr>
-<tr><td>test50z</td><td>1</td><td>1</td><td>1</td></tr>
-</table>
-<table border="1">
-<tr><td>n \ p</td><td>test50x</td><td>test50y</td><td>test50z</td></tr>
-<tr><td>test50x</td><td>NA</td><td>0</td><td>0</td></tr>
-<tr><td>test50y</td><td>50</td><td>NA</td><td>0</td></tr>
-<tr><td>test50z</td><td>50</td><td>50</td><td>NA</td></tr>
-</table>
-<h1>Correlation Matrix</h1>
-<h2>Parameters</h2>
-<ul><li>Method: pearson</li>
-<li>Exclusion: pairwise.complete.obs</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Coefficient</td><td>weight</td><td>height</td></tr>
-<tr><td>weight</td><td>1</td><td>0.99549</td></tr>
-<tr><td>height</td><td>0.99549</td><td>1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,38 +0,0 @@
-local({
-## Prepare
-cor.graph <- function(x) {
- panel.cor <- function(x, y, digits=3, cex.cor, use="pairwise.complete.obs", method="pearson", scale=TRUE) {
- usr <- par("usr"); on.exit(par(usr))
- par(usr = c(0, 1, 0, 1))
- r <- abs(cor(x, y, use=use, method=method))
- txt <- format(c(r, 0.123456789), digits=digits)[1]
- if(missing(cex.cor)) cex <- 0.8/strwidth(txt)
-
- test <- cor.test(x,y, use=use, method=method)
- Signif <- symnum(test$p.value, corr = FALSE, na = FALSE,
- cutpoints = c(0, 0.001, 0.01, 0.05, 0.1, 1),
- symbols = c("***", "**", "*", ".", " "))
-
- if(scale) text(0.5, 0.5, txt, cex = cex * r)
- else text(0.5, 0.5, txt, cex = cex)
- text(.8, .8, Signif, cex=cex, col=2)
- }
-
- pairs(x, lower.panel=panel.smooth, upper.panel=panel.cor)
-}
-## Compute
-## Print result
-data <- data.frame (rock)
-
-rk.header ("Correlation Matrix Plot", parameters=list ("Method", "pearson", "Exclusion", "pairwise.complete.obs", "Precision", "3 digits", "Scale text", "TRUE"))
-
-rk.graph.on ()
-try ({
- cor.graph (data)
-})
-rk.graph.off ()
-
-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.00\nmethod.string=pearson\nscale.state=TRUE\nuse.string=pairwise.complete.obs\nx.available=rock", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.correlation_matrix_plot.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>Correlation Matrix Plot</h1>
-<h2>Parameters</h2>
-<ul><li>Method: pearson</li>
-<li>Exclusion: pairwise.complete.obs</li>
-<li>Precision: 3 digits</li>
-<li>Scale text: TRUE</li>
-</ul>
-DATE<br>
-<img src="graph.png" width="480" height="480"><br>
-
-<p class='character'>Legend: '***': p < 0.001 -- '**': p < 0.01 -- '*': p < 0.05 -- '.'': p < 0.1</p>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,13 +0,0 @@
-local({
-## Prepare
-data <- data.frame (test_table[["A"]],test_table[["B"]],test_table[["C"]],test_table[["D"]], check.names=FALSE)
-datadescription <- paste (rk.get.description (test_table[["A"]],test_table[["B"]],test_table[["C"]],test_table[["D"]]), collapse=", ");
-## Compute
-result <- ftable (data);
-## Print result
-rk.header ("Crosstabs (n to n)", parameters=list ("Variables"=datadescription))
-
-rk.print (result)
-})
-.rk.rerun.plugin.link(plugin="rkward::crosstab_multi", settings="exclude_nas.state=1\nx.available=test_table[[\\\"A\\\"]]\\ntest_table[[\\\"B\\\"]]\\ntest_table[[\\\"C\\\"]]\\ntest_table[[\\\"D\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_multi.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,86 +0,0 @@
-<h1>Crosstabs (n to n)</h1>
-<h2>Parameters</h2>
-<ul><li>Variables: A, B, C, D</li>
-</ul>
-DATE<br>
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside>test_table[["D"]]</td>
-<td class=cellinside>1 </td>
-<td class=cellinside>2 </td></tr>
-
-<td class=cellinside>test_table[["A"]]</td>
-<td class=cellinside>test_table[["B"]]</td>
-<td class=cellinside>test_table[["C"]]</td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td></tr>
-
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside>2 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside> </td>
-<td class=cellinside>0 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside>1 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside>2 </td>
-<td class=cellinside> </td>
-<td class=cellinside>1 </td>
-<td class=cellinside>1 </td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,85 +0,0 @@
-local({
-## Prepare
-## Compute
-x <- rk.list (warpbreaks[["tension"]])
-yvars <- rk.list (warpbreaks[["wool"]], warpbreaks[["tension"]])
-results <- list()
-chisquares <- list ()
-
-# calculate crosstabs
-for (i in 1:length (yvars)) {
- count <- table(x[[1]], yvars[[i]])
- chisquares[[i]] <- chisq.test (count, simulate.p.value = FALSE)
- results[[i]] <- count
-}
-## Print result
-rk.header ("Crosstabs (n to 1)", level=1)
-for (i in 1:length (results)) {
- rk.header ("Crosstabs (n to 1)", parameters=list ("Dependent", names (x)[1], "Independent", names (yvars)[i]), level=2)
- rk.results (results[[i]], titles=c(names (x)[1], names (yvars)[i]))
-
- rk.header ("Pearson's Chi Square Test for Crosstabs", list ("Dependent", names (x)[1], "Independent", names (yvars)[i], "Method", chisquares[[i]][["method"]]), level=2)
- rk.results (list ('Statistic'=chisquares[[i]][['statistic']], 'df'=chisquares[[i]][['parameter']], 'p'=chisquares[[i]][['p.value']]))
-
- rk.header ("Barplot for Crosstabs", list ("Dependent", names (x)[1], "Independent", names (yvars)[i], "colors", "default", "Type", "juxtaposed", "Legend", "FALSE"), level=2)
- rk.graph.on ()
- try ({
- counts <- results[[i]]
- barplot(counts, beside=TRUE)
- })
- 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.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\nchisq_expected.state=FALSE\nmargins.state=FALSE\nprop_column.state=FALSE\nprop_row.state=FALSE\nprop_total.state=FALSE\nsimpv.string=FALSE\nx.available=warpbreaks[[\\\"tension\\\"]]\ny.available=warpbreaks[[\\\"wool\\\"]]\\nwarpbreaks[[\\\"tension\\\"]]", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-# convenience function to bind together several two dimensional tables into a single three dimensional table
-bind.tables <- function (...) {
- tables <- list (...)
- output <- unlist (tables)
- dim (output) <- c (dim (tables[[1]]), length (tables))
- dimnames (output) <- c (dimnames (tables[[1]]), list (statistic=names(tables)))
- output
-}
-## Compute
-x <- rk.list (warpbreaks[["tension"]])
-yvars <- rk.list (warpbreaks[["wool"]], warpbreaks[["tension"]])
-results <- list()
-chisquares <- list ()
-
-# calculate crosstabs
-for (i in 1:length (yvars)) {
- count <- table(x[[1]], yvars[[i]])
- chisquares[[i]] <- chisq.test (count, simulate.p.value = FALSE)
- results[[i]] <- bind.tables ("count"=addmargins (count),
- "% of row"=addmargins (prop.table(count, 1) * 100, quiet=TRUE, FUN=function(x) NA),
- "% of column"=addmargins (prop.table(count, 2) * 100, quiet=TRUE, FUN=function(x) NA),
- "% of total"=addmargins (prop.table(count) * 100),
- "expected"=addmargins (chisquares[[i]]$expected, quiet=TRUE, FUN=function(x) NA))
-}
-## Print result
-rk.header ("Crosstabs (n to 1)", level=1)
-for (i in 1:length (results)) {
- rk.header ("Crosstabs (n to 1)", parameters=list ("Dependent", names (x)[1], "Independent", names (yvars)[i]), level=2)
- rk.print (ftable (results[[i]], col.vars=2))
-
- rk.header ("Pearson's Chi Square Test for Crosstabs", list ("Dependent", names (x)[1], "Independent", names (yvars)[i], "Method", chisquares[[i]][["method"]]), level=2)
- rk.results (list ('Statistic'=chisquares[[i]][['statistic']], 'df'=chisquares[[i]][['parameter']], 'p'=chisquares[[i]][['p.value']]))
-
- rk.header ("Barplot for Crosstabs", list ("Dependent", names (x)[1], "Independent", names (yvars)[i], "colors", "rainbow", "Type", "juxtaposed", "Legend", "FALSE"), level=2)
- rk.graph.on ()
- try ({
- counts <- results[[i]][, , "count"]
- # adjust the range so that the labels will fit
- yrange <- range (counts, na.rm=TRUE) * 1.2
- if (yrange[1] > 0) yrange[1] <- 0
- if (yrange[2] < 0) yrange[2] <- 0
- bplot <- barplot(counts, col=rainbow (if(is.matrix(counts)) dim(counts) else length(counts)), beside=TRUE, ylim = yrange)
- text (bplot,counts, labels=counts, pos=3, offset=.5)
- })
- rk.graph.off ()
-}
-})
-.rk.rerun.plugin.link(plugin="rkward::crosstab", settings="barplot.state=TRUE\nbarplot_embed.colors.string=rainbow\nbarplot_embed.labels.state=1\nbarplot_embed.legend.state=0\nbarplot_embed.place.string=3\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\nchisq_expected.state=TRUE\nmargins.state=TRUE\nprop_column.state=TRUE\nprop_row.state=TRUE\nprop_total.state=TRUE\nsimpv.string=FALSE\nx.available=warpbreaks[[\\\"tension\\\"]]\ny.available=warpbreaks[[\\\"wool\\\"]]\\nwarpbreaks[[\\\"tension\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.crosstab_n_to_1.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,476 +0,0 @@
-<h1>Crosstabs (n to 1)</h1>
-DATE<br>
-<h2>Crosstabs (n to 1)</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-</ul>
-<br>
-<table border="1">
-<tr><td></td><td>wool = A</td><td>wool = B</td></tr>
-<tr><td>tension = L</td><td>9</td><td>9</td></tr>
-<tr><td>tension = M</td><td>9</td><td>9</td></tr>
-<tr><td>tension = H</td><td>9</td><td>9</td></tr>
-</table>
-<h2>Pearson's Chi Square Test for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-<li>Method: Pearson's Chi-squared test</li>
-</ul>
-<br>
-<table border="1">
-<tr><td>Statistic</td><td>df</td><td>p</td></tr>
-<tr><td>0</td><td>2</td><td>1</td></tr>
-</table>
-<h2>Barplot for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-<li>colors: default</li>
-<li>Type: juxtaposed</li>
-<li>Legend: FALSE</li>
-</ul>
-<br>
-<img src="graph.png" width="480" height="480"><br>
-<h2>Crosstabs (n to 1)</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-</ul>
-<br>
-<table border="1">
-<tr><td></td><td>tension = L</td><td>tension = M</td><td>tension = H</td></tr>
-<tr><td>tension = L</td><td>18</td><td>0</td><td>0</td></tr>
-<tr><td>tension = M</td><td>0</td><td>18</td><td>0</td></tr>
-<tr><td>tension = H</td><td>0</td><td>0</td><td>18</td></tr>
-</table>
-<h2>Pearson's Chi Square Test for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-<li>Method: Pearson's Chi-squared test</li>
-</ul>
-<br>
-<table border="1">
-<tr><td>Statistic</td><td>df</td><td>p</td></tr>
-<tr><td>108</td><td>4</td><td>1.9429e-22</td></tr>
-</table>
-<h2>Barplot for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-<li>colors: default</li>
-<li>Type: juxtaposed</li>
-<li>Legend: FALSE</li>
-</ul>
-<br>
-<img src="graph.png" width="480" height="480"><br>
-<h1>Crosstabs (n to 1)</h1>
-DATE<br>
-<h2>Crosstabs (n to 1)</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-</ul>
-<br>
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> A </td>
-<td class=cellinside> B </td>
-<td class=cellinside> Sum </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>statistic </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td></tr>
-
-<td class=cellinside>L </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>M </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>H </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 16.667 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> 9.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>Sum </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 27.000 </td>
-<td class=cellinside> 27.000 </td>
-<td class=cellinside> 54.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside> 50.000 </td>
-<td class=cellinside>100.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-<h2>Pearson's Chi Square Test for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-<li>Method: Pearson's Chi-squared test</li>
-</ul>
-<br>
-<table border="1">
-<tr><td>Statistic</td><td>df</td><td>p</td></tr>
-<tr><td>0</td><td>2</td><td>1</td></tr>
-</table>
-<h2>Barplot for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: wool</li>
-<li>colors: rainbow</li>
-<li>Type: juxtaposed</li>
-<li>Legend: FALSE</li>
-</ul>
-<br>
-<img src="graph.png" width="480" height="480"><br>
-<h2>Crosstabs (n to 1)</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-</ul>
-<br>
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> L </td>
-<td class=cellinside> M </td>
-<td class=cellinside> H </td>
-<td class=cellinside> Sum </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>statistic </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td></tr>
-
-<td class=cellinside>L </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>M </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>H </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 18.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside>100.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 0.000 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> 6.000 </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside>Sum </td>
-<td class=cellinside>count </td>
-<td class=cellinside> </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 18.000 </td>
-<td class=cellinside> 54.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of row </td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of column</td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>% of total </td>
-<td class=cellinside> </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside> 33.333 </td>
-<td class=cellinside>100.000 </td></tr>
-
-<td class=cellinside> </td>
-<td class=cellinside>expected </td>
-<td class=cellinside> </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td>
-<td class=cellinside> NA </td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-<h2>Pearson's Chi Square Test for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-<li>Method: Pearson's Chi-squared test</li>
-</ul>
-<br>
-<table border="1">
-<tr><td>Statistic</td><td>df</td><td>p</td></tr>
-<tr><td>108</td><td>4</td><td>1.9429e-22</td></tr>
-</table>
-<h2>Barplot for Crosstabs</h2>
-<h3>Parameters</h3>
-<ul><li>Dependent: tension</li>
-<li>Independent: tension</li>
-<li>colors: rainbow</li>
-<li>Type: juxtaposed</li>
-<li>Legend: FALSE</li>
-</ul>
-<br>
-<img src="graph.png" width="480" height="480"><br>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,33 +0,0 @@
-local({
-## Prepare
-## Compute
-vars <- rk.list (women[["height"]], test10z)
-results <- data.frame ('Object'=I(names (vars)))
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- # we wrap each single call in a "try" statement to always continue on errors.
- 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))
- results[i, 'min'] <- range[1]
- results[i, 'max'] <- range[2]
- })
- 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.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.00,
- "Median Absolute Deviation",
- paste ("constant:", 1.4628, "average")))
-
-rk.results (results)
-})
-.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()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.descriptive_stats.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,11 +0,0 @@
-<h1>Descriptive statistics</h1>
-<h2>Parameters</h2>
-<ul><li>Trim of mean: 0</li>
-<li>Median Absolute Deviation: constant: 1.4628 average</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Object</td><td>mean</td><td>median</td><td>min</td><td>max</td><td>standard deviation</td><td>sum</td><td>product</td><td>Median Absolute Deviation</td><td>length of sample</td><td>number of NAs</td></tr>
-<tr><td>height</td><td>65</td><td>65</td><td>58</td><td>72</td><td>4.4721</td><td>975</td><td>1.5110e+27</td><td>5.8512</td><td>15</td><td>0</td></tr>
-<tr><td>test10z</td><td>22</td><td>22</td><td>4</td><td>40</td><td>12.111</td><td>220</td><td>3.8051e+12</td><td>14.628</td><td>11</td><td>1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,62 +0,0 @@
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (women[["weight"]], women[["height"]])
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- var <- na.omit (var) # omit NAs for all further calculations
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- dixon.test (var, type = 0, opposite = FALSE, two.sided = TRUE)
- results[i, 'Dixon Q-statistic'] <- t$statistic["Q"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- results[i, 'Mean'] <- mean (var)
- results[i, 'Standard Deviation'] <- sd (var)
- results[i, 'Median'] <- median (var)
- results[i, 'Minimum'] <- min (var)
- results[i, 'Maximum'] <- max (var)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Dixon test for outlier",
- parameters=list ("Type", "0", "Opposite", "FALSE", "two-sided", "TRUE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::dixon_test", settings="descriptives.state=1\nlength.state=1\nopposite.state=FALSE\ntwo_sided.state=TRUE\ntype.string=0\nx.available=women[[\\\"weight\\\"]]\\nwomen[[\\\"height\\\"]]", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (women[["weight"]], women[["height"]])
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- na.omit (vars[[i]])
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- dixon.test (var, type = 0, opposite = TRUE, two.sided = FALSE)
- results[i, 'Dixon Q-statistic'] <- t$statistic["Q"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Dixon test for outlier",
- parameters=list ("Type", "0", "Opposite", "TRUE", "two-sided", "FALSE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::dixon_test", settings="descriptives.state=0\nlength.state=0\nopposite.state=TRUE\ntwo_sided.state=FALSE\ntype.string=0\nx.available=women[[\\\"weight\\\"]]\\nwomen[[\\\"height\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.dixon_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,24 +0,0 @@
-<h1>Dixon test for outlier</h1>
-<h2>Parameters</h2>
-<ul><li>Type: 0</li>
-<li>Opposite: FALSE</li>
-<li>two-sided: TRUE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>Dixon Q-statistic</td><td>p-value</td><td>Alternative Hypothesis</td><td>Mean</td><td>Standard Deviation</td><td>Median</td><td>Minimum</td><td>Maximum</td></tr>
-<tr><td>weight</td><td>15</td><td>0</td><td>0.22727</td><td>0.76454</td><td>highest value 164 is an outlier</td><td>136.73</td><td>15.499</td><td>135</td><td>115</td><td>164</td></tr>
-<tr><td>height</td><td>15</td><td>0</td><td>0.16667</td><td>0.4514</td><td>highest value 72 is an outlier</td><td>65</td><td>4.4721</td><td>65</td><td>58</td><td>72</td></tr>
-</table>
-<h1>Dixon test for outlier</h1>
-<h2>Parameters</h2>
-<ul><li>Type: 0</li>
-<li>Opposite: TRUE</li>
-<li>two-sided: FALSE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Dixon Q-statistic</td><td>p-value</td><td>Alternative Hypothesis</td></tr>
-<tr><td>weight</td><td>0.12821</td><td>0.86257</td><td>lowest value 115 is an outlier</td></tr>
-<tr><td>height</td><td>0.16667</td><td>0.7743</td><td>lowest value 58 is an outlier</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-local({
-## Prepare
-## Compute
-result <- fligner.test (list (women[["weight"]], women[["height"]], test50z, test50y, test50x, test10z, test10y, test10x))
-## Print result
-names <- rk.get.description (women[["weight"]], women[["height"]], test50z, test50y, test50x, test10z, test10y, test10x)
-
-rk.header (result$method)
-
-rk.results (list (
- 'Variables'=names,
- 'Fligner-Killeen:med X^2 test statistic'=result$statistic,
- 'df'=result$parameter,
- 'p-value'=result$p.value))
-})
-.rk.rerun.plugin.link(plugin="rkward::fligner_test", settings="x.available=women[[\\\"weight\\\"]]\\nwomen[[\\\"height\\\"]]\\ntest50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.fligner_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,13 +0,0 @@
-<h1>Fligner-Killeen test of homogeneity of variances</h1>
-DATE<br>
-<table border="1">
-<tr><td>Variables</td><td>Fligner-Killeen:med X^2 test statistic</td><td>df</td><td>p-value</td></tr>
-<tr><td>weight
-<br/>height
-<br/>test50z
-<br/>test50y
-<br/>test50x
-<br/>test10z
-<br/>test10y
-<br/>test10x</td><td>112.87</td><td>7</td><td>2.3321e-21</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,69 +0,0 @@
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (warpbreaks[["breaks"]], test10z)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- var <- na.omit (var) # omit NAs for all further calculations
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- grubbs.test (var, type = 10, opposite = FALSE, two.sided = TRUE)
- results[i, 'G'] <- t$statistic["G"]
- results[i, 'U'] <- t$statistic["U"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Grubbs tests for one or two outliers in data sample",
- parameters=list ("Type", "10", "Opposite", "FALSE", "two-sided", "TRUE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::grubbs_test", settings="descriptives.state=0\nlength.state=1\nopposite.state=FALSE\ntwo_sided.state=TRUE\ntype.string=10\nx.available=warpbreaks[[\\\"breaks\\\"]]\\ntest10z", label="Run again")
-.rk.make.hr()
-local({
-## Prepare
-require(outliers)
-## Compute
-vars <- rk.list (warpbreaks[["breaks"]], test10z)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
-
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- var <- na.omit (var) # omit NAs for all further calculations
-
- results[i, 'Error'] <- tryCatch ({
- # This is the core of the calculation
- t <- grubbs.test (var, type = 11, opposite = TRUE, two.sided = FALSE)
- results[i, 'G'] <- t$statistic["G"]
- results[i, 'U'] <- t$statistic["U"]
- results[i, 'p-value'] <- t$p.value
- results[i, 'Alternative Hypothesis']<- rk.describe.alternative (t)
- results[i, 'Mean'] <- mean (var)
- results[i, 'Standard Deviation'] <- sd (var)
- results[i, 'Median'] <- median (var)
- results[i, 'Minimum'] <- min (var)
- results[i, 'Maximum'] <- max (var)
- NA # no error
- }, error=function (e) e$message) # catch any errors
-}
-if (all (is.na (results$'Error'))) results$'Error' <- NULL
-## Print result
-rk.header ("Grubbs tests for one or two outliers in data sample",
- parameters=list ("Type", "11", "Opposite", "TRUE", "two-sided", "FALSE"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::grubbs_test", settings="descriptives.state=1\nlength.state=1\nopposite.state=TRUE\ntwo_sided.state=FALSE\ntype.string=11\nx.available=warpbreaks[[\\\"breaks\\\"]]\\ntest10z", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.grubbs_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,24 +0,0 @@
-<h1>Grubbs tests for one or two outliers in data sample</h1>
-<h2>Parameters</h2>
-<ul><li>Type: 10</li>
-<li>Opposite: FALSE</li>
-<li>two-sided: TRUE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>G</td><td>U</td><td>p-value</td><td>Alternative Hypothesis</td></tr>
-<tr><td>breaks</td><td>54</td><td>0</td><td>3.1709</td><td>0.80671</td><td>0.047523</td><td>highest value 70 is an outlier</td></tr>
-<tr><td>test10z</td><td>11</td><td>1</td><td>1.4863</td><td>0.72727</td><td>0.78497</td><td>highest value 40 is an outlier</td></tr>
-</table>
-<h1>Grubbs tests for one or two outliers in data sample</h1>
-<h2>Parameters</h2>
-<ul><li>Type: 11</li>
-<li>Opposite: TRUE</li>
-<li>two-sided: FALSE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>G</td><td>U</td><td>p-value</td><td>Alternative Hypothesis</td><td>Mean</td><td>Standard Deviation</td><td>Median</td><td>Minimum</td><td>Maximum</td></tr>
-<tr><td>breaks</td><td>54</td><td>0</td><td>4.5459</td><td>0.77345</td><td>1</td><td>10 and 70 are outliers</td><td>28.148</td><td>13.199</td><td>26</td><td>10</td><td>70</td></tr>
-<tr><td>test10z</td><td>11</td><td>1</td><td>2.9726</td><td>0.50909</td><td>1</td><td>4 and 40 are outliers</td><td>22</td><td>12.111</td><td>22</td><td>4</td><td>40</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,29 +0,0 @@
-local({
-## Prepare
-## Compute
-## Print result
-rk.header ("Hodrick-Prescott Filter", parameters=list("Lambda", 1600))
-x <- co2
-lambda <- 1600
-
-if (any (is.na (x))) stop ("Missing values cannot be handled")
-
-i <- diag(length(x))
-trend <- solve(i + lambda * crossprod(diff(i, lag=1, d=2)), x) # The HP Filter itself. Thanks to Grant V. Farnsworth
-cycle <- x - trend
-if (is.ts(x)) {
- trend <- ts(trend,start(x),frequency=frequency(x))
- cycle <- ts(cycle,start(x),frequency=frequency(x))
-}
-.GlobalEnv$hptrend <- trend
-.GlobalEnv$hpcycle <- cycle
-rk.graph.on ()
-try({
- par(mfrow=c(2,1),mar=c(2,4,2,2)+0.1)
- plot.ts(cbind(x, trend), ylab="co2, Trend", col=c("blue", "red"),lwd=c(1,1), plot.type="single")
- plot.ts(cycle, ylab="Cycle", col="green4", lwd=1)
-})
-rk.graph.off ()
-})
-.rk.rerun.plugin.link(plugin="rkward::hp_filter", settings="custom.state=0\ncycle_col.color.string=green4\ncycle_lty.string=\ncycle_lwd.real=1.00\ncycle_name.active=1\ncycle_name.objectname=hpcycle\ncycle_name.parent=.GlobalEnv\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.active=1\ntrend_name.objectname=hptrend\ntrend_name.parent=.GlobalEnv\nuplab.text=\nx.available=co2", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.hp_filter.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,46 +0,0 @@
-<h1>Hodrick-Prescott Filter</h1>
-<h2>Parameters</h2>
-<ul><li>Lambda: 1600</li>
-</ul>
-DATE<br>
-<img src="graph.png" width="480" height="480"><br>
-
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody> <tr class= firstline > <th>Min.</th><th>1st Qu.</th><th>Median</th><th>Mean</th><th>3rd Qu.</th><th>Max.</th> </tr>
-
-<td class=cellinside>316</td>
-<td class=cellinside>323</td>
-<td class=cellinside>335</td>
-<td class=cellinside>337</td>
-<td class=cellinside>351</td>
-<td class=cellinside>363</td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody> <tr class= firstline > <th>Min.</th><th>1st Qu.</th><th>Median</th><th>Mean</th><th>3rd Qu.</th><th>Max.</th> </tr>
-
-<td class=cellinside>-3.72</td>
-<td class=cellinside>-1.66</td>
-<td class=cellinside> 0.25</td>
-<td class=cellinside> 0.00</td>
-<td class=cellinside> 1.80</td>
-<td class=cellinside> 3.92</td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.messages.txt
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.messages.txt 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.messages.txt 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,5 +0,0 @@
-Warning messages:
-1: In kpss.test(var, null = "Trend", lshort = FALSE) :
- p-value greater than printed p-value
-2: In kpss.test(var, null = "Trend", lshort = FALSE) :
- p-value greater than printed p-value
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,25 +0,0 @@
-local({
-## Prepare
-require (tseries)
-## Compute
-vars <- rk.list (test50x, test50y, test50z)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- results[i, 'Length'] <- length (var)
- results[i, 'NAs'] <- sum (is.na(var))
-
- try ({
- test <- kpss.test (var, null = "Trend", lshort = FALSE)
- results[i, 'KPSS Trend'] <- test$statistic
- results[i, 'Truncation lag parameter'] <- test$parameter
- results[i, 'p-value'] <- test$p.value
- })
-}
-## Print result
-rk.header ("KPSS Test for Level Stationarity",
- parameters=list ("null hypothesis"="Trend", "version of truncation lag parameter"="long"))
-rk.results (results)
-})
-.rk.rerun.plugin.link(plugin="rkward::kpss_test", settings="length.state=1\nlshort.string=FALSE\nnarm.state=0\nnull.string=Trend\nx.available=test50x\\ntest50y\\ntest50z", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.kpss_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,12 +0,0 @@
-<h1>KPSS Test for Level Stationarity</h1>
-<h2>Parameters</h2>
-<ul><li>null hypothesis: Trend</li>
-<li>version of truncation lag parameter: long</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Length</td><td>NAs</td><td>KPSS Trend</td><td>Truncation lag parameter</td><td>p-value</td></tr>
-<tr><td>test50x</td><td>50</td><td>0</td><td>0.10241</td><td>5</td><td>0.1</td></tr>
-<tr><td>test50y</td><td>50</td><td>0</td><td>0.13780</td><td>5</td><td>0.06518</td></tr>
-<tr><td>test50z</td><td>50</td><td>0</td><td>0.099722</td><td>5</td><td>0.1</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,14 +0,0 @@
-local({
-## Prepare
-require(car)
-## Compute
-result <- levene.test (warpbreaks[["breaks"]], warpbreaks[["tension"]])
-## Print result
-names <- rk.get.description (warpbreaks[["breaks"]], warpbreaks[["tension"]])
-
-rk.header ("Levene's Test", list ("response variable", names[1], "groups", names[2]))
-
-rk.print (result)
-})
-.rk.rerun.plugin.link(plugin="rkward::levene_test", settings="group.available=warpbreaks[[\\\"tension\\\"]]\ny.available=warpbreaks[[\\\"breaks\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.levene_test.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,38 +0,0 @@
-<h1>Levene's Test</h1>
-<h2>Parameters</h2>
-<ul><li>response variable: breaks</li>
-<li>groups: tension</li>
-</ul>
-DATE<br>
-
-
-<p class='character'><p><b> Levene's Test for Homogeneity of Variance </b></p></p>
-
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody> <tr class= firstline > <th></th><th>Df</th><th>F value</th><th>Pr(>F)</th><th></th> </tr>
-
-<tr><td class=firstcolumn>group</td>
-<td class=cellinside> 2 </td>
-<td class=cellinside>2.82 </td>
-<td class=cellinside>0.069</td>
-<td class=cellinside>. </td></tr>
-
-<tr><td class=firstcolumn> </td>
-<td class=cellinside>51 </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td>
-<td class=cellinside> </td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-
-<p class='character'>
-<p>--- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1</p>
-</p>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,10 +0,0 @@
-local({
-## Prepare
-## Compute
-results <- summary.lm (lm (warpbreaks[["breaks"]] ~ warpbreaks[["tension"]] + warpbreaks[["wool"]]))
-## Print result
-rk.header ("Linear Regression")
-rk.print(results)
-})
-.rk.rerun.plugin.link(plugin="rkward::linear_regression", settings="intercept.state=1\nx.available=warpbreaks[[\\\"tension\\\"]]\\nwarpbreaks[[\\\"wool\\\"]]\ny.available=warpbreaks[[\\\"breaks\\\"]]", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.linear_regression.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,83 +0,0 @@
-<h1>Linear Regression</h1>
-DATE<br>
-
-<p class='character'>
-</p>
-
-<br><li>Call:<font class='call'> lm(formula = warpbreaks[["breaks"]] ~ warpbreaks[["tension"]] + </font>
-Call:<font class='call'> warpbreaks[["wool"]])</font>
-
-<br><li> Residuals<br>
-
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody> <tr class= firstline > <th></th><th>Min</th><th>1Q</th><th>Median</th><th>3Q</th><th>Max</th> </tr>
-
-<tr><td class=firstcolumn></td>
-<td class=cellinside>-19.5</td>
-<td class=cellinside> -8.1</td>
-<td class=cellinside> -2.1</td>
-<td class=cellinside> 6.5</td>
-<td class=cellinside> 30.7</td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-
-<br><li>Coefficients
-
-
-
-<p align= center >
-<table cellspacing=0 border=1><caption align=bottom class=captiondataframe></caption>
-<tr><td>
- <table border=0 class=dataframe>
- <tbody> <tr class= firstline > <th></th><th>Estimate</th><th>Std. Error</th><th>t value</th><th>Pr(>|t|)</th><th></th> </tr>
-
-<tr><td class=firstcolumn>(Intercept)</td>
-<td class=cellinside> 39.28 </td>
-<td class=cellinside> 3.16 </td>
-<td class=cellinside>12.42 </td>
-<td class=cellinside>< 2e-16</td>
-<td class=cellinside>*** </td></tr>
-
-<tr><td class=firstcolumn>warpbreaks[["tension"]]M</td>
-<td class=cellinside>-10.00 </td>
-<td class=cellinside> 3.87 </td>
-<td class=cellinside>-2.58 </td>
-<td class=cellinside>0.01279</td>
-<td class=cellinside> * </td></tr>
-
-<tr><td class=firstcolumn>warpbreaks[["tension"]]H</td>
-<td class=cellinside>-14.72 </td>
-<td class=cellinside> 3.87 </td>
-<td class=cellinside>-3.80 </td>
-<td class=cellinside>0.00039</td>
-<td class=cellinside>*** </td></tr>
-
-<tr><td class=firstcolumn>warpbreaks[["wool"]]B</td>
-<td class=cellinside> -5.78 </td>
-<td class=cellinside> 3.16 </td>
-<td class=cellinside>-1.83 </td>
-<td class=cellinside>0.07361</td>
-<td class=cellinside> . </td></tr>
-
- </tbody>
-</table>
- </td></table>
- <br>
-
-<p class='character'>
-<p>--- Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1</p>
-</p>
-
-<br><li>Residuals standard error: 11.617 on 50 degrees of freedom
-
-<br><li>Multiple R-Squared:<b>0.269</b>
-<br><li>Adjusted R-Squared:<b>0.225</b>
-<br><li>F-statistics: <b>6.138</b> on 3 and 50 DF. P-value:<b>0.001</b>.
\ No newline at end of file
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-local({
-## Prepare
-require(moments)
-## Compute
-vars <- rk.list (test50z, test50y, test50x, test10z, test10y, test10x)
-results <- data.frame ('Variable Name'=I(names (vars)), check.names=FALSE)
-for (i in 1:length (vars)) {
- var <- vars[[i]]
- try (results[i, 'Moment'] <- moment (var, order = 1, central = FALSE, absolute = FALSE, na.rm = TRUE))
-}
-## Print result
-rk.header ("Statistical Moment",
- 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.00\nx.available=test50z\\ntest50y\\ntest50x\\ntest10z\\ntest10y\\ntest10x", label="Run again")
-.rk.make.hr()
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkout
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkout 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.moments_moment.rkout 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-<h1>Statistical Moment</h1>
-<h2>Parameters</h2>
-<ul><li>Order: 1</li>
-<li>Compute central moments: FALSE</li>
-<li>Compute absolute moments: FALSE</li>
-<li>Remove missing values: TRUE</li>
-</ul>
-DATE<br>
-<table border="1">
-<tr><td>Variable Name</td><td>Moment</td></tr>
-<tr><td>test50z</td><td>102</td></tr>
-<tr><td>test50y</td><td>225.5</td></tr>
-<tr><td>test50x</td><td>125.5</td></tr>
-<tr><td>test10z</td><td>22</td></tr>
-<tr><td>test10y</td><td>205.5</td></tr>
-<tr><td>test10x</td><td>105.5</td></tr>
-</table>
Deleted: trunk/rkward/tests/analysis_plugins/RKTestStandard.mood_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/analysis_plugins/RKTestStandard.mood_test.rkcommands.R 2011-06-11 09:02:20 UTC (rev 3684)
+++ trunk/rkward/tests/analysis_plugins/RKTestStandard.mood_test.rkcommands.R 2011-06-11 11:01:11 UTC (rev 3685)
@@ -1,17 +0,0 @@
-local({
-## Prepare
-## Compute
-result <- mood.test (test50z, test50x, alternative = "two.sided")
-## Print result
-names <- rk.get.description (test50z, test50x)
-
-rk.header (result$method,
- parameters=list ("Alternative Hypothesis", rk.describe.alternative (result)))
-
-rk.results (list (
- 'Variables'=names,
- 'Z'=result$statistic,
- 'p-value'=result$p.value))
-})
@@ 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