[rkward-cvs] SF.net SVN: rkward:[4426] branches/external_plugins/rk.ANOVA
m-eik at users.sourceforge.net
m-eik at users.sourceforge.net
Fri Nov 9 14:40:33 UTC 2012
Revision: 4426
http://rkward.svn.sourceforge.net/rkward/?rev=4426&view=rev
Author: m-eik
Date: 2012-11-09 14:40:32 +0000 (Fri, 09 Nov 2012)
Log Message:
-----------
rk.ANOVA: finishing plugin tests
Modified Paths:
--------------
branches/external_plugins/rk.ANOVA/ChangeLog
branches/external_plugins/rk.ANOVA/DESCRIPTION
branches/external_plugins/rk.ANOVA/inst/rkward/rk.ANOVA.pluginmap
branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R
branches/external_plugins/rk.ANOVA/inst/rkward/tests/testsuite.R
Added Paths:
-----------
branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkcommands.R
branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkout
branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkcommands.R
branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkout
Modified: branches/external_plugins/rk.ANOVA/ChangeLog
===================================================================
--- branches/external_plugins/rk.ANOVA/ChangeLog 2012-11-09 11:34:34 UTC (rev 4425)
+++ branches/external_plugins/rk.ANOVA/ChangeLog 2012-11-09 14:40:32 UTC (rev 4426)
@@ -1,6 +1,6 @@
ChangeLog for package rk.ANOVA
-changes in version 0.01-14 (2012-11-08)
+changes in version 0.01-14 (2012-11-09)
added:
- plugin tests
changed:
Modified: branches/external_plugins/rk.ANOVA/DESCRIPTION
===================================================================
--- branches/external_plugins/rk.ANOVA/DESCRIPTION 2012-11-09 11:34:34 UTC (rev 4425)
+++ branches/external_plugins/rk.ANOVA/DESCRIPTION 2012-11-09 14:40:32 UTC (rev 4426)
@@ -1,18 +1,18 @@
Package: rk.ANOVA
Type: Package
-Title: RKWard GUI to conduct ANOVAs (using the ez package), pairwise
- t-Tests and plot interactions.
+Title: RKWard GUI to conduct ANOVAs (using the ez package), pairwise t-Tests and plot
+ interactions.
Version: 0.01-14
-Date: 2012-11-08
+Date: 2012-11-09
Author: Meik Michalke <meik.michalke at hhu.de>
Maintainer: Meik Michalke <meik.michalke at hhu.de>
Depends: rkward (>= 0.5.6)
Suggests: ez, sciplot
Enhances: rkward
-Description: RKWard GUI to conduct ANOVAs (using the ez package),
- pairwise t-Tests and plot interactions.
+Description: RKWard GUI to conduct ANOVAs (using the ez package), pairwise t-Tests and
+ plot interactions.
License: GPL (>= 3)
LazyLoad: yes
URL: http://rkward.sf.net
-Authors at R: person(given="Meik", family="Michalke",
- email="meik.michalke at hhu.de", role=c("aut", "cre"))
+Authors at R: person(given="Meik", family="Michalke", email="meik.michalke at hhu.de",
+ role=c("aut", "cre"))
Modified: branches/external_plugins/rk.ANOVA/inst/rkward/rk.ANOVA.pluginmap
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/rk.ANOVA.pluginmap 2012-11-09 11:34:34 UTC (rev 4425)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/rk.ANOVA.pluginmap 2012-11-09 14:40:32 UTC (rev 4426)
@@ -12,7 +12,7 @@
shortinfo="RKWard GUI to conduct ANOVAs (using the ez package), pairwise t-Tests and plot interactions."
longinfo="RKWard GUI to conduct ANOVAs (using the ez package), pairwise t-Tests and plot interactions."
version="0.01-14"
- releasedate="2012-11-08"
+ releasedate="2012-11-09"
url="http://rkward.sf.net"
license="GPL (>= 3)"
>
Modified: branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R 2012-11-09 11:34:34 UTC (rev 4425)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/rkwarddev_ANOVA_plugin_script.R 2012-11-09 14:40:32 UTC (rev 4426)
@@ -5,7 +5,7 @@
local({
# set the output directory to overwrite the actual plugin
-#output.dir <- tempdir()
+output.dir <- tempdir()
overwrite <- TRUE
require(rkwarddev)
Added: branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkcommands.R
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkcommands.R (rev 0)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkcommands.R 2012-11-09 14:40:32 UTC (rev 4426)
@@ -0,0 +1,28 @@
+local({
+## Vorbereiten
+suppressMessages(require(ez))
+## Berechne
+ anova.results <- ezANOVA(
+ data=anova.data,
+ dv=.(response),
+ wid=.(subjects),
+ within=.(condition),
+ detailed=TRUE,
+ return_aov=TRUE)
+
+## Drucke Ergebnisse
+rk.header("ANOVA results")
+rk.print(anova.results[["ANOVA"]])
+ if("Mauchly's Test for Sphericity" %in% names(anova.results)){
+ rk.header("Mauchly's Test for Sphericity", level=3)
+ rk.print(anova.results[["Mauchly's Test for Sphericity"]])
+ } else {}
+ if("Sphericity Corrections" %in% names(anova.results)){
+ rk.header("Sphericity Corrections", level=3)
+ rk.print(anova.results[["Sphericity Corrections"]])
+ } else {}
+ if("Levene's Test for Homgeneity" %in% names(anova.results)){
+ rk.header("Levene's Test for Homgeneity", level=3)
+ rk.print(anova.results[["Levene's Test for Homgeneity"]])
+ } else {}
+})
Added: branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkout
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkout (rev 0)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/ANOVA.rkout 2012-11-09 14:40:32 UTC (rev 4426)
@@ -0,0 +1,70 @@
+<h1>ANOVA results</h1>
+DATE<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>Effect </th>
+ <th>DFn </th>
+ <th>DFd </th>
+ <th>SSn </th>
+ <th>SSd </th>
+ <th>F </th>
+ <th>p </th>
+ <th>p<.05 </th>
+ <th>ges</th>
+ </tr>
+<tr>
+<td class=firstcolumn>1
+</td>
+<td class=cellinside>(Intercept)
+</td>
+<td class=cellinside>1
+</td>
+<td class=cellinside>29
+</td>
+<td class=cellinside>547215
+</td>
+<td class=cellinside>4495
+</td>
+<td class=cellinside>3530
+</td>
+<td class=cellinside>7.6e-32
+</td>
+<td class=cellinside>*
+</td>
+<td class=cellinside>0.99
+</td></tr>
+
+<tr>
+<td class=firstcolumn>2
+</td>
+<td class=cellinside>condition
+</td>
+<td class=cellinside>1
+</td>
+<td class=cellinside>29
+</td>
+<td class=cellinside>150000
+</td>
+<td class=cellinside> 0
+</td>
+<td class=cellinside> Inf
+</td>
+<td class=cellinside>0.0e+00
+</td>
+<td class=cellinside>*
+</td>
+<td class=cellinside>0.97
+</td></tr>
+
+ </tbody>
+</table>
+ </td></table>
+ <br>
Added: branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkcommands.R
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkcommands.R (rev 0)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkcommands.R 2012-11-09 14:40:32 UTC (rev 4426)
@@ -0,0 +1,19 @@
+local({
+## Berechne
+ num.cases <- nrow(sample.data.frame)
+ anova.conditions <- c("cond1", "cond2")
+ num.conditions <- length(anova.conditions)
+
+ anova.data <- data.frame(
+ response=c(
+ sample.data.frame[["cond1"]],
+ sample.data.frame[["cond2"]]),
+ condition=factor(rep(anova.conditions, each=num.cases)),
+ subjects=factor(rep(sample.data.frame[["subjects"]], times=num.conditions)),
+ stringsAsFactors=FALSE)
+
+## Drucke Ergebnisse
+rk.header("Prepare within subject data results")
+ rk.print(summary(anova.data))
+.GlobalEnv$anova.data <- anova.data
+})
Added: branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkout
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkout (rev 0)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/tests/rk.ANOVA/prepare.data.rkout 2012-11-09 14:40:32 UTC (rev 4426)
@@ -0,0 +1,50 @@
+<h1>Prepare within subject data results</h1>
+DATE<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> response</th><th>condition</th><th> subjects</th> </tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>Min. : 31.0 </td>
+<td class=cellinside>cond1:30 </td>
+<td class=cellinside>1 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>1st Qu.: 45.8 </td>
+<td class=cellinside>cond2:30 </td>
+<td class=cellinside>2 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>Median : 95.5 </td>
+<td class=cellinside>NA </td>
+<td class=cellinside>3 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>Mean : 95.5 </td>
+<td class=cellinside>NA </td>
+<td class=cellinside>4 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>3rd Qu.:145.2 </td>
+<td class=cellinside>NA </td>
+<td class=cellinside>5 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>Max. :160.0 </td>
+<td class=cellinside>NA </td>
+<td class=cellinside>6 : 2 </td></tr>
+
+<tr><td class=firstcolumn></td>
+<td class=cellinside>NA </td>
+<td class=cellinside>NA </td>
+<td class=cellinside>(Other):48 </td></tr>
+
+ </tbody>
+</table>
+ </td></table>
+ <br>
Modified: branches/external_plugins/rk.ANOVA/inst/rkward/tests/testsuite.R
===================================================================
--- branches/external_plugins/rk.ANOVA/inst/rkward/tests/testsuite.R 2012-11-09 11:34:34 UTC (rev 4425)
+++ branches/external_plugins/rk.ANOVA/inst/rkward/tests/testsuite.R 2012-11-09 14:40:32 UTC (rev 4426)
@@ -13,11 +13,13 @@
sample.data.frame <- data.frame(
subjects=1:30, cond1=31:60, cond2=131:160
)
+ assign("sample.data.frame", sample.data.frame, envir=globalenv())
},
function(){
## if some tests depend on results of earlier tests,
## you can store those in a list in .GlobalEnv
earlier.results <<- list()
+ rk.sync.global ()
}
),
## the tests
@@ -26,10 +28,12 @@
new("RKTest", id="prepare.data", call=function(){
rk.call.plugin ("rkward::cmp_ANOVAPreparewithinsbjctdt", chc_Atmtccss.state="", inp_Nmfrdpnd.text="response", inp_Nmfrxprm.text="condition", svb_Svrsltst.active="1", svb_Svrsltst.objectname="anova.data", svb_Svrsltst.parent=".GlobalEnv", vrsl_Btwnsbjc.available="", vrsl_Cssbjctd.available="sample.data.frame[[\"subjects\"]]", vrsl_Dpndntrs.available="sample.data.frame[[\"cond1\"]]\nsample.data.frame[[\"cond2\"]]", vrsl_Slctllvr.available="sample.data.frame", submit.mode="submit")
## to store these results:
- earlier.results$anova.data <<- anova.data
+ earlier.results$anova.data <<- anova.data
+ rk.sync.global ()
}),
new("RKTest", id="ANOVA", call=function(){
- anova.data <- earlier.results$anova.data
+ anova.data <<- earlier.results$anova.data
+ rk.sync.global ()
rk.call.plugin ("rkward::cmp_ANOVAANOVA", chc_Rtrnvbjc.state="true", chc_Shwsmsfs.state="true", chc_Spprsspc.state="true", drp_Htrscdst.string="false", drp_Smsfsqrs.string="2", rad_Design.string="within", svb_Svrsltst.active="0", svb_Svrsltst.objectname="anova.results", svb_Svrsltst.parent=".GlobalEnv", vrsl_Cssbjctd.available="anova.data[[\"subjects\"]]", vrsl_Dpndntvr.available="anova.data[[\"response\"]]", vrsl_Dtmstbdt.available="anova.data", vrsl_Obsrvdvr.available="", vrsl_Wthnsbjc.available="anova.data[[\"condition\"]]", submit.mode="submit")
})
),
@@ -37,7 +41,7 @@
postCalls = list(
function(){
## e.g. remove created objects
- rm(list=c("earlier.results"), envir=globalenv())
+ rm(list=c("earlier.results","sample.data.frame"), envir=globalenv())
}
)
)
\ No newline at end of file
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