Differences

This shows you the differences between two versions of the page.

--- factor_analysis_examples [2019/11/20 08:55] – [Personality] hkimscil
+++ factor_analysis_examples [2019/12/06 13:45] – created hkimscil
@@ Line 1: / Line 1: @@
-====== FA e.gs ======
+====== 1 ======
+{{:r:EFA.csv}}
+<code>
+# read the dataset into R variable using the read.csv(file) function
+data <- read.csv("http://commres.net/wiki/_media/r/efa.csv")
+head(data)
+</code>
+<code>
+# install the package
+# install.packages("psych")
+# install.packages("GPArotation")
+# load the package
+library(psych)
+library(GPArotation)
+</code>
+<code>
+# calculate the correlation matrix
+corMat <- cor(data)
+# display the correlation matrix
+round(corMat,3)
+</code>
+<code>
+# use fa() to conduct an oblique principal-axis exploratory factor analysis
+# save the solution to an R variable
+solution <- fa(r = corMat, nfactors = 2, rotate = "oblimin", fm = "pa")
+solution2 <- fa(data,  nfactors = 2, rotate = "oblimin", fm = "pa")
+# display the solution output
+solution
+solution2
+</code>
+<code>
+fa.sort(solution)
+</code>