← Back to branch summary

~l3on/ubuntu/precise/rkward/rebuild1

« back to all changes in this revision

Viewing changes to tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R

  • Committer: Bazaar Package Importer
  • Author(s): Thomas Friedrichsmeier
  • Date: 2010-10-04 14:30:00 UTC
  • mfrom: (12.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20101004143000-qey73molmxxwy4w6
Tags: 0.5.4-1
* new upstream release
* bump standards version to 3.9.1 (no changes needed)
* no more need to remove svncopy.sh-script in rules

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/item_response_theory/RKTestStandard.item_fit_statistics.rkcommands.R
5
5
itemfit.res <- item.fit(estimates.rasch)
6
6
## Print result
7
7
rk.header ("Item-fit statistics (estimates.rasch)")
8
 
rk.print (itemfit.res)
 
8
rk.print ("Call:")
 
9
rk.print.literal (deparse(itemfit.res$call, width.cutoff=500))
 
10
rk.print ("Alternative: Items do not fit the model")
 
11
rk.print (paste("Ability Categories:", itemfit.res$G))
 
12
rk.header ("Item-Fit Statistics and P-values:", level=4)
 
13
rk.print(cbind("X^2"=round(itemfit.res$Tobs, digits=3), "Pr (&gt;X^2)"=format(round(itemfit.res$p.values, digits=3), nsmall=3)))
9
14
})
10
15
.rk.rerun.plugin.link(plugin="rkward::ltm_item_fit", settings="drop_sumgroups.string=median\nrad_pvalue.string=chi2\nspin_groups.real=10.00\nx.available=estimates.rasch", label="Run again")
11
16
.rk.make.hr()