R/ClassEstimator2PLM.R

Estimator2PLM = R6::R6Class("Estimator2PLM",
	inherit = Estimator,

	# private
	private = list(
	),

	# public
	public = list(
		initialize = function(data, method) {
			super$initialize(data, method)

			# rearanging the paramaters: b and then a
			private$parameters = private$parameters[, c(1, 2)]
			private$model = "Estimated 2PLM"
		}
	)

) # Estimator2PLM
mihaiconstantin/chgassesirt documentation built on May 22, 2019, 10:51 p.m.