# 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
)
# Transform data to Mandelbrot's Zipf's
two_factor_zipfs <- data_to_zipfs(
lf_object = two_factor,
beta = 2.7,
alpha = 1
)
# Transform data to Mandelbrot's Zipf's (dichotomous)
two_factor_zipfs_binary <- data_to_zipfs(
lf_object = two_factor,
beta = 2.7,
alpha = 1,
dichotomous = TRUE
)
Run the code above in your browser using DataLab