# Generate factor data
two_factor <- simulate_factors(
factors = 2, # factors = 2
variables = 6, # variables per factor = 6
loadings = 0.55, # loadings between = 0.45 to 0.65
cross_loadings = 0.05, # cross-loadings N(0, 0.05)
correlations = 0.30, # correlation between factors = 0.30
sample_size = 1000, # number of cases = 1000
variable_categories = 5 # 5-point Likert scale
)
# Add methods factors
two_factor_methods_effect <- add_method_factors(
lf_object = two_factor,
proportion_negative = 0.50,
methods_loadings = 0.20,
methods_loadings_range = 0.10
)
Run the code above in your browser using DataLab