if (FALSE) { # require("nFactors")
data(mtcars)
result <- parameters::n_factors(mtcars, type = "PCA")
result
plot(result) # type = "bar" by default
plot(result, type = "line")
plot(result, type = "area")
}
Run the code above in your browser using DataLab