[rkward-cvs] SF.net SVN: rkward: [2010] trunk/rkward/rkward/plugins
tfry at users.sourceforge.net
tfry at users.sourceforge.net
Sun Sep 30 17:00:24 UTC 2007
Revision: 2010
http://rkward.svn.sourceforge.net/rkward/?rev=2010&view=rev
Author: tfry
Date: 2007-09-30 10:00:24 -0700 (Sun, 30 Sep 2007)
Log Message:
-----------
NOT FOR 0.4.8: Add Jarque-Bera test (by German Marquez Mejia)
Modified Paths:
--------------
trunk/rkward/rkward/plugins/Makefile.am
trunk/rkward/rkward/plugins/under_development.pluginmap
Added Paths:
-----------
trunk/rkward/rkward/plugins/distributions/tests/jb_test.php
trunk/rkward/rkward/plugins/distributions/tests/jb_test.rkh
trunk/rkward/rkward/plugins/distributions/tests/jb_test.xml
Modified: trunk/rkward/rkward/plugins/Makefile.am
===================================================================
--- trunk/rkward/rkward/plugins/Makefile.am 2007-09-30 16:27:05 UTC (rev 2009)
+++ trunk/rkward/rkward/plugins/Makefile.am 2007-09-30 17:00:24 UTC (rev 2010)
@@ -47,12 +47,11 @@
plots/pareto.php \
plots/pareto.xml \
plots/pareto.rkh \
- plots/barplot_embed.xml \
+ plots/barplot_embed.rkh \
plots/histogram_options.php \
plots/histogram_options.rkh \
plots/histogram_options.xml \
- plots/barplot_embed.rkh \
- plots/barplot_embed.php \
+ plots/barplot_embed.xml \
plots/stem.rkh \
plots/stem.xml \
plots/stem.php \
@@ -64,7 +63,8 @@
plots/dotchart.php \
plots/ecdf_plot.rkh \
plots/dotchart.xml \
- plots/dotchart.rkh
+ plots/dotchart.rkh \
+ plots/barplot_embed.php
pluginsXdistributionsdir = $(kde_datadir)/rkward/distributions
dist_pluginsXdistributions_DATA = \
@@ -279,7 +279,10 @@
distributions/tests/shapiro_test.php \
distributions/tests/shapiro_test.xml \
distributions/tests/pearson_test.php \
- distributions/tests/pearson_test.xml
+ distributions/tests/pearson_test.xml \
+ distributions/tests/jb_test.php \
+ distributions/tests/jb_test.rkh \
+ distributions/tests/jb_test.xml
pluginsXuni1D2dir = $(kde_datadir)/rkward/uni1.2
dist_pluginsXuni1D2_DATA = \
@@ -353,8 +356,8 @@
analysis/ansari_bradley/ansari_bradley_test.php \
analysis/ansari_bradley/ansari_bradley_exact_test.php \
analysis/ansari_bradley/ansari_bradley_test.xml \
- analysis/ansari_bradley/ansari_bradley_test.rkh \
- analysis/ansari_bradley/ansari_bradley_exact_test.rkh
+ analysis/ansari_bradley/ansari_bradley_exact_test.rkh \
+ analysis/ansari_bradley/ansari_bradley_test.rkh
pluginsXanalysisXmomentsdir = $(kde_datadir)/rkward/analysis/moments
dist_pluginsXanalysisXmoments_DATA = \
@@ -397,12 +400,6 @@
analysis/outliers/outlier.php \
analysis/outliers/chisq_out_test.xml
-pluginsXanalysisXregressiondir = $(kde_datadir)/rkward/analysis/regression
-dist_pluginsXanalysisXregression_DATA = \
- analysis/regression/linear_regression.php \
- analysis/regression/linear_regression.xml \
- analysis/regression/linear_regression.rkh
-
pluginsXanalysisXTESTSdir = $(kde_datadir)/rkward/analysis/TESTS
dist_pluginsXanalysisXTESTS_DATA = \
analysis/TESTS/mood_test.rkh \
@@ -412,15 +409,6 @@
analysis/TESTS/mood_test.xml \
analysis/TESTS/PP_test.xml
-pluginsXanalysisXtime_seriesdir = $(kde_datadir)/rkward/analysis/time_series
-dist_pluginsXanalysisXtime_series_DATA = \
- analysis/time_series/Box_test.xml \
- analysis/time_series/Box_test.php \
- analysis/time_series/Box_test.rkh \
- analysis/time_series/kpss_test.xml \
- analysis/time_series/kpss_test.php \
- analysis/time_series/kpss_test.rkh
-
pluginsXanalysisXvariancesdir = $(kde_datadir)/rkward/analysis/variances
dist_pluginsXanalysisXvariances_DATA = \
analysis/variances/bartlett_test.xml \
@@ -433,6 +421,21 @@
analysis/variances/F_test.php \
analysis/variances/fligner_test.php
+pluginsXanalysisXregressiondir = $(kde_datadir)/rkward/analysis/regression
+dist_pluginsXanalysisXregression_DATA = \
+ analysis/regression/linear_regression.php \
+ analysis/regression/linear_regression.xml \
+ analysis/regression/linear_regression.rkh
+
+pluginsXanalysisXtimeUseriesdir = $(kde_datadir)/rkward/analysis/time_series
+dist_pluginsXanalysisXtimeUseries_DATA = \
+ analysis/time_series/kpss_test.rkh \
+ analysis/time_series/kpss_test.php \
+ analysis/time_series/Box_test.xml \
+ analysis/time_series/Box_test.rkh \
+ analysis/time_series/Box_test.php \
+ analysis/time_series/kpss_test.xml
+
pluginsXdescriptivedir = $(kde_datadir)/rkward/descriptive
dist_pluginsXdescriptive_DATA = \
descriptive/descriptive_statistics.php \
Added: trunk/rkward/rkward/plugins/distributions/tests/jb_test.php
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tests/jb_test.php (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/tests/jb_test.php 2007-09-30 17:00:24 UTC (rev 2010)
@@ -0,0 +1,34 @@
+<?
+function preprocess () { ?>
+require(tseries)
+<?
+}
+
+function calculate () {
+ $vars = "substitute (" . str_replace ("\n", "), substitute (", trim (getRK_val ("x"))) . ")";
+
+?>
+vars <- list (<? echo ($vars); ?>)
+results <- data.frame ('Variable Name'=rep (NA, length (vars)), check.names=FALSE)
+for (i in 1:length (vars)) {
+ results[i, 'Variable Name'] <- rk.get.description (vars[[i]], is.substitute=TRUE)
+ var <- eval (vars[[i]], envir=globalenv ())
+<? if (getRK_val ("length")) { ?>
+ results[i, 'Length'] <- length (var)
+<? } ?>
+ try ({
+ test <- jarque.bera.test (var)
+ results[i, 'Statistic'] <- paste (names (test$statistic), test$statistic, sep=" = ")
+ results[i, 'p-value'] <- test$p.value
+ })
+}
+<?
+}
+
+function printout () {
+?>
+rk.header ("Jarque-Bera Normality Test", parameters=list ("Degrees of freedom", test$parameter))
+rk.results (results)
+<?
+}
+?>
\ No newline at end of file
Property changes on: trunk/rkward/rkward/plugins/distributions/tests/jb_test.php
___________________________________________________________________
Name: svn:executable
+ *
Added: trunk/rkward/rkward/plugins/distributions/tests/jb_test.rkh
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tests/jb_test.rkh (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/tests/jb_test.rkh 2007-09-30 17:00:24 UTC (rev 2010)
@@ -0,0 +1,24 @@
+<!DOCTYPE rkhelp>
+<document>
+ <summary>
+ This plugin calculates a Jarque-Bera chi-squared statistic for a variable x and tests against the null hypothesis of normality
+ </summary>
+
+ <usage>
+ Select one or more numeric variables to test against normality. An individual test is run for each one of them. The output consists of the JB chi-squared statistic with 2 degrees of freedom and its correspondent p-value.
+
+ The statistic's distribution is asynthotic, so this test performs better when working with big samples.
+
+ Make sure the data does not contain NAs, as this will usually prevent the test from succeeding.
+ </usage>
+
+ <settings>
+ <setting id="x">Select the data to be computed (one or more variables). The vectors need to be numeric and can be of different length. They must not contain NAs.</setting>
+ <setting id="length">Select if you want to include the number of observations in the output. (Default: YES)</setting>
+ </settings>
+ <related>
+ <ul>
+ <li><link href="rkward://rhelp/jarque.bera.test"/></li>
+ </ul>
+ </related>
+</document>
Added: trunk/rkward/rkward/plugins/distributions/tests/jb_test.xml
===================================================================
--- trunk/rkward/rkward/plugins/distributions/tests/jb_test.xml (rev 0)
+++ trunk/rkward/rkward/plugins/distributions/tests/jb_test.xml 2007-09-30 17:00:24 UTC (rev 2010)
@@ -0,0 +1,23 @@
+<!DOCTYPE rkplugin>
+
+<!-- This is the Jarque-Bera test for Normality -->
+
+<document>
+ <code file="jb_test.php"/>
+ <help file="jb_test.rkh" />
+ <dialog label="Jarque-Bera Normality Test">
+ <row>
+ <column>
+ <varselector id="vars"/>
+ </column>
+ <column>
+ <varslot type="numeric" multi="true" id="x" source="vars" required="true" label="variable(s):"/>
+ <checkbox id="length" label="Show Length" value_unchecked="0" value="1" checked="true" />
+ <text>
+ Note: Objects must not contain NAs
+ </text>
+ <stretch/>
+ </column>
+ </row>
+ </dialog>
+</document>
Property changes on: trunk/rkward/rkward/plugins/distributions/tests/jb_test.xml
___________________________________________________________________
Name: svn:executable
+ *
Modified: trunk/rkward/rkward/plugins/under_development.pluginmap
===================================================================
--- trunk/rkward/rkward/plugins/under_development.pluginmap 2007-09-30 16:27:05 UTC (rev 2009)
+++ trunk/rkward/rkward/plugins/under_development.pluginmap 2007-09-30 17:00:24 UTC (rev 2010)
@@ -3,6 +3,7 @@
<document base_prefix="" namespace="rkward">
<components>
<component type="standard" id="simple_anova" file="simple_anova/description.xml" label="Simple Anova" />
+ <component type="standard" id="jb_test" file="distributions/tests/jb_test.xml" label="Jarque-Bera Normality Test" />
</components>
<hierarchy>
@@ -18,44 +19,9 @@
<menu id="plots" label="Plots" index="5">
</menu>
<menu id="distributions" label="Distributions" index="7">
- <menu id="univariate_continuous_distributions" label="Univariate continuous distributions" index="2">
- <menu id="beta_distribution" label="Beta">
- </menu>
- <menu id="chi_squared_distribution" label="Chi-squared">
- </menu>
- <menu id="exponential_distribution" label="Exponential">
- </menu>
- <menu id="f_distribution" label="F">
- </menu>
- <menu id="gamma_distribution" label="Gamma">
- </menu>
- <menu id="logistic_distribution" label="Logistic">
- </menu>
- <menu id="log_normal_distribution" label="Log Normal">
- </menu>
- <menu id="normal_distribution" label="Normal">
- </menu>
- <menu id="t_distribution" label="t">
- </menu>
- <menu id="uniform_distribution" label="Uniform">
- </menu>
- <menu id="weibull_distribution" label="Weibull">
- </menu>
+ <menu id="distribution_analysis" label="Distribution Analysis" index="0">
+ <entry component="jb_test" label="Jarque-Bera Normality Test"/>
</menu>
- <menu id="univariate_discrete_distributions" label="Univariate discrete distributions" index="2">
- <menu id="binomial_distribution" label="Binomial" index="0">
- </menu>
- <menu id="geometric_distribution" label="Geometric" index="1">
- </menu>
- <menu id="hypergeometric_distribution" label="Hypergeometric">
- </menu>
- <menu id="negative_binomial_distribution" label="Negative Binomial">
- </menu>
- <menu id="poisson_distribution" label="Poisson">
- </menu>
- <menu id="wilcoxon_distribution" label="Wilcoxon">
- </menu>
- </menu>
</menu>
</hierarchy>
</document>
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