nrm: Estimating a Nominal Response Model

Description Usage Arguments Details Value Author(s) References See Also Examples

View source: R/nrm.R

Description

This function fits a Nominal Response Model as proposed by Bock (1972). The model estimates two parameters for each response category: ζ and λ. The model ist best suited for a set of items with more than two nominal response categories.

P_{iqv} = \frac{exp(ζ_{ik} - λ_{ik} θ_j)}{∑_{v=1}^{m} exp(ζ_{iv} - λ_{iv} θ_j)}

Usage

1
2
3
4
5
6
7
8
9
nrm(reshOBJ,etastart=-0.1, ctrl=list())
## S3 method for class 'nrm'
summary(object, RETURN=FALSE, ...)
## S3 method for class 'nrm'
print(x, ...)
## S3 method for class 'nrm'
deviance(object, ...)
## S3 method for class 'nrm'
logLik(object, ...)

Arguments

reshOBJ

A object of class reshNRM is expected. So the step before fitting the model is to reshape the data by means of the reshMG function.

etastart

A numerical vector. Starting values for the eta parameters can be change (but is not necessary in typical cases).

ctrl

A list of argumets to customize the computations.

object

An object of class nrm.

x

An object of class nrm.

RETURN

A logical vector of length 1. If TRUE all result tables are returned by the summary function.

...

Details

The eta parameters in etastart denote the estimable parameters of the model. For example, for an item with 4 categories, 3 γ's (which substitute the 4 ζ's) and 3 ξ's (which substitute the 4 λ's) are constrained for normalization (parameter sets add up to zero).

The following arguments can be comitted within a list (ctrl argument):

Value

etapar

A numerical vector of eta-parameters

last_estep

A list of informations concerning the last e-step before convergence. This is nothing the typical user should care about.

last_mstep

Contains the log likelihood and the Hessian-Matrix of the last M-step of the EM-Algorithm.

n_steps

The number of passed EM steps which lead to the convergent result.

erg_distr

Estimates concerning the latent person distribution.

QUAD

Denotes a list of the quadrature nodes and weights which were used as a-priori distribution.

starting_values

A list with infos concerning the starting values. The first entry gives merely the structure of the starting values whereas $ulstv gives the used starting values for the first EM step

EAPs

The exact a-posteriori values for each person - which is something like a person parameter estimate.

ZLpar

The list of item parameter estimates for each group.

SE

The list of standard errors for the item parameter estimates.

reshOBJ

The committed reshape object (which includes the data).

Catinf

A list which contains 1) the information amount for each category/item/group for a sequence of ability values; 2) the sequence of ability values; 3) test information (sum above all items) for each of the ability values.

call

Shows the actual call of the nrm function.

Author(s)

Manuel Reif

References

Bock, R. D. (1972). Estimating item parameters and latent ability when responses are scored in two or more nominal categories. Psychometrika, 37, 29-51.

Baker, F. B., & Kim, S.-H. (2004). Item response theory. Parameter estimation techniques (2nd ed.). New York, NY: Marcel-Dekker.

Harwell, M. R., Baker, F. B. & Zwarts, M. (1988). Item parameter estimation via marginal maximum likelihood and an EM algorithm: A didactic. Journal of Educational Statistics, 13, 243-271.

Woods, C. M. (2007). Empirical Histograms in Item Response Theory With Ordinal Data. Education and Psychological Measurement, 67:1, 73-87.

Woods, C. M. (2011). DIF Testing With an Empirical-Histogram Approximation of the Latent Density for Each Group. Applied Measurement in Education, 24:3, 256-279.

See Also

reshMG

NRM.sim

nelm

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
# Simulating 3 Items within a loop
ParList <- lapply(1:3,function(x)
{
  Item1 <- c(c(-2,-1,1,2),c(-1.2,0.3,0.2,0.7))
  names(Item1) <- c(paste("zeta",1:4,sep=""),paste("lamb",1:4,sep=""))
  Item1
})

names(ParList) <- paste("item",1:3,sep="")

# simulate person parameters
perp1     <- rnorm(1100,0,1)

# simulate data.frame 
sim.nrm.1 <- NRM.sim(ParList,perp1)

# reshape
reshdat1 <- reshMG(sim.nrm.1,items=1:3,correct=rep(0,3))

# fit the nrm with a maximum number of 40 EM iterations, which is NOT recommanded 
# and is just applied here because estimating the model during example checks on cran
# took too long with default settings

res.nrm <- nrm(reshdat1)

summary(res.nrm)

mcIRT documentation built on May 29, 2017, 9:33 p.m.