[rkward-cvs] SF.net SVN: rkward:[2584] trunk/rkward/tests

m-eik at users.sourceforge.net m-eik at users.sourceforge.net
Wed Jul 29 09:10:13 UTC 2009


Revision: 2584
          http://rkward.svn.sourceforge.net/rkward/?rev=2584&view=rev
Author:   m-eik
Date:     2009-07-29 09:10:13 +0000 (Wed, 29 Jul 2009)

Log Message:
-----------
new version of irt tests: all dialogs included (results).

Added Paths:
-----------
    trunk/rkward/tests/item_response_theory/
    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.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

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+estimates.2pl <<- ltm(WIRS ~ z1 * z2)
+## Print result
+rk.header ("2PL parameter estimation")
+rk.print (estimates.2pl)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_2pl", settings="constraint.available=\nghk_2pl.real=15.000000\ninteract.state=TRUE\nirtparam.state=TRUE\niterem.real=40.000000\niterqn_2pl.real=150.000000\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=WIRS", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>2PL parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Call:<br>ltm(formula = WIRS ~ z1 * z2)<br><br>Coefficients:<br>        (Intercept)     z1      z2   z1:z2<br>Item 1       -1.097  0.271  -3.317  -1.160<br>Item 2        0.944  1.091   2.173   2.955<br>Item 3       -1.458  1.811  -0.314   0.543<br>Item 4       -1.465  1.116   0.556   0.269<br>Item 5       -1.083  2.133  -0.466   1.147<br>Item 6       -2.753  1.698  -0.935   1.072<br><br>Log.Lik: -3293.212<br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+estimates.3pl <<- tpm(LSAT)
+## Print result
+rk.header ("3PL parameter estimation")
+rk.print (estimates.3pl)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_3pl", settings="constraint.available=\nepshess.real=0.00100000\nghk_3pl.real=21.000000\nirtparam.state=TRUE\niterqn_3pl.real=1000.000000\nmaxguess.real=1.00000000\nnaaction.state=\noptimeth.string=BFGS\noptimizer.string=optim\nstartval.string=NULL\ntype.state=\nverbose.state=\nx.available=LSAT", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>3PL parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Call:<br>tpm(data = LSAT)<br><br>Coefficients:<br>        Gussng  Dffclt  Dscrmn<br>Item 1   0.037  -3.296   0.829<br>Item 2   0.078  -1.145   0.760<br>Item 3   0.012  -0.249   0.902<br>Item 4   0.035  -1.766   0.701<br>Item 5   0.053  -2.990   0.666<br><br>Log.Lik: -2466.66<br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.messages.txt
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.messages.txt	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.messages.txt	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+Warning in LRtest.Rm(estimates.pcm, se = TRUE) :
+  
+The following items were excluded due to inappropriate response patterns within subgroups: 

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,14 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+## Print result
+rk.header("Andersen's LR test")
+
+rk.graph.on()
+lr.res <- LRtest(estimates.pcm, se=TRUE)
+try(plotGOF(lr.res, conf=list(), ctrline=list()))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::eRm_plotLR", settings="annotation.string=items\nchk_confint.state=conf\nchk_ctrline.state=ctrline\nchk_se.state=se\ninp_items.text=\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nrad_splitcr.string=median\nspin_abilfrom.real=-3.00000000\nspin_abilto.real=3.00000000\nspin_confint.real=0.95000000\nspin_ctrline.real=0.95000000\nx.available=estimates.pcm", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Andersen_LR_plot.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,8 @@
+<h1>Andersen's LR test</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>
+<h2>Messages, warnings, or errors:</h2>
+<pre>Warning message: Persons with median raw scores are assigned to the lower raw score group!
+I2 I4 I1 I5 
+Full and subgroup models are estimated without these items!
+</pre>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+cronalpha.res <- cronbach.alpha(LSAT, CI=TRUE, B=500)
+## Print result
+rk.header ("Cronbach's alpha (LSAT)")
+rk.print (cronalpha.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::ltm_cronbach_alpha", settings="chk_bsci.state=bsci\nchk_na.state=\nchk_standard.state=\nspin_ci.real=0.95000000\nspin_samples.real=500.000000\nx.available=LSAT", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Cronbach's alpha (LSAT)</h1>
+DATE<br>
+<p class='character'><br>Cronbach's alpha for the 'LSAT' data-set<br><br>Items: 5<br>Sample units: 1000<br>alpha: 0.295<br><br>Bootstrap 95% CI based on 500 samples<br> 2.5% 97.5% <br>0.217 0.357 <br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+estimates.grm <<- grm(Environment)
+## Print result
+rk.header ("GRM parameter estimation")
+rk.print (estimates.grm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_grm", settings="constraint.state=\ndig_abbrv.real=6.000000\nghk_grm.real=21.000000\nhessian.state=\nirtparam.state=TRUE\niterqn_grm.real=150.000000\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=Environment", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>GRM parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Call:<br>grm(data = Environment)<br><br>Coefficients:<br>              Extrmt1  Extrmt2  Dscrmn<br>LeadPetrol      0.487    2.584   1.378<br>RiverSea        1.058    2.499   2.341<br>RadioWaste      0.779    1.793   3.123<br>AirPollution    0.457    2.157   3.283<br>Chemicals       0.809    1.868   2.947<br>Nuclear         0.073    1.427   1.761<br><br>Log.Lik: -1090.404<br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+estimates.lltm <<- LLTM(lltmdat1, mpoints=2)
+## Print result
+rk.header ("LLTM  parameter estimation")
+rk.print (estimates.lltm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_lltm", settings="design.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.000000\nstderr.state=se\nsumnull.state=sum0\nx.available=lltmdat1", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>LLTM  parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Results of LLTM estimation: <br><br>Call:  LLTM(X = lltmdat1, mpoints = 2) <br><br>Conditional log-likelihood: -1511.226 <br>Number of iterations: 15 <br>Number of parameters: 15 <br><br>Basic Parameters eta:<br>             eta 1     eta 2      eta 3      eta 4     eta 5     eta 6<br>Estimate 0.1821474 0.3242218 -0.7037170 -0.2474764 0.4912647 0.8103688<br>Std.Err  0.1489976 0.1492935  0.1579881  0.1509874 0.1502483 0.1539275<br>             eta 7     eta 8      eta 9    eta 10    eta 11     eta 12<br>Estimate 0.6857677 0.2531215 -0.9533281 0.2531215 0.1348453 -0.8399645<br>Std.Err  0.1521968 0.1490863  0.1640952 0.1490863 0.1490040  0.1611123<br>             eta 13    eta 14     eta 15<br>Estimate -1.3251124 0.5153236 0.24488122<br>Std.Err   0.1764835 0.1504402 0.08206656<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+estimates.lpcm <<- LPCM(lpcmdat, mpoints=2, groupvec=G)
+## Print result
+rk.header ("LPCM  parameter estimation")
+rk.print (estimates.lpcm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_lpcm", settings="design.string=auto\netastart.string=NULL\ngroup_vec.available=G\ngroups.string=contrasts\nmpoints.real=2.000000\nstderr.state=se\nsumnull.state=sum0\nx.available=lpcmdat", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>LPCM  parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Results of LPCM estimation: <br><br>Call:  LPCM(X = lpcmdat, mpoints = 2, groupvec = G) <br><br>Conditional log-likelihood: -103.7225 <br>Number of iterations: 28 <br>Number of parameters: 10 <br><br>Basic Parameters eta:<br>             eta 1      eta 2      eta 3      eta 4      eta 5      eta 6<br>Estimate 0.4121568 -0.2989829 -0.1345081 0.03489372 -0.4288746 -0.2864050<br>Std.Err  0.3965853  0.4942288  0.4091777 0.39432800  0.4784495  0.4488167<br>             eta 7     eta 8      eta 9    eta 10<br>Estimate 0.1641184 0.1007373 -0.2014872 1.0940383<br>Std.Err  0.3992024 0.4351064  0.2608237 0.3870405<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+estimates.lrsm <<- LRSM(lrsmdat, mpoints=2, se=FALSE, sum0=FALSE)
+## Print result
+rk.header ("LRSM  parameter estimation")
+rk.print (estimates.lrsm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_lrsm", settings="design.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.000000\nstderr.state=\nsumnull.state=\nx.available=lrsmdat", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>LRSM  parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Results of LRSM estimation: <br><br>Call:  LRSM(X = lrsmdat, mpoints = 2, se = FALSE, sum0 = FALSE) <br><br>Conditional log-likelihood: -109.3157 <br>Number of iterations: 11 <br>Number of parameters: 5 <br><br>Basic Parameters eta:<br>               eta 1     eta 2     eta 3       eta 4     eta 5<br>Estimate -0.04589654 0.1139302 0.1974475 -0.04155719 0.3460155<br>Std.Err           NA        NA        NA          NA        NA<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+estimates.pcm <<- PCM(pcmdat)
+## Print result
+rk.header ("PCM  parameter estimation")
+rk.print (estimates.pcm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_pcm", settings="design.string=auto\netastart.string=NULL\nstderr.state=se\nsumnull.state=sum0\nx.available=pcmdat", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>PCM  parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Results of PCM estimation: <br><br>Call:  PCM(X = pcmdat) <br><br>Conditional log-likelihood: -121.0979 <br>Number of iterations: 16 <br>Number of parameters: 19 <br><br>Basic Parameters eta:<br>             eta 1      eta 2     eta 3      eta 4     eta 5      eta 6<br>Estimate 0.9368481 -0.3303217 0.2508642 0.06501281 -1.431592 -0.2239408<br>Std.Err  0.5652103  0.8094045 0.5254583 0.57979232  1.023935  0.5609932<br>               eta 7      eta 8     eta 9     eta 10    eta 11     eta 12<br>Estimate -0.07447574 -0.8782791 0.4229828 -0.2634983 0.1395695 -0.9803568<br>Std.Err   0.56794592  0.7839341 0.5467279  0.6888136 0.6497051  0.7880102<br>             eta 13    eta 14    eta 15    eta 16    eta 17    eta 18<br>Estimate 0.09620567 0.4030339 -0.586106 0.5041350 1.0995166 0.8493303<br>Std.Err  0.58461909 0.5788295  0.826411 0.6344945 0.5869565 0.5044311<br>             eta 19<br>Estimate -0.2980869<br>Std.Err   0.7005384<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+estimates.rsm <<- RSM(rsmdat)
+## Print result
+rk.header ("RSM  parameter estimation")
+rk.print (estimates.rsm)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_rsm", settings="design.string=auto\netastart.string=NULL\nstderr.state=se\nsumnull.state=sum0\nx.available=rsmdat", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>RSM  parameter estimation</h1>
+DATE<br>
+<p class='character'><br>Results of RSM estimation: <br><br>Call:  RSM(X = rsmdat) <br><br>Conditional log-likelihood: -107.5618 <br>Number of iterations: 11 <br>Number of parameters: 7 <br><br>Basic Parameters eta:<br>              eta 1      eta 2       eta 3     eta 4     eta 5     eta 6<br>Estimate -0.3051523 -0.2558638 -0.06730786 0.1601342 0.4442440 0.1673936<br>Std.Err   0.2053696  0.2028161  0.19650733 0.1965178 0.2084872 0.4596568<br>              eta 7<br>Estimate -0.1379066<br>Std.Err   0.7324951<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+estimates.rasch <<- rasch(LSAT)
+## Print result
+rk.header ("Rasch parameter estimation")
+rk.print (estimates.rasch$coefficients)
+})
+.rk.rerun.plugin.link(plugin="rkward::par_est_rasch", settings="constraint.available=\nghk_rasch.real=21.000000\nirtparam.state=TRUE\niterqn_rasch.real=150.000000\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=LSAT", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,17 @@
+<h1>Rasch parameter estimation</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>beta.i</th><th>beta</th> </tr>
+ <tr><td class=firstcolumn>Item 1</td><td class=cellinside>2.73</td><td class=cellinside>0.76</td></tr>
+ <tr><td class=firstcolumn>Item 2</td><td class=cellinside>1.00</td><td class=cellinside>0.76</td></tr>
+ <tr><td class=firstcolumn>Item 3</td><td class=cellinside>0.24</td><td class=cellinside>0.76</td></tr>
+ <tr><td class=firstcolumn>Item 4</td><td class=cellinside>1.31</td><td class=cellinside>0.76</td></tr>
+ <tr><td class=firstcolumn>Item 5</td><td class=cellinside>2.10</td><td class=cellinside>0.76</td></tr>
+ 
+	</tbody>
+</table>
+ </td></table>
+ <br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.messages.txt
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.messages.txt	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.messages.txt	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,7 @@
+Warning in Waldtest.Rm(estimates.rsm) :
+  
+The following items were excluded due to inappropriate response patterns within subgroups: 
+Warning messages:
+1: In sqrt(diag(solve(parest$hessian))) : NaNs produced
+2: In sqrt(diag(lres$W %*% solve(parest$hessian) %*% t(lres$W))) :
+  NaNs produced

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+waldtest.res <- Waldtest(estimates.rsm)
+## Print result
+rk.header ("Wald test (estimates.rsm)")
+rk.print (waldtest.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::eRm_waldtest", settings="rad_splitcr.string=median\nx.available=estimates.rsm", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Wald_test.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,6 @@
+<h1>Wald test (estimates.rsm)</h1>
+DATE<br>
+<p class='character'><br>Wald test on item level (z-values):<br><br>           z-statistic p-value<br>beta I1.c1       0.388   0.698<br>beta I1.c2         NaN     NaN<br>beta I1.c3         NaN     NaN<br>beta I6.c1      -0.388   0.698<br>beta I6.c2         NaN     NaN<br>beta I6.c3         NaN     NaN<br></p><h2>Messages, warnings, or errors:</h2>
+<pre>I2 I3 I4 I5 
+Subgroup models are estimated without these items!
+</pre>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+GoFRasch.res <- GoF.rasch(estimates.rasch)
+## Print result
+rk.header ("Goodness of Fit for Rasch Models (estimates.rasch)")
+rk.print (GoFRasch.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::ltm_gof_rasch", settings="spin_samples.real=49.000000\nx.available=estimates.rasch", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.goodnes-of-fit_Rasch.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Goodness of Fit for Rasch Models (estimates.rasch)</h1>
+DATE<br>
+<p class='character'><br>Bootstrap Goodness-of-Fit using Pearson chi-squared<br><br>Call:<br>rasch(data = LSAT)<br><br>Tobs: 18.34 <br># data-sets: 50 <br>p-value: 0.86 <br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+itemfit.res <- item.fit(estimates.rasch)
+## Print result
+rk.header ("Item-fit statistics (estimates.rasch)")
+rk.print (itemfit.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::ltm_item_fit", settings="drop_sumgroups.string=median\nrad_pvalue.string=chi2\nspin_groups.real=10.000000\nx.available=estimates.rasch", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Item-fit statistics (estimates.rasch)</h1>
+DATE<br>
+<p class='character'><br>Item-Fit Statistics and P-values<br><br>Call:<br>rasch(data = LSAT)<br><br>Alternative: Items do not fit the model<br>Ability Categories: 10<br><br>          X^2 Pr(>X^2)<br>Item 1 4.0187    0.045<br>Item 2 1.3574    0.244<br>Item 3 0.9791   0.3224<br>Item 4 1.5937   0.2068<br>Item 5 2.4648   0.1164<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+personfit.res <- person.fit(estimates.rasch)
+## Print result
+rk.header ("Person-fit statistics (estimates.rasch)")
+rk.print (personfit.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::ltm_person_fit", settings="rad_hypot.string=less\nrad_pvalue.string=normal\nrad_resppat.string=observed\nx.available=estimates.rasch", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.person_fit_statistics.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Person-fit statistics (estimates.rasch)</h1>
+DATE<br>
+<p class='character'><br>Person-Fit Statistics and P-values<br><br>Call:<br>rasch(data = LSAT)<br><br>Alternative: Inconsistent response pattern under the estimated model<br><br>   Item 1 Item 2 Item 3 Item 4 Item 5      L0      Lz Pr(<Lz)<br>1       0      0      0      0      0 -3.9914 -1.1186  0.1317<br>2       0      0      0      0      1 -3.9467 -1.0917  0.1375<br>3       0      0      0      1      0 -4.7396 -2.0187  0.0218<br>4       0      0      0      1      1 -4.1206 -1.3376  0.0905<br>5       0      0      1      0      0 -5.8062 -3.2656  0.0005<br>6       0      0      1      0      1 -5.1872 -2.4767  0.0066<br>7       0      0      1      1      0 -5.9802 -3.3235  0.0004<br>8       0      0      1      1      1 -4.7717 -2.0310  0.0211<br>9       0      1      0      0      0 -5.0475 -2.3786  0.0087<br>10      0      1      0      0      1 -4.4284 -1.6664  0.0478<br>11      0      1      0      1      1 -4.0129 -1.3093  0.0952<br>12      0      1      1      0      1 -5.0795 -2.3238  0.0101<br>13      0      1      1      1      0 -5.8725 -3.0780   0.001<br>14      0      1      1      1      1 -4.0395 -1.4551  0.0728<br>15      1      0      0      0      0 -3.3161 -0.3545  0.3615<br>16      1      0      0      0      1 -2.6970  0.1827  0.5725<br>17      1      0      0      1      0 -3.4900 -0.6641  0.2533<br>18      1      0      0      1      1 -2.2815  0.3375  0.6321<br>19      1      0      1      0      0 -4.5566 -1.8032  0.0357<br>20      1      0      1      0      1 -3.3481 -0.6769  0.2492<br>21      1      0      1      1      0 -4.1411 -1.4312  0.0762<br>22      1      0      1      1      1 -2.3081  0.0190  0.5076<br>23      1      1      0      0      0 -3.7978 -0.9929  0.1604<br>24      1      1      0      0      1 -2.5894  0.0447  0.5178<br>25      1      1      0      1      0 -3.3823 -0.7095   0.239<br>26      1      1      0      1      1 -1.5494  0.6651   0.747<br>27      1      1      1      0      0 -4.4489 -1.7240  0.0424<br>28      1      1      1      0      1 -2.6160 -0.2431   0.404<br>29      1      1      1      1      0 -3.4089 -0.9182  0.1793<br>30      1      1      1      1      1 -0.8945  0.8407  0.7997<br><br></p>
\ No newline at end of file

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+## Print result
+rk.header("Two parameter logistic model plot")
+
+rk.graph.on()
+try(plot(estimates.2pl, type="ICC", items=c(1)))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_ltm", settings="annotation.string=annot\ninp_items.text=1\nplot_type.string=items\nplot_type_item.string=ICC\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_from.real=-3.80000000\nspin_to.real=3.80000000\nx.available=estimates.2pl", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_2PL.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Two parameter logistic model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+## Print result
+rk.header("Birnbaum three parameter model plot")
+
+rk.graph.on()
+try(plot(estimates.3pl, type="IIC", items=0))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_tpm", settings="annotation.string=annot\nplot_type.string=TIC\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_from.real=-3.80000000\nspin_to.real=3.80000000\nx.available=estimates.3pl", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_3PL.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Birnbaum three parameter model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+## Print result
+rk.header("Graded response model plot")
+
+rk.graph.on()
+try(plot(estimates.grm, type="ICC", items=c(6)))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_grm", settings="annotation.string=annot\ninp_items.text=6\nplot_type.string=items\nplot_type_item.string=ICC\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_categ.real=0.000000\nspin_from.real=-3.80000000\nspin_to.real=3.80000000\nx.available=estimates.grm", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_GRM.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Graded response model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+## Print result
+rk.header("Partial credit model plot")
+
+rk.graph.on()
+try(plotICC(estimates.pcm, item.subset=c(3:6), mplot=TRUE, ask=FALSE))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_pcm", settings="annotation.string=legend\nchk_ask.state=\nchk_mplot.state=mplot\ninp_items.text=3:6\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_abilfrom.real=-4.00000000\nspin_abilto.real=4.00000000\nspin_probfrom.real=0.00000000\nspin_probto.real=1.00000000\nx.available=estimates.pcm", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_PCM.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Partial credit model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(eRm)
+## Compute
+## Print result
+rk.header("Rating scale model plot")
+
+rk.graph.on()
+try(plotICC(estimates.rsm, item.subset=c(1:3), mplot=TRUE, ask=FALSE))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_rsm", settings="annotation.string=legend\nchk_ask.state=\nchk_mplot.state=mplot\ninp_items.text=1:3\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_abilfrom.real=-4.00000000\nspin_abilto.real=4.00000000\nspin_probfrom.real=0.00000000\nspin_probto.real=1.00000000\nx.available=estimates.rsm", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_RSM.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Rating scale model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,13 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+## Print result
+rk.header("Rasch model plot")
+
+rk.graph.on()
+try(plot(estimates.rasch, type="ICC", legend=TRUE))
+rk.graph.off()
+})
+.rk.rerun.plugin.link(plugin="rkward::plot_rasch", settings="annotation.string=legend\ninp_items.text=\nplot_type.string=items\nplot_type_item.string=ICC\nplotoptions.add_grid.state=0\nplotoptions.asp.real=0.00000000\nplotoptions.main.text=\nplotoptions.pointcolor.color.string=\nplotoptions.pointtype.string=\nplotoptions.sub.text=\nplotoptions.xaxt.state=\nplotoptions.xlab.text=\nplotoptions.xlog.state=\nplotoptions.xmaxvalue.text=\nplotoptions.xminvalue.text=\nplotoptions.yaxt.state=\nplotoptions.ylab.text=\nplotoptions.ylog.state=\nplotoptions.ymaxvalue.text=\nplotoptions.yminvalue.text=\nspin_from.real=-3.80000000\nspin_to.real=3.80000000\nx.available=estimates.rasch", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.plot_Rasch.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Rasch model plot</h1>
+DATE<br>
+<img src="graph.png" width="480" height="480"><br>

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkcommands.R	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkcommands.R	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,11 @@
+local({
+## Prepare
+  require(ltm)
+## Compute
+unidim.res <<- unidimTest(estimates.rasch)
+## Print result
+rk.header ("Unidimensionality check (estimates.rasch)")
+rk.print (unidim.res)
+})
+.rk.rerun.plugin.link(plugin="rkward::ltm_unidimensional", settings="spin_samples.real=100.000000\nx.available=estimates.rasch", label="Run again")
+.rk.make.hr()

Added: trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkout	                        (rev 0)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.unidimensional.rkout	2009-07-29 09:10:13 UTC (rev 2584)
@@ -0,0 +1,3 @@
+<h1>Unidimensionality check (estimates.rasch)</h1>
+DATE<br>
+<p class='character'><br>Unidimensionality Check using Modified Parallel Analysis<br><br>Call:<br>rasch(data = LSAT)<br><br>Matrix of tertachoric correlations<br>       Item 1 Item 2 Item 3 Item 4 Item 5<br>Item 1 1.0000 0.1703 0.2275 0.1072 0.0665<br>Item 2 0.1703 1.0000 0.1891 0.1111 0.1724<br>Item 3 0.2275 0.1891 1.0000 0.1867 0.1055<br>Item 4 0.1072 0.1111 0.1867 1.0000 0.2009<br>Item 5 0.0665 0.1724 0.1055 0.2009 1.0000<br><br>Alternative hypothesis: the second eigenvalue of the observed data is substantially larger <br>			than the second eigenvalue of data under the assumed IRT model<br><br>Second eigenvalue in the observed data: 0.2254<br>Average of second eigenvalues in Monte Carlo samples: 0.2577<br>Monte Carlo samples: 100<br>p-value: 0.6733<br></p>
\ 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