[rkward-cvs] SF.net SVN: rkward:[2714] trunk/rkward
m-eik at users.sourceforge.net
m-eik at users.sourceforge.net
Fri Nov 27 15:32:43 UTC 2009
Revision: 2714
http://rkward.svn.sourceforge.net/rkward/?rev=2714&view=rev
Author: m-eik
Date: 2009-11-27 15:32:42 +0000 (Fri, 27 Nov 2009)
Log Message:
-----------
updated irt plugin and tests: saving parameter estimations is now optional, cronbach's alpha can be computed for a subset of items.
Modified Paths:
--------------
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.php
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.xml
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.php
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.xml
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.php
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.xml
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.php
trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.xml
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.php
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.xml
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.php
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.xml
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.php
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.xml
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.php
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.xml
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.php
trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.xml
trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.php
trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.xml
trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R
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.LLTM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R
trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R
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.item_fit_statistics.rkout
trunk/rkward/tests/item_response_theory.R
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -34,7 +34,7 @@
if($verbose == "TRUE")
$control[] ="verbose=TRUE" ;
-?>estimates.2pl <<- ltm(<? getRK("x"); ?> ~ z1<?
+?>estimates.2pl <- ltm(<? getRK("x"); ?> ~ z1<?
// any additional options?
if($interact == "TRUE") echo(" * z2");
if($constraint) echo(", constraint=".$constraint);
@@ -48,9 +48,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("2PL parameter estimation")
rk.print (estimates.2pl)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.2pl
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_2pl.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -8,6 +8,9 @@
<connect client="startval_mtx.enabled" governor="sv_matrix" />
<connect client="startval_mtx.required" governor="sv_matrix" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Two parameter logistic model">
@@ -18,6 +21,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.2pl"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -39,7 +39,7 @@
if($epshess != "1e-03")
$control[] = "eps.hessian=".$epshess ;
-?>estimates.3pl <<- tpm(<? getRK("x");
+?>estimates.3pl <- tpm(<? getRK("x");
// any additional options?
if($type == "rasch") echo(", type=\"rasch\"");
if($constraint) echo(", constraint=".$constraint);
@@ -54,9 +54,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("3PL parameter estimation")
rk.print (estimates.3pl)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.3pl
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_3pl.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -10,6 +10,9 @@
<connect client="optimeth.enabled" governor="optim_used" />
<connect client="startval_mtx.enabled" governor="sv_matrix" />
<connect client="startval_mtx.required" governor="sv_matrix" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Birnbaum three parameter model">
@@ -20,6 +23,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.3pl"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -17,7 +17,7 @@
$stderr = getRK_val("stderr");
$sumnull = getRK_val("sumnull");
-?>estimates.lltm <<- LLTM(<? getRK("x");
+?>estimates.lltm <- LLTM(<? getRK("x");
// any additional options?
if($design == "matrix") echo(", W=".$design_mtx);
if($mpoints > 1) echo(", mpoints=".$mpoints);
@@ -29,9 +29,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("LLTM parameter estimation")
rk.print (estimates.lltm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.lltm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_lltm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -14,6 +14,9 @@
<connect client="design_mtx.required" governor="design_matrix" />
<connect client="etastart_vec.enabled" governor="eta_vector" />
<connect client="etastart_vec.required" governor="eta_vector" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Linear logistic test model">
@@ -30,6 +33,10 @@
<option label="Compute group contrasts" value="contrasts" />
</radio>
<varslot type="numeric" id="group_vec" source="vars" label="Use this group vector:"/>
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.lltm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -30,7 +30,7 @@
if($verbose == "TRUE")
$control[] = "verbose=TRUE" ;
-?>estimates.rasch <<- rasch(<? getRK("x");
+?>estimates.rasch <- rasch(<? getRK("x");
// any additional options?
if($constraint) echo(", constraint=".$constraint);
if($irtparam != "TRUE") echo(", IRT.param=FALSE");
@@ -43,9 +43,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("Rasch parameter estimation")
rk.print (estimates.rasch$coefficients)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.rasch
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/dichotomous/par_est_rasch.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -8,6 +8,9 @@
<connect client="startval_mtx.enabled" governor="sv_matrix" />
<connect client="startval_mtx.required" governor="sv_matrix" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Rasch model">
@@ -18,6 +21,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.rasch"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -34,7 +34,7 @@
if($dig_abbrv != "6")
$control[] = "digits.abbrv=".$dig_abbrv ;
-?>estimates.grm <<- grm(<? getRK("x");
+?>estimates.grm <- grm(<? getRK("x");
// any additional options?
if($constraint == "const_discr") echo(", constrained=TRUE");
if($irtparam != "TRUE") echo(", IRT.param=FALSE");
@@ -48,9 +48,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("GRM parameter estimation")
rk.print (estimates.grm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.grm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_grm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -8,6 +8,9 @@
<connect client="startval_lst.enabled" governor="sv_matrix" />
<connect client="startval_lst.required" governor="sv_matrix" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Graded response model">
@@ -18,6 +21,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.grm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -17,7 +17,7 @@
$stderr = getRK_val("stderr");
$sumnull = getRK_val("sumnull");
-?>estimates.lpcm <<- LPCM(<? getRK("x");
+?>estimates.lpcm <- LPCM(<? getRK("x");
// any additional options?
if($design == "matrix") echo(", W=".$design_mtx);
if($mpoints > 1) echo(", mpoints=".$mpoints);
@@ -29,9 +29,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("LPCM parameter estimation")
rk.print (estimates.lpcm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.lpcm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lpcm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -14,6 +14,9 @@
<connect client="design_mtx.required" governor="design_matrix" />
<connect client="etastart_vec.enabled" governor="eta_vector" />
<connect client="etastart_vec.required" governor="eta_vector" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Linear partial credit model">
@@ -30,6 +33,10 @@
<option label="Compute group contrasts" value="contrasts" />
</radio>
<varslot type="numeric" id="group_vec" source="vars" label="Use this group vector:"/>
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.lpcm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -17,7 +17,7 @@
$stderr = getRK_val("stderr");
$sumnull = getRK_val("sumnull");
-?>estimates.lrsm <<- LRSM(<? getRK("x");
+?>estimates.lrsm <- LRSM(<? getRK("x");
// any additional options?
if($design == "matrix") echo(", W=".$design_mtx);
if($mpoints > 1) echo(", mpoints=".$mpoints);
@@ -29,9 +29,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("LRSM parameter estimation")
rk.print (estimates.lrsm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.lrsm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_lrsm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -14,6 +14,9 @@
<connect client="design_mtx.required" governor="design_matrix" />
<connect client="etastart_vec.enabled" governor="eta_vector" />
<connect client="etastart_vec.required" governor="eta_vector" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Linear rating scale model">
@@ -30,6 +33,10 @@
<option label="Compute group contrasts" value="contrasts" />
</radio>
<varslot type="numeric" id="group_vec" source="vars" label="Use this group vector:"/>
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.lrsm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -14,7 +14,7 @@
$stderr = getRK_val("stderr");
$sumnull = getRK_val("sumnull");
-?>estimates.pcm <<- PCM(<? getRK("x");
+?>estimates.pcm <- PCM(<? getRK("x");
// any additional options?
if($design == "matrix") echo(", W=".$design_mtx);
if($stderr != "se") echo(", se=FALSE");
@@ -24,9 +24,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("PCM parameter estimation")
rk.print (estimates.pcm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.pcm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_pcm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -11,6 +11,9 @@
<connect client="design_mtx.required" governor="design_matrix" />
<connect client="etastart_vec.enabled" governor="eta_vector" />
<connect client="etastart_vec.required" governor="eta_vector" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Partial credit model">
@@ -21,6 +24,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.pcm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -14,7 +14,7 @@
$stderr = getRK_val("stderr");
$sumnull = getRK_val("sumnull");
-?>estimates.rsm <<- RSM(<? getRK("x");
+?>estimates.rsm <- RSM(<? getRK("x");
// any additional options?
if($design == "matrix") echo(", W=".$design_mtx);
if($stderr != "se") echo(", se=FALSE");
@@ -24,9 +24,18 @@
<?}
function printout () {
+ // check whether parameter estimations should be kept in the global enviroment
+ $save = getRK_val("chk_save");
+ $save_name = getRK_val("save_name");
?>
rk.header ("RSM parameter estimation")
rk.print (estimates.rsm)
<?
+// check if results are to be saved:
+if ($save && $save_name) {
+?>
+# keep results in current workspace
+<? echo($save_name); ?> <<- estimates.rsm
+<?}
}
?>
\ No newline at end of file
Modified: trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/polytomous/par_est_rsm.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -11,6 +11,9 @@
<connect client="design_mtx.required" governor="design_matrix" />
<connect client="etastart_vec.enabled" governor="eta_vector" />
<connect client="etastart_vec.required" governor="eta_vector" />
+
+ <connect client="save_name.enabled" governor="chk_save.state" />
+ <connect client="save_name.required" governor="chk_save.state" />
</logic>
<dialog label="IRT parameter estimation: Rating scale model">
@@ -21,6 +24,10 @@
<column>
<varslot type="numeric" id="x" classes="data.frame matrix" source="vars" required="true" label="Matrix of manifest variables:"/>
<stretch />
+ <frame id="frame_save">
+ <checkbox id="chk_save" label="Keep results in current workspace" value="save" checked="true"/>
+ <saveobject id="save_name" initial="estimates.rsm"/>
+ </frame>
</column>
</row>
</tab>
Modified: trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.php
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.php 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.php 2009-11-27 15:32:42 UTC (rev 2714)
@@ -7,12 +7,19 @@
function calculate () {
// let's read all values into php variables for the sake of readable code
+ $data = getRK_val("x");
+ $chk_select = getRK_val("chk_select");
+ $inp_items = getRK_val("inp_items");
$spin_samples = getRK_val("spin_samples");
$chk_standard = getRK_val("chk_standard");
$chk_na = getRK_val("chk_na");
$chk_bsci = getRK_val("chk_bsci");
$spin_ci = getRK_val("spin_ci");
+ // reformat $inp_items
+ if($inp_items)
+ $inp_items = str_replace("\n", ", ", preg_replace("/(.+)\[\[(.+)\]\]/", "$2", $inp_items));
+
///////////////////////////////////
// check for selected options
$options = array() ;
@@ -31,15 +38,27 @@
$options[] = "na.rm=TRUE" ;
-?>cronalpha.res <- cronbach.alpha(<? getRK("x");
+?>cronalpha.res <- cronbach.alpha(<?
+ if($data && $chk_select && $inp_items)
+ echo("subset(".$data.", select=c(".$inp_items."))");
+ else
+ echo($data);
// check if any advanced control options must be inserted
if($options) echo(", ".join(", ", $options));
?>)
<?}
function printout () {
+ $inp_items = getRK_val("inp_items");
+ // reformat $inp_items
+ if($inp_items)
+ $inp_items = str_replace("\n", ", ", preg_replace("/(.+)\[\[\"(.+)\"\]\]/", "$2", $inp_items));
?>
-rk.header ("Cronbach's alpha (<? getRK("x"); ?>)")
+rk.header ("Cronbach's alpha (<?
+ getRK("x");
+ if($inp_items)
+ echo(", subset: ".$inp_items);
+ ?>)")
rk.print (cronalpha.res)
<?
}
Modified: trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.xml
===================================================================
--- trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.xml 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/rkward/plugins/analysis/irt/tests/ltm_cronbach_alpha.xml 2009-11-27 15:32:42 UTC (rev 2714)
@@ -4,9 +4,8 @@
<!--<help file="ltm_cronbach_alpha.rkh" />-->
<logic>
- <convert id="conf_int" mode="and" sources="chk_bsci.state;chk_bsci.enabled" />
-
- <connect client="spin_ci.enabled" governor="conf_int" />
+ <connect client="inp_items.enabled" governor="chk_select.state" />
+ <connect client="spin_ci.enabled" governor="chk_bsci.state" />
</logic>
<dialog label="Cronbach's alpha">
@@ -15,8 +14,12 @@
<row id="row_vars">
<varselector id="vars" />
<column>
- <varslot type="numeric" id="x" source="vars" required="true" label="Item responses:"/>
- <text>Must be a matrix or data.frame, with items as columns.</text>
+ <varslot type="numeric" id="x" source="vars" required="true" num_dimensions="2" label="Item responses:"/>
+ <text>Must be a matrix or data.frame, including the items as columns.</text>
+ <frame id="frame_items" label="Item selection">
+ <checkbox id="chk_select" label="Select a subset of items" value="select" />
+ <varslot type="numeric" id="inp_items" source="vars" multi="true" min_vars="2" label="List of items:" />
+ </frame>
<stretch />
<frame id="frame_options" label="Options">
<spinbox id="spin_samples" label="Number of Bootstrap samples:" type="integer" initial="1000" min="1" size="small" />
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.2PL_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(ltm)
## Compute
-estimates.2pl <<- ltm(WIRS ~ z1 * z2)
+estimates.2pl <- ltm(WIRS ~ z1 * z2)
## Print result
rk.header ("2PL parameter estimation")
rk.print (estimates.2pl)
+# keep results in current workspace
+estimates.2pl <<- estimates.2pl
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_2pl", settings="constraint.available=\nghk_2pl.real=15.00\ninteract.state=TRUE\nirtparam.state=TRUE\niterem.real=40.00\niterqn_2pl.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=WIRS", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_2pl", settings="chk_save.state=save\nconstraint.available=\nghk_2pl.real=15.00\ninteract.state=TRUE\nirtparam.state=TRUE\niterem.real=40.00\niterqn_2pl.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nsave_name.selection=estimates.2pl\nstartval.string=NULL\nverbose.state=\nx.available=WIRS", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.3PL_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(ltm)
## Compute
-estimates.3pl <<- tpm(LSAT)
+estimates.3pl <- tpm(LSAT)
## Print result
rk.header ("3PL parameter estimation")
rk.print (estimates.3pl)
+# keep results in current workspace
+estimates.3pl <<- estimates.3pl
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_3pl", settings="constraint.available=\nepshess.real=0.001\nghk_3pl.real=21.00\nirtparam.state=TRUE\niterqn_3pl.real=1000.00\nmaxguess.real=1.00\nnaaction.state=\noptimeth.string=BFGS\noptimizer.string=optim\nstartval.string=NULL\ntype.state=\nverbose.state=\nx.available=LSAT", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_3pl", settings="chk_save.state=save\nconstraint.available=\nepshess.real=0.001\nghk_3pl.real=21.00\nirtparam.state=TRUE\niterqn_3pl.real=1000.00\nmaxguess.real=1.00\nnaaction.state=\noptimeth.string=BFGS\noptimizer.string=optim\nsave_name.selection=estimates.3pl\nstartval.string=NULL\ntype.state=\nverbose.state=\nx.available=LSAT", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,10 @@
## Prepare
require(ltm)
## Compute
-cronalpha.res <- cronbach.alpha(LSAT, CI=TRUE, B=500)
+cronalpha.res <- cronbach.alpha(subset(LSAT, select=c("Item 1", "Item 2", "Item 3", "Item 4", "Item 5")), CI=TRUE)
## Print result
-rk.header ("Cronbach's alpha (LSAT)")
+rk.header ("Cronbach's alpha (LSAT, subset: Item 1, Item 2, Item 3, Item 4, Item 5)")
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.95\nspin_samples.real=500.00\nx.available=LSAT", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::ltm_cronbach_alpha", settings="chk_bsci.state=bsci\nchk_na.state=\nchk_select.state=select\nchk_standard.state=\ninp_items.available=LSAT[[\\\"Item 1\\\"]]\\nLSAT[[\\\"Item 2\\\"]]\\nLSAT[[\\\"Item 3\\\"]]\\nLSAT[[\\\"Item 4\\\"]]\\nLSAT[[\\\"Item 5\\\"]]\nspin_ci.real=0.95\nspin_samples.real=1000.00\nx.available=LSAT", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Cronbach_alpha.rkout 2009-11-27 15:32:42 UTC (rev 2714)
@@ -1,3 +1,3 @@
-<h1>Cronbach's alpha (LSAT)</h1>
+<h1>Cronbach's alpha (LSAT, subset: Item 1, Item 2, Item 3, Item 4, Item 5)</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.223 0.368 <br><br></p>
\ No newline at end of file
+<p class='character'><br>Cronbach's alpha for the 'subset(LSAT, select = c("Item 1", "Item 2", "Item 3", "Item 4", ' ' "Item 5"))' data-set<br><br>Items: 5<br>Sample units: 1000<br>alpha: 0.295<br><br>Bootstrap 95% CI based on 1000 samples<br> 2.5% 97.5% <br>0.219 0.365 <br><br></p>
\ No newline at end of file
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.GRM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(ltm)
## Compute
-estimates.grm <<- grm(Environment)
+estimates.grm <- grm(Environment)
## Print result
rk.header ("GRM parameter estimation")
rk.print (estimates.grm)
+# keep results in current workspace
+estimates.grm <<- estimates.grm
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_grm", settings="constraint.state=\ndig_abbrv.real=6.00\nghk_grm.real=21.00\nhessian.state=\nirtparam.state=TRUE\niterqn_grm.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=Environment", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_grm", settings="chk_save.state=save\nconstraint.state=\ndig_abbrv.real=6.00\nghk_grm.real=21.00\nhessian.state=\nirtparam.state=TRUE\niterqn_grm.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nsave_name.selection=estimates.grm\nstartval.string=NULL\nverbose.state=\nx.available=Environment", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LLTM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(eRm)
## Compute
-estimates.lltm <<- LLTM(lltmdat1, mpoints=2)
+estimates.lltm <- LLTM(lltmdat1, mpoints=2)
## Print result
rk.header ("LLTM parameter estimation")
rk.print (estimates.lltm)
+# keep results in current workspace
+estimates.lltm <<- estimates.lltm
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_lltm", settings="design.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.00\nstderr.state=se\nsumnull.state=sum0\nx.available=lltmdat1", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_lltm", settings="chk_save.state=save\ndesign.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.00\nsave_name.selection=estimates.lltm\nstderr.state=se\nsumnull.state=sum0\nx.available=lltmdat1", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LPCM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(eRm)
## Compute
-estimates.lpcm <<- LPCM(lpcmdat, mpoints=2, groupvec=G)
+estimates.lpcm <- LPCM(lpcmdat, mpoints=2, groupvec=G)
## Print result
rk.header ("LPCM parameter estimation")
rk.print (estimates.lpcm)
+# keep results in current workspace
+estimates.lpcm <<- 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.00\nstderr.state=se\nsumnull.state=sum0\nx.available=lpcmdat", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_lpcm", settings="chk_save.state=save\ndesign.string=auto\netastart.string=NULL\ngroup_vec.available=G\ngroups.string=contrasts\nmpoints.real=2.00\nsave_name.selection=estimates.lpcm\nstderr.state=se\nsumnull.state=sum0\nx.available=lpcmdat", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.LRSM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(eRm)
## Compute
-estimates.lrsm <<- LRSM(lrsmdat, mpoints=2, se=FALSE, sum0=FALSE)
+estimates.lrsm <- LRSM(lrsmdat, mpoints=2, se=FALSE, sum0=FALSE)
## Print result
rk.header ("LRSM parameter estimation")
rk.print (estimates.lrsm)
+# keep results in current workspace
+estimates.lrsm <<- estimates.lrsm
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_lrsm", settings="design.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.00\nstderr.state=\nsumnull.state=\nx.available=lrsmdat", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_lrsm", settings="chk_save.state=save\ndesign.string=auto\netastart.string=NULL\ngroups.string=1\nmpoints.real=2.00\nsave_name.selection=estimates.lrsm\nstderr.state=\nsumnull.state=\nx.available=lrsmdat", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(eRm)
## Compute
-estimates.pcm <<- PCM(pcmdat)
+estimates.pcm <- PCM(pcmdat)
## Print result
rk.header ("PCM parameter estimation")
rk.print (estimates.pcm)
+# keep results in current workspace
+estimates.pcm <<- 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.rerun.plugin.link(plugin="rkward::par_est_pcm", settings="chk_save.state=save\ndesign.string=auto\netastart.string=NULL\nsave_name.selection=estimates.pcm\nstderr.state=se\nsumnull.state=sum0\nx.available=pcmdat", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.PCM_parameter_estimation.rkout 2009-11-27 15:32:42 UTC (rev 2714)
@@ -1,3 +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.10 <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 eta 7 eta 8<br>Estimate 0.93685 -0.33032 0.25086 0.065013 -1.4316 -0.22394 -0.074476 -0.87828<br>Std.Err 0.56521 0.80940 0.52546 0.579792 1.0239 0.56099 0.567946 0.78393<br> eta 9 eta 10 eta 11 eta 12 eta 13 eta 14 eta 15 eta 16<br>Estimate 0.42298 -0.26350 0.13957 -0.98036 0.096206 0.40303 -0.58611 0.50413<br>Std.Err 0.54673 0.68881 0.64971 0.78801 0.584619 0.57883 0.82641 0.63449<br> eta 17 eta 18 eta 19<br>Estimate 1.09952 0.84933 -0.29809<br>Std.Err 0.58696 0.50443 0.70054<br><br></p>
\ No newline at end of file
+<p class='character'><br>Results of PCM estimation: <br><br>Call: PCM(X = pcmdat) <br><br>Conditional log-likelihood: -121.10 <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 eta 7 eta 8<br>Estimate 0.93685 -0.33032 0.25086 0.065013 -1.4316 -0.22394 -0.074476 -0.87828<br>Std.Err 0.56521 0.80941 0.52546 0.579792 1.0239 0.56099 0.567946 0.78393<br> eta 9 eta 10 eta 11 eta 12 eta 13 eta 14 eta 15 eta 16<br>Estimate 0.42298 -0.26350 0.13957 -0.98036 0.096206 0.40303 -0.58611 0.50414<br>Std.Err 0.54673 0.68881 0.64970 0.78801 0.584619 0.57883 0.82641 0.63450<br> eta 17 eta 18 eta 19<br>Estimate 1.09952 0.84933 -0.29809<br>Std.Err 0.58696 0.50443 0.70054<br><br></p>
\ No newline at end of file
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(eRm)
## Compute
-estimates.rsm <<- RSM(rsmdat)
+estimates.rsm <- RSM(rsmdat)
## Print result
rk.header ("RSM parameter estimation")
rk.print (estimates.rsm)
+# keep results in current workspace
+estimates.rsm <<- 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.rerun.plugin.link(plugin="rkward::par_est_rsm", settings="chk_save.state=save\ndesign.string=auto\netastart.string=NULL\nsave_name.selection=estimates.rsm\nstderr.state=se\nsumnull.state=sum0\nx.available=rsmdat", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.RSM_parameter_estimation.rkout 2009-11-27 15:32:42 UTC (rev 2714)
@@ -1,3 +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.56 <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 eta 7<br>Estimate -0.30515 -0.25586 -0.067308 0.16013 0.44424 0.16739 -0.13791<br>Std.Err 0.20537 0.20282 0.196507 0.19652 0.20849 0.45966 0.73250<br><br></p>
\ No newline at end of file
+<p class='character'><br>Results of RSM estimation: <br><br>Call: RSM(X = rsmdat) <br><br>Conditional log-likelihood: -107.56 <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 eta 7<br>Estimate -0.30515 -0.25586 -0.067308 0.16013 0.44424 0.16739 -0.13791<br>Std.Err 0.20537 0.20282 0.196507 0.19652 0.20849 0.45966 0.73249<br><br></p>
\ No newline at end of file
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.Rasch_parameter_estimation.rkcommands.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -2,10 +2,12 @@
## Prepare
require(ltm)
## Compute
-estimates.rasch <<- rasch(LSAT)
+estimates.rasch <- rasch(LSAT)
## Print result
rk.header ("Rasch parameter estimation")
rk.print (estimates.rasch$coefficients)
+# keep results in current workspace
+estimates.rasch <<- estimates.rasch
})
-.rk.rerun.plugin.link(plugin="rkward::par_est_rasch", settings="constraint.available=\nghk_rasch.real=21.00\nirtparam.state=TRUE\niterqn_rasch.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nstartval.string=NULL\nverbose.state=\nx.available=LSAT", label="Run again")
+.rk.rerun.plugin.link(plugin="rkward::par_est_rasch", settings="chk_save.state=save\nconstraint.available=\nghk_rasch.real=21.00\nirtparam.state=TRUE\niterqn_rasch.real=150.00\nnaaction.state=\noptimeth.string=BFGS\nsave_name.selection=estimates.rasch\nstartval.string=NULL\nverbose.state=\nx.available=LSAT", label="Run again")
.rk.make.hr()
Modified: trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout
===================================================================
--- trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory/RKTestStandard.item_fit_statistics.rkout 2009-11-27 15:32:42 UTC (rev 2714)
@@ -1,3 +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
+<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 61.93 <0.0001<br>Item 2 159.01 <0.0001<br>Item 3 233.79 <0.0001<br>Item 4 132.47 <0.0001<br>Item 5 84.76 <0.0001<br><br></p>
\ No newline at end of file
Modified: trunk/rkward/tests/item_response_theory.R
===================================================================
--- trunk/rkward/tests/item_response_theory.R 2009-11-26 21:05:49 UTC (rev 2713)
+++ trunk/rkward/tests/item_response_theory.R 2009-11-27 15:32:42 UTC (rev 2714)
@@ -35,44 +35,44 @@
## first, let's test all parameter estimations
## some parameters are later recycled for fitting tests and plotting
new ("RKTest", id="Rasch_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_rasch", constraint.available="", ghk_rasch.real="21.00", irtparam.state="TRUE", iterqn_rasch.real="150.00", naaction.state="", optimeth.string="BFGS", startval.string="NULL", verbose.state="", x.available="LSAT", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_rasch", chk_save.state="save", constraint.available="", ghk_rasch.real="21.00", irtparam.state="TRUE", iterqn_rasch.real="150.00", naaction.state="", optimeth.string="BFGS", save_name.selection="estimates.rasch", startval.string="NULL", verbose.state="", x.available="LSAT", submit.mode="submit")
estimates$rasch <<- estimates.rasch
}),
new ("RKTest", id="2PL_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_2pl", constraint.available="", ghk_2pl.real="15.00", interact.state="TRUE", irtparam.state="TRUE", iterem.real="40.00", iterqn_2pl.real="150.00", naaction.state="", optimeth.string="BFGS", startval.string="NULL", verbose.state="", x.available="WIRS", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_2pl", chk_save.state="save", constraint.available="", ghk_2pl.real="15.00", interact.state="TRUE", irtparam.state="TRUE", iterem.real="40.00", iterqn_2pl.real="150.00", naaction.state="", optimeth.string="BFGS", startval.string="NULL", verbose.state="", x.available="WIRS", submit.mode="submit")
estimates$"2pl" <<- estimates.2pl
}),
new ("RKTest", id="3PL_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_3pl", constraint.available="", epshess.real="0.001", ghk_3pl.real="21.00", irtparam.state="TRUE", iterqn_3pl.real="1000.00", maxguess.real="1.00", naaction.state="", optimeth.string="BFGS", optimizer.string="optim", startval.string="NULL", type.state="", verbose.state="", x.available="LSAT", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_3pl", chk_save.state="save", constraint.available="", epshess.real="0.001", ghk_3pl.real="21.00", irtparam.state="TRUE", iterqn_3pl.real="1000.00", maxguess.real="1.00", naaction.state="", optimeth.string="BFGS", optimizer.string="optim", startval.string="NULL", type.state="", verbose.state="", x.available="LSAT", submit.mode="submit")
estimates$"3pl" <<- estimates.3pl
}),
new ("RKTest", id="LLTM_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_lltm", design.string="auto", etastart.string="NULL", groups.string="1", mpoints.real="2.00", stderr.state="se", sumnull.state="sum0", x.available="lltmdat1", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_lltm", chk_save.state="save", design.string="auto", etastart.string="NULL", groups.string="1", mpoints.real="2.00", stderr.state="se", sumnull.state="sum0", x.available="lltmdat1", submit.mode="submit")
}),
new ("RKTest", id="GRM_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_grm", constraint.state="", dig_abbrv.real="6.00", ghk_grm.real="21.00", hessian.state="", irtparam.state="TRUE", iterqn_grm.real="150.00", naaction.state="", optimeth.string="BFGS", startval.string="NULL", verbose.state="", x.available="Environment", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_grm", chk_save.state="save", constraint.state="", dig_abbrv.real="6.00", ghk_grm.real="21.00", hessian.state="", irtparam.state="TRUE", iterqn_grm.real="150.00", naaction.state="", optimeth.string="BFGS", startval.string="NULL", verbose.state="", x.available="Environment", submit.mode="submit")
estimates$grm <<- estimates.grm
}),
new ("RKTest", id="RSM_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_rsm", design.string="auto", etastart.string="NULL", stderr.state="se", sumnull.state="sum0", x.available="rsmdat", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_rsm", chk_save.state="save", design.string="auto", etastart.string="NULL", stderr.state="se", sumnull.state="sum0", x.available="rsmdat", submit.mode="submit")
estimates$rsm <<- estimates.rsm
}),
new ("RKTest", id="PCM_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_pcm", design.string="auto", etastart.string="NULL", stderr.state="se", sumnull.state="sum0", x.available="pcmdat", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_pcm", chk_save.state="save", design.string="auto", etastart.string="NULL", stderr.state="se", sumnull.state="sum0", x.available="pcmdat", submit.mode="submit")
estimates$pcm <<- estimates.pcm
}),
new ("RKTest", id="LRSM_parameter_estimation", call=function () {
- rk.call.plugin ("rkward::par_est_lrsm", design.string="auto", etastart.string="NULL", groups.string="1", mpoints.real="2.00", stderr.state="", sumnull.state="", x.available="lrsmdat", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_lrsm", chk_save.state="save", design.string="auto", etastart.string="NULL", groups.string="1", mpoints.real="2.00", stderr.state="", sumnull.state="", x.available="lrsmdat", submit.mode="submit")
}),
new ("RKTest", id="LPCM_parameter_estimation", call=function () {
G <<- c(rep(1,10),rep(2,10)) # group vector, see example section of help("LPCM")
rk.sync.global ()
- rk.call.plugin ("rkward::par_est_lpcm", design.string="auto", etastart.string="NULL", group_vec.available="G", groups.string="contrasts", mpoints.real="2.00", stderr.state="se", sumnull.state="sum0", x.available="lpcmdat", submit.mode="submit")
+ rk.call.plugin ("rkward::par_est_lpcm", chk_save.state="save", design.string="auto", etastart.string="NULL", group_vec.available="G", groups.string="contrasts", mpoints.real="2.00", stderr.state="se", sumnull.state="sum0", x.available="lpcmdat", submit.mode="submit")
}),
## testing cronbach's alpha
new ("RKTest", id="Cronbach_alpha", call=function () {
- rk.call.plugin ("rkward::ltm_cronbach_alpha", chk_bsci.state="bsci", chk_na.state="", chk_standard.state="", spin_ci.real="0.95", spin_samples.real="500.00", x.available="LSAT", submit.mode="submit")
+ rk.call.plugin ("rkward::ltm_cronbach_alpha", chk_bsci.state="bsci", chk_na.state="", chk_select.state="select", chk_standard.state="", inp_items.available="LSAT[[\"Item 1\"]]\nLSAT[[\"Item 2\"]]\nLSAT[[\"Item 3\"]]\nLSAT[[\"Item 4\"]]\nLSAT[[\"Item 5\"]]", spin_ci.real="0.95", spin_samples.real="1000.00", x.available="LSAT", submit.mode="submit")
}, fuzzy_output=TRUE), # calculating the bootstrap confidence interval isn't always that accurate
## now that our estimates are calculated, let's have a look at goodnes of fit
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