## Not run:
# set.seed(1)
# sim <- fsvsim(series = 8, factors = 2) # simulate
# res <- fsvsample(sim$y, factors = 2, signswitch = TRUE,
# draws = 2000, burnin = 1000) # estimate
#
# # Plot unidentified loadings:
# facloaddensplot(res, fsvsimobj = sim, rows = 8)
#
# # Identify:
# res <- signident(res)
#
# # Plot identified loadings:
# facloaddensplot(res, fsvsimobj = sim, rows = 8)
# ## End(Not run)
Run the code above in your browser using DataLab