[rkward-cvs] SF.net SVN: rkward-code:[4892] branches/external_plugins/rk.power/inst/ rkward/rkwarddev_power_plugin_script.R
tfry at users.sf.net
tfry at users.sf.net
Sat Oct 11 18:49:46 UTC 2014
Revision: 4892
http://sourceforge.net/p/rkward/code/4892
Author: tfry
Date: 2014-10-11 18:49:45 +0000 (Sat, 11 Oct 2014)
Log Message:
-----------
Some more help fragments.
Don't show df num and df den hints for chi-sq test.
Meik, I have modified the df den hint as explained on the list. Hope that is ok with you.
Modified Paths:
--------------
branches/external_plugins/rk.power/inst/rkward/rkwarddev_power_plugin_script.R
Modified: branches/external_plugins/rk.power/inst/rkward/rkwarddev_power_plugin_script.R
===================================================================
--- branches/external_plugins/rk.power/inst/rkward/rkwarddev_power_plugin_script.R 2014-10-11 15:25:39 UTC (rev 4891)
+++ branches/external_plugins/rk.power/inst/rkward/rkwarddev_power_plugin_script.R 2014-10-11 18:49:45 UTC (rev 4892)
@@ -56,14 +56,15 @@
"Chi-squared test"=c(val="pwr.chisq.test"),
"Proportion tests"=c(val="pwr.p.test"),
"Mean of a normal distribution (known variance)"=c(val="pwr.norm.test")
- ), id.name="drp_pwr_stat")
+ ), help="Specify the statistical method to perform power estimation for", id.name="drp_pwr_stat")
pwr.hypothesis.drop <- rk.XML.dropdown("Using test hypothesis",
options=list(
"Two-sided"=c(val="two.sided", chk=TRUE),
"First is greater"=c(val="greater"),
"Second is greater"=c(val="less")
- ),
+ ), help="Specify the hypothesis to use. Note that for the one-sided hypothesis \"first is greater\",
+ a positive effect size is expected. For \"second is greater\", a negative effect size is expected.",
id.name="drp_pwr_hypothesis")
pwr.txt.hypothesis.neg <- rk.XML.text("Hypothesis probably expects a negative effect size!", id.name="pwr_txt_hypothesis_neg", type="warning")
pwr.txt.hypothesis.pos <- rk.XML.text("Hypothesis probably expects a positive effect size!", id.name="pwr_txt_hypothesis_pos", type="warning")
@@ -71,7 +72,8 @@
pwr.effect.etasq.rad <- rk.XML.radio(label="Provided effect size", options=list(
"Cohen's f"=c(val="f", chk=TRUE),
"Eta squared"=c(val="e2")
- ), id.name="rad_effct_eta")
+ ), help="Only shown where applicable. Allows you to select, whether to specify the effect size as Cohen's f, or as Eta squared.",
+ id.name="rad_effct_eta")
pwr.type.drop <- rk.XML.dropdown("Samples",
options=list(
@@ -79,7 +81,7 @@
"Two samples (different sizes)"=c(val="two.sample.diff"), # pwr.t2n.test
"Single sample (test against constant)"=c(val="one.sample"),
"Paired samples"=c(val="paired")
- ),
+ ), help="Only enabled where applicable. Specify the nature of samples used in the test. For samples of different sizes, only one sample size can be estimated.",
id.name="drp_pwr_type")
pwr.proptype.drop <- rk.XML.dropdown("Samples",
@@ -87,15 +89,20 @@
"Two samples (equal sizes)"=c(val="two.sample.same", chk=TRUE), # pwr.2p.test
"Two samples (different sizes)"=c(val="two.sample.diff"), # pwr.2p2n.test
"One sample"=c(val="one.sample") # pwr.p.test
- ),
+ ), help=FALSE, # In the help file, same as t.test dropdown
id.name="drp_pwr_proptype")
-pwr.input.power <- rk.XML.spinbox(label="Power", min=0, max=1, initial=0.8)
-pwr.input.df <- rk.XML.spinbox(label="Degrees of freedom", id.name="pwr_spin_df", min=1, real=FALSE, initial=30)
-pwr.input.dfu <- rk.XML.spinbox(label="Degrees of freedom for numerator", id.name="pwr_spin_dfu", min=1, real=FALSE, initial=30)
-pwr.input.dfv <- rk.XML.spinbox(label="Degrees of freedom for denominator", id.name="pwr_spin_dfv", min=1, real=FALSE, initial=30)
+pwr.input.power <- rk.XML.spinbox(label="Power", min=0, max=1, initial=0.8, help="Targetted power of test (1 minus Type II error probability)")
+pwr.input.df <- rk.XML.spinbox(label="Degrees of freedom", id.name="pwr_spin_df", min=1, real=FALSE, initial=30,
+ help="Only shown for chi-square statistics: Targetted degrees of freedom. As a reminder, this is (rows − 1)×(columns − 1) for a test of independence,
+ and (cells − 1) for a test of goodness of fit.")
+pwr.input.dfu <- rk.XML.spinbox(label="Degrees of freedom for numerator", id.name="pwr_spin_dfu", min=1, real=FALSE, initial=30,
+ help="Only shown for general linear model: Targetted numerator degrees of freedom. As a reminder, this is the number of parameters to estimate, or number of groups/samples minus 1.")
+pwr.input.dfv <- rk.XML.spinbox(label="Degrees of freedom for denominator", id.name="pwr_spin_dfv", min=1, real=FALSE, initial=30,
+ help="Only shown for general linear model: Available denominator degrees of freedom / degrees of freedom of the error term.
+ As a reminder, this is the total number of observations minus numerator degrees of freedom minus 1, or total number of observations minus number of groups/samples.")
pwr.txt.dfu <- rk.XML.text("df<sub>num</sub>: k − 1", id.name="pwr_txt_dfu")
-pwr.txt.dfv <- rk.XML.text("df<sub>den</sub>: k × (n − 1)", id.name="pwr_txt_dfv")
+pwr.txt.dfv <- rk.XML.text("df<sub>den</sub>: N − k", id.name="pwr_txt_dfv")
pwr.input.sample <- rk.XML.spinbox(label="Sample size", id.name="pwr_spin_sample0", min=1, real=FALSE, initial=30)
pwr.input.sample.n1 <- rk.XML.spinbox(label="First sample size", id.name="pwr_spin_sample1", min=1, real=FALSE, initial=30)
@@ -230,7 +237,9 @@
rk.XML.connect(governor=pwr.gov.meth.df, client=pwr.frame.df, set="visible"),
rk.XML.connect(governor=pwr.gov.meth.chisq, client=pwr.input.df, set="visible"),
rk.XML.connect(governor=pwr.gov.meth.f2test, client=pwr.input.dfu, set="visible"),
+ rk.XML.connect(governor=pwr.gov.meth.f2test, client=pwr.txt.dfu, set="visible"),
rk.XML.connect(governor=pwr.gov.meth.f2test, client=pwr.input.dfv, set="visible"),
+ rk.XML.connect(governor=pwr.gov.meth.f2test, client=pwr.txt.dfv, set="visible"),
pwr.gov.efct.d <- rk.XML.convert(sources=list(pwr.gov.meth.ttest, pwr.gov.meth.norm), mode=c(or=""), id.name="pwr_lgc_efct_d"),
rk.XML.connect(governor=pwr.gov.efct.d, client=pwr.txt.effect.d, set="visible"),
More information about the rkward-tracker
mailing list