data(ex_qualtrics_results) # loads example results
cat_vect <- ex_qualtrics_results$catObj[-c(1,2)] # vector of Cat embedded data objects
ids <- ex_qualtrics_results$ResponseId[-c(1,2)] # vector of respondent identifiers
# clean answer profiles
clean_df <- readQualtrics(catObj = cat_vect, responseID = ids)
# estimate respondents' positions
setEstimation(agree_cat) <- "MAP"
estimateThetas(catObj = agree_cat, responses = clean_df)
Run the code above in your browser using DataLab