R/allClasses.R

In psychomix: Psychometric Mixture Models

## define own class for raschmix and stepRaschmix objects
setClass("FLXMCrasch", contains = "FLXMC")

setClass("raschmix",
         representation(scores = "character",
                        restricted = "logical",
                        deriv = "character",
                        extremeScoreProbs = "numeric",
                        rawScoresData = "table",
                        flx.call = "call",
                        nobs = "numeric",
                        identified.items = "factor"),
         contains = "flexmix")

setClass("stepRaschmix",
         representation(flx.call = "call"),
         contains = "stepFlexmix")

setClass("FLXRoptimRasch",
         representation(scores = "ANY"),
         contains="FLXRoptim")


## define own class for btmix and stepBTmix objects
setClass("FLXMCbt", contains = "FLXMC")

setClass("btmix",
         representation(flx.call = "call",
                        nobs = "numeric",
			labels = "character",
			mscale = "numeric",
                        undecided = "logical",
                        ref = "ANY",
                        type = "character"),
         contains = "flexmix")

setClass("stepBTmix",
         representation(flx.call = "call",
	                labels = "character",
			mscale = "numeric"),
         contains = "stepFlexmix")


## define own class for mptmix and stepMPTmix objects
setClass("FLXMCmpt", contains = "FLXMC")

setClass("mptmix",
         representation(flx.call = "call",
                        nobs = "numeric"  # ,
                      # labels = "character",
                      # mscale = "numeric",
                      # undecided = "logical",
                      # ref = "ANY",
                      # type = "character"
                       ),
         contains = "flexmix")

setClass("stepMPTmix",
         representation(flx.call = "call"  # ,
                      # labels = "character",
                      # mscale = "numeric"
                       ),
         contains = "stepFlexmix")