R/ClassSimulator2PLM.R

In mihaiconstantin/changeIRT: An R Package For Change Assessment and Data Simulation Under the IRT Framework

Simulator2PLM = R6::R6Class("Simulator2PLM",
	inherit = Simulator,

	# private
	private = list(
		irf  	= NULL,
		iif  	= NULL,
		trftif  = NULL
	),

	# public
	public = list(
		initialize = function(theta, b, a) {
			super$initialize(theta, b, a)

			private$irf 	= private$ComputeIrf(theta, b, a)
			private$iif 	= private$ComputeIif(private$irf, a)
			private$trftif 	= private$ComputeTrfTif(private$irf, private$iif)

			private$data 	= private$GenerateData(private$irf, model = "2PLM")
			private$model 	= "Simulated 2PLM"
		}
	),

	# active
	active = list(
		get.irf 	= function() { return(private$irf)    },
		get.iif 	= function() { return(private$iif)    },
		get.trftif 	= function() { return(private$trftif) }
	)

) # Simulator2PLM