MFA/server.R

In Rui1521/R-package-for-Multiple-Factor-Analysis: Multiple Factor Analysis

#Shinny app(MFA)
#

library(shiny)


shinyServer(function(input, output) {

  output$distPlot <- renderPlot({
    data = read.csv("wines.csv")
    data = data[,2:54]
    sets = list(1:6,7:12,13:18,19:23,24:29,30:34,35:38,39:44,45:49,50:53)
    obj = mfa(data = data, sets, center = TRUE, scale = TRUE)
#Eigenvalues bar-chart
    if (input$var == "Eigenvalues")
    {barplot( obj@eigenvalues, main = "Eigenvalues" )}

#a scatterplot of the common factor scores
    if (input$var == "Common factor scores")
    {compromise_plot(obj)}

#a scatterplot of the partial factors scores
    if (input$var == "Partial factors scores")
    {pfs_plot(obj,as.numeric(input$guy))}

#a scatterplot of theloadings
    if (input$var == "Loadings")
      {loadings_plot(obj,as.numeric(input$guy))}
  })

})