The purpose of this factor analysis is to distinguish between components of the CWV scale. With all the data that we collected, we’re in a pretty good position to do that.

how many factors emerge?

paraellel <- fa.parallel(items4FA,fm = 'minres', fa = 'fa')

## Parallel analysis suggests that the number of factors =  4  and the number of components =  NA
threefactor <- fa(items4FA, nfactors = 3, rotate = "oblimin", fm = "minres")

#write.csv(threefactor$loadings,"threefactor_loadings.csv")

hmm, ok, Looks like there are three factors.

Factor 1

CWV_3 (loading: .78): There is really no such thing as “right” and “wrong.” It all boils down to what you can get away with
CWV_8 (loading: .65): Basically people are objects to be quietly and coolly manipulated for one’s own benefit
CWV_4 (loading: .62): One of the most useful skills a person should develop is how to look someone straight in the eye and lie convincingly

Factor 2

CWV_6 (loading: .80): My knowledge and experience tell me that the social world we live in is basically a competitive “jungle” in which the fittest survive and succeed, in which power, wealth, and winning are everything, and might is right
CWV_1 (loading: .65): It’s a dog-eat-dog world where you have to be ruthless at times

Factor 3

CWV_7_R (loading: .63): Do unto others as you would have them do unto you, and never do anything unfair to someone else (R)
CWV_9_R (loading: .61): Honesty is the best policy in all cases (R)

Thoughts

idk, don’t love this scale. It’s way too much. There have to be better and more straightforward ways to get at the construct we care about in context of perspective-taking.