# NOT RUN {
#Example from Dunlap et al. (2003), Table 3. The listed significance
#value (p=.05) for a group of size 5 with a 7-item response format is
#0.64 or less.
SIMOUT<-ad.m.sim(gsize=5, nitems=1, nresp=7, itemcors=NULL,
type="mean", nrep=1000)
quantile(SIMOUT, c(.05,.01))
# }
Run the code above in your browser using DataLab