-
-
Notifications
You must be signed in to change notification settings - Fork 36
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.
Already on GitHub? Sign in to your account
Support for psych::omega models #136
Comments
@zen-juen is assigned to this 😈 Running here's the code for referencce that Zen wrote for our current study (so we have to make it reusable): om <- psych::omega(m = questions, nfactors = 4, fm = "ml", title = "Omega of LIE Scale", plot = "FALSE", n.obs = nrow(questions), flip=FALSE)
# Table of omega coefficients
table_om <- om$omega.group
colnames(table_om) <- c("Omega (total)", "Omega (hierarchical)", "Omega (group)")
table_om
# Table of variance accounted for
table_variance <- om$omega.group %>%
mutate(Composite = c("G", "F1", "F2", "F3", "F4")) %>%
mutate(Total = total*100,
General = (general/total)*100,
Group = (group/total)*100) %>%
select(Composite, Total, General, Group)
colnames(table_variance) <- c("Composite", "Total Variance (%)", "Variance due to General Factor (%)", "Variance due to Group Factor (%)")
table_variance
# Plot
cor.plot(om) |
We could think of that:
@zen-juen we can start by focusing on (1) |
any news on this? |
still haven't had time to look back into it 😕 |
bump |
bump 😁 |
(I don't have currently any bandwith for that 😢 but one day it will happen 🤞) |
It thought it would be easy and similar to model_parameters.principal, but no 😢
Created on 2019-10-04 by the reprex package (v0.3.0)
The text was updated successfully, but these errors were encountered: