# \donttest{
# Basic usage with binary data
ii_analysis <- InterItemAnalysis(J15S500)
# View joint sample sizes
head(ii_analysis$JSS)
# View tetrachoric correlations
head(ii_analysis$Tetrachoric)
# Find pairs of items with high mutual information (potential local dependence)
high_MI <- which(ii_analysis$MI > 0.2 & upper.tri(ii_analysis$MI), arr.ind = TRUE)
if (nrow(high_MI) > 0) {
print("Item pairs with high mutual information:")
print(high_MI)
}
# Example with ordinal data
ordinal_analysis <- InterItemAnalysis(J15S3810)
# View polychoric correlations for ordinal data
head(ordinal_analysis$Polychoric)
# }
Run the code above in your browser using DataLab