# NOT RUN {
library(iSFun)
data("simData.pca")
x <- simData.pca$x
L <- length(x)
res_homo_m <- ispca(x = x, L = L, mu1 = 0.5, mu2 = 0.002, trace = FALSE, draw = FALSE)
ispca.plot(x = res_homo_m, type = "path")
ispca.plot(x = res_homo_m, type = "loading")
# }
Run the code above in your browser using DataLab