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