1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/efa.R
\name{rotate-deprecated}
\alias{rotate-deprecated}
\title{Implement orthogonal or oblique rotation}
\usage{
orthRotate(object, method = "varimax", ...)
oblqRotate(object, method = "quartimin", ...)
funRotate(object, fun, ...)
}
\arguments{
\item{object}{A lavaan output}
\item{method}{The method of rotations, such as \code{"varimax"},
\code{"quartimax"}, \code{"geomin"}, \code{"oblimin"}, or any gradient
projection algorithms listed in the \code{\link[GPArotation]{GPA}} function
in the \code{GPArotation} package.}
\item{fun}{The name of the function that users wish to rotate the
standardized solution. The functions must take the first argument as the
standardized loading matrix and return the \code{GPArotation} object. Check
this page for available functions: \code{\link[GPArotation]{rotations}}.}
\item{\dots}{Additional arguments for the \code{\link[GPArotation]{GPForth}}
function (for \code{orthRotate}), the \code{\link[GPArotation]{GPFoblq}}
function (for \code{oblqRotate}), or the function that users provide in the
\code{fun} argument.}
}
\value{
An \code{linkS4class{EFA}} object that saves the rotated EFA solution
}
\description{
These functions will implement orthogonal or oblique rotation on
standardized factor loadings from a lavaan output.
}
\details{
These functions will rotate the unrotated standardized factor loadings by
orthogonal rotation using the \code{\link[GPArotation]{GPForth}} function or
oblique rotation using the \code{\link[GPArotation]{GPFoblq}} function the
\code{GPArotation} package. The resulting rotation matrix will be used to
calculate standard errors of the rotated standardized factor loading by
delta method by numerically computing the Jacobian matrix by the
\code{\link[lavaan]{lav_func_jacobian_simple}} function.
}
\examples{
\donttest{
unrotated <- efaUnrotate(HolzingerSwineford1939, nf = 3,
varList = paste0("x", 1:9), estimator = "mlr")
# Orthogonal varimax
out.varimax <- orthRotate(unrotated, method = "varimax")
summary(out.varimax, sort = FALSE, suppress = 0.3)
# Orthogonal Quartimin
orthRotate(unrotated, method = "quartimin")
# Oblique Quartimin
oblqRotate(unrotated, method = "quartimin")
# Geomin
oblqRotate(unrotated, method = "geomin")
# Target rotation
library(GPArotation)
target <- matrix(0, 9, 3)
target[1:3, 1] <- NA
target[4:6, 2] <- NA
target[7:9, 3] <- NA
colnames(target) <- c("factor1", "factor2", "factor3")
## This function works with GPArotation version 2012.3-1
funRotate(unrotated, fun = "targetQ", Target = target)
}
}
\seealso{
\code{\link{semTools-deprecated}}
}
\author{
Sunthud Pornprasertmanit (\email{psunthud@gmail.com})
}
\keyword{internal}
|
