R/coef.est_multi_poly_between.R

Defines functions coef.est_multi_poly_between

Documented in coef.est_multi_poly_between

coef.est_multi_poly_between <-function(object, ...){
	
# preliminaries
	out = object
# print output	
    cat("\nEstimated abilities:\n")
    print(round(out$Th,4))    
    cat("\nEstimated item parameters:\n")
    Tmp = out$Bec
    for(j in 1:ncol(out$Bec)) colnames(Tmp)[j] = paste("beta",j,sep="")
    Items = cbind(gamma=out$gac,Tmp)
    print(round(Items,4))                
    cat("\nEstimated regression coefficients:\n")
    print(round(out$De,4))
    cat("\n")
# output
	out = list(Th=out$Th,Items=out$Items,De=out$De)    
	
}

Try the MLCIRTwithin package in your browser

Any scripts or data that you put into this service are public.

MLCIRTwithin documentation built on May 30, 2017, 12:52 a.m.