3
function preprocess () {
6
echo (' require(ltm)\n');
9
function calculate () {
11
spin_samples = getValue("spin_samples");
13
echo ('GoFRasch.res <- GoF.rasch(' + getValue("x"));
15
if(spin_samples != "49") echo (", B="+spin_samples);
19
function printout () {
20
echo ('rk.header ("Goodness of Fit for Rasch Models (' + getValue("x") + ')")\n');
21
echo ('rk.print (GoFRasch.res)\n');