swh:1:snp:9492dda1ea1583c5fa5285d6ddcd2ab9f57129b4
Tip revision: d08460987ea51cdf020292a03d490b7d80b8e579 authored by Patrick Mair on 24 October 2007, 00:00:00 UTC
version 0.9-5
version 0.9-5
Tip revision: d084609
print.ifit.R
`print.ifit` <-
function(x,...)
# print method for itemfit
# x...object of class "ifit" from (itemfit)
{
pvalues <- 1-pchisq(x$i.fit,x$i.df)
coef.table <- cbind(round(x$i.fit,3),x$i.df,round(pvalues,3))
colnames(coef.table) <- c("Chisq","df","p-value")
rownames(coef.table) <- names(x$i.fit)
cat("\nChi-square Itemfit Statistics: \n")
print(coef.table)
cat("\n")
}