[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