# Examples should be fast and reproducible for CRAN checks
set.seed(123)
# 1. Generate synthetic data using CoFM (toy example)
sim <- CoFM(n = 200, p = 6, m = 2, type = "Clayton", param = 2.0)
obs_data <- sim$data
# 2. Apply FanPC method (extract 2 factors)
fit <- FanPC_basic(data = obs_data, m = 2)
# 3. Inspect estimates
head(fit$AF) # Estimated loadings
fit$DF # Estimated uniquenesses
Run the code above in your browser using DataLab