View source: R/convenienceFunctions.R
semPower.powerLav | R Documentation |
Perform a power analysis given lavaan
model strings defining the H0 and the H1 model based on either
a lavaan
model string defining the population model or the population covariance matrix Sigma and the population means mu.
This requires the lavaan
package.
semPower.powerLav(
type,
modelPop = NULL,
modelH0 = NULL,
modelH1 = NULL,
fitH1model = TRUE,
Sigma = NULL,
mu = NULL,
fittingFunction = "ML",
simulatedPower = FALSE,
lavOptions = NULL,
lavOptionsH1 = lavOptions,
...
)
type |
type of power analysis, one of |
modelPop |
|
modelH0 |
|
modelH1 |
|
fitH1model |
whether to fit the H1 model. If |
Sigma |
can be used instead of |
mu |
can be used instead of |
fittingFunction |
one of |
simulatedPower |
whether to perform a simulated ( |
lavOptions |
a list of additional options passed to |
lavOptionsH1 |
alternative options passed to |
... |
mandatory further parameters related to the specific type of power analysis requested, see |
Generic function to perform a power analysis based on a true population covariance matrix Sigma
and a model implied covariance matrix SigmaHat (and optionally the associated mean vectors),
where SigmaHat (and muHat) is determined by fitting a respective H0 model using lavaan
,
and Sigma (and mu) can also be provided through a corresponding lavaan
model string.
All semPower
convenience functions internally call this function.
Beyond the arguments explicitly contained in the function call, additional arguments are required specifying the requested type of power analysis:
alpha
: The alpha error probability. Required for type = 'a-priori'
and type = 'post-hoc'
.
Either beta
or power
: The beta error probability and the statistical power (1 - beta), respectively. Only for type = 'a-priori'
.
N
: The sample size. Always required for type = 'post-hoc'
and type = 'compromise'
. For type = 'a-priori'
and multiple group analysis, N
is a list of group weights.
abratio
: The ratio of alpha to beta. Only for type = 'compromise'
.
If a simulated power analysis (simulatedPower = TRUE
) is requested, optional arguments can be provided as a list to simOptions
:
nReplications
: The targeted number of simulation runs. Defaults to 250, but larger numbers greatly improve accuracy at the expense of increased computation time.
minConvergenceRate
: The minimum convergence rate required, defaults to .5. The maximum actual simulation runs are increased by a factor of 1/minConvergenceRate.
type
: specifies whether the data should be generated from a population assuming multivariate normality ('normal'
; the default), or based on an approach generating non-normal data ('IG'
, 'mnonr'
, 'RC'
, or 'VM'
).
The approaches generating non-normal data require additional arguments detailed below.
missingVars
: vector specifying the variables containing missing data (defaults to NULL).
missingVarProp
: can be used instead of missingVars
: The proportion of variables containing missing data (defaults to zero).
missingProp
: The proportion of missingness for variables containing missing data (defaults to zero), either a single value or a vector giving the probabilities for each variable.
missingMechanism
: The missing data mechanism, one of MCAR
(the default), MAR
, or NMAR
.
nCores
: The number of cores to use for parallel processing. Defaults to 1 (= no parallel processing). This requires the doSNOW
package.
type = 'IG'
implements the independent generator approach (IG, Foldnes & Olsson, 2016) approach
specifying third and fourth moments of the marginals, and thus requires that skewness (skewness
) and excess kurtosis (kurtosis
) for each variable are provided as vectors. This requires the covsim
package.
type = 'mnonr'
implements the approach suggested by Qu, Liu, & Zhang (2020) and requires provision of Mardia's multivariate skewness (skewness
) and kurtosis (kurtosis
), where
skewness must be non-negative and kurtosis must be at least 1.641 skewness + p (p + 0.774), where p is the number of variables. This requires the mnonr
package.
type = 'RK'
implements the approach suggested by Ruscio & Kaczetow (2008) and requires provision of the population distributions
of each variable (distributions
). distributions
must be a list (if all variables shall be based on the same population distribution) or a list of lists.
Each component must specify the population distribution (e.g. rchisq
) and additional arguments (list(df = 2)
).
type = 'VM'
implements the third-order polynomial method (Vale & Maurelli, 1983)
specifying third and fourth moments of the marginals, and thus requires that skewness (skewness
) and excess kurtosis (kurtosis
) for each variable are provided as vectors. This requires the semTools
package.
a list. Use the summary
method to obtain formatted results. Beyond the results of the power analysis and a number of effect size measures, the list contains the following components:
Sigma |
the population covariance matrix. A list for multiple group models. |
mu |
the population mean vector or |
SigmaHat |
the H0 model implied covariance matrix. A list for multiple group models. |
muHat |
the H0 model implied mean vector or |
modelH0 |
|
modelH1 |
|
simRes |
detailed simulation results when a simulated power analysis ( |
semPower.aPriori()
semPower.postHoc()
semPower.compromise()
## Not run:
# set up two CFA factors with a true correlation of .2
mPop <- '
f1 =~ .5*x1 + .6*x2 + .4*x3
f2 =~ .7*x4 + .8*x5 + .3*x6
x1 ~~ .75*x1
x2 ~~ .64*x2
x3 ~~ .84*x3
x4 ~~ .51*x4
x5 ~~ .36*x5
x6 ~~ .91*x6
f1 ~~ 1*f1
f2 ~~ 1*f2
f1 ~~ .2*f2
'
# define the H0 analysis model (restricting the factor correlation to zero)
mH0 <- '
f1 =~ x1 + x2 + x3
f2 =~ x4 + x5 + x6
f1 ~~ 0*f2
'
# determine N to reject the H0 that the correlation is zero
# with a power of 95% on alpha = .05
powerLav <- semPower.powerLav(type = 'a-priori',
modelPop = mPop, modelH0 = mH0,
alpha = .05, beta = .05)
summary(powerLav)
# same as above, but also define an H1 comparison model
mH1 <- '
f1 =~ x1 + x2 + x3
f2 =~ x4 + x5 + x6
f1 ~~ f2
'
powerLav <- semPower.powerLav(type = 'a-priori',
modelPop = mPop, modelH0 = mH0, modelH1 = mH1,
alpha = .05, beta = .05)
# same as above, but use covariance matrix input instead of modelPop
gen <- semPower.genSigma(Phi = .2,
loadings = list(c(.5, .6, .4), c(.7, .8, .3)))
Sigma <- gen$Sigma
powerLav <- semPower.powerLav(type = 'a-priori',
Sigma = Sigma, modelH0 = mH0,
alpha = .05, beta = .05)
# note all of the above is identical to the output provided by the semPower.powerCFA function
powerCFA <- semPower.powerCFA(type = 'a-priori',
comparison = 'saturated',
Phi = .2,
loadings = list(c(.5, .6, .4), c(.7, .8, .3)),
alpha = .05, beta = .05)
# same as above, but perform simulated power analysis
# with 250 replications using a robust ML test-statistic
set.seed(300121)
powerLav <- semPower.powerLav(type = 'a-priori',
Sigma = Sigma, modelH0 = mH0,
alpha = .05, beta = .05,
simulatedPower = TRUE,
simOptions = list(nReplications = 250)
lavOptions = list(estimator = 'MLM'))
## End(Not run)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.