## Not run:
# ## Retrieve data (588 observations)
# data(acs)
#
# # Determine n1 by running the Forward Search for Mokken scale analysis
# # B=100 times
# fwdmsa.res.n1 <- fs.MSA.n1(acs, B=100)
#
# # Plot of number unique subsamples
# plot(fwdmsa.res.n1)
#
# # Plot of number of subsamples not belonging to largest unique subsample (majority)
# plot(fwdmsa.res.n1,n1.type="major")
# ## End(Not run)
Run the code above in your browser using DataLab