# \donttest{
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)
# }
Run the code above in your browser using DataLab