update shiny app for factor analysis with clean data