Nothing
#' @title S3 Summary for Rasch Factor Analysis
#' @exportS3Method summary rfa
#' @keywords methods
#' @method summary rfa
#' @description S3 summary method for object of class\code{"pair"}
#' @param object object of class\code{"pair"}
#' @param sortdif logical with default \code{sortdif=FALSE} wether to order items / persons by difficulty / ability.
#' @param ... other parameters passed trough
########################### hier die summary method fuer rfa #############################
summary.rfa<-function(object, sortdif=FALSE, ...){
### item analysis performed
if(object$pca$transposed==FALSE){
cat("Principal Components over items of Rasch Residuals: \n")
if(sortdif==TRUE){
threshold <- object$pers_obj$pair$threshold
sigma <- object$pers_obj$pair$sigma
#####
threshold <- threshold[order(sigma), ]
#####
object$pca$loadings <- object$pca$loadings[order(sigma), ]
sigma <- sort(sigma)
cat("(ordered by item location) \n")
}
}
### person analysis performed
if(object$pca$transposed==TRUE){
cat("Principal Components over persons of Rasch Residuals: \n")
if(sortdif==TRUE){
WLE <- object$pers_obj$pers$WLE
#####
object$pca$loadings <- object$pca$loadings[order(WLE), ]
WLE <- sort(WLE)
cat("(ordered by person ability) \n")
}
}
return(object$pca)
#print(round(data.frame(object[2:1]),5))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.