Estimator = R6::R6Class("Estimator",
inherit = CoreStructure,
# private
private = list(
ModelFitVia.mirt = function(data) {
return(mirt(as.data.frame(data), 1, verbose = FALSE))
},
ParametersVia.mirt = function(estimationObject) {
return(coef(estimationObject, IRTpars = TRUE, simplify = TRUE)$items)
},
ThetaVia.mirt = function(estimationObject, method) {
return(fscores(estimationObject, method, full.scores = TRUE, full.scores.SE = TRUE))
}
),
# public
public = list(
initialize = function(data, method) {
tempEstimationObject = private$ModelFitVia.mirt(data)
private$parameters = private$ParametersVia.mirt(tempEstimationObject)
private$theta = private$ThetaVia.mirt(tempEstimationObject, method)
rm(tempEstimationObject)
}
),
# active bindings
active = list(
)
) # Estimator
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.