>library(flipTransformations)

>library(flipDimensionReduction)

>

>x <- if (!exists("formDataType") || formDataType == "Use an existing table") {
    table.Q4
} else {
    ParseEnteredData(formEnteredData)
}

>attr(x, "row.column.names") <- c(formRowTitle, formColumnTitle)

>row.color <- ifelse(formOutput=="Scatterplot", rowColor, "")

>col.color <- ifelse(formOutput=="Scatterplot", colColor, "")

>

>correspondence.analysis <- CorrespondenceAnalysis(x,
                                                  normalization = formNormalization,
                                                  output = formOutput,
                                                  row.names.to.remove = formIgnoreRows,
                                                  column.names.to.remove = formIgnoreColumns,
                                                  row.color = row.color,
                                                  col.color = col.color)
Total time:1.92s
Time on R server:1.63s
Time evaluating code:1.50s
Bytes sent:3,759
Bytes received:16,468