I have an scale of problematic internet use with 5 items rating from 1 to 5. I am trying to get omega coefficient as recommended by Flora (2020), but I get the following error:
Make example reproducible
set.seed(1)
Create example data frame
df <- as.data.frame(matrix(round(runif(n=5, min=1, max=5), 0), nrow=923, ncol = 5))
Define the model
mod_1 <- 'P_INT_USE_1 =~ V1 + V2 + V3 + V4 + V5'
Fit the cfa to obtain omega coefficient from semTools:reliability function
fit_1<- cfa(mod_1, data=df, std.lv=TRUE, ordered=TRUE, estimator='WLSMV')
Any ideas on how to overcome this, please? Thanks in advance!