data(expenditures)
x <- expenditures
res0 <- pfa(x, factors=1)
## the following produce always the same result:
res1 <- pfa(x, factors=1, covmat="covMcd")
res2 <- pfa(x, factors=1, covmat=covMcd(isomLR(x))$cov)
res3 <- pfa(x, factors=1, covmat=covMcd(isomLR(x)))
Run the code above in your browser using DataLab