# \donttest{
if (requireNamespace("psych", quietly = TRUE)) {
data(bfi, package = "psych")
example_data <- na.omit(bfi[, 1:25])
results <- itemrest(example_data, n_factors = 5)
# Print the default optimal report
print(results)
# Print the report of all strategies
print(results, report = "all")
}
# }
Run the code above in your browser using DataLab