{"size":{"Width":576,"Height":512},"appearance":{"background":"white","padding":14,"font":{"family":"Courier New","size":10.0,"bold":false,"italic":false,"underline":false,"strikeout":false,"color":"rgb(0,72,168)"},"border":{"on":true,"size":0.0,"style":"solid","color":"#666"},"text":{"wrap":false,"hAlign":"left","vAlign":"top"}},"outputType":"WIDGET","widgetState":"{\"X\":[0.5763,0.6474,0.4072,-0.2255,0.3418,0.3062,0.1167,-1.4188,-1.1813,0.3051,-0.0465,0.7807,0.7553,0.9122,0.592,0.7924,0.1335,-1.85,0.1861,1.0321],\"Y\":[-2.4917,0.3994,0.0981,0.7252,-0.3957,-0.6848,-0.0985,-0.0066,0.1929,-1.0401,-1.6619,0.2504,0.5973,0.8834,-3.1301,1.3959,-0.8311,0.6514,-1.5229,1.0038],\"label\":[\"Toyota Prius\",\"Renault Espace\",\"Citroen C4 Picasso\",\"Ford Focus Cmax\",\"Volvo V50\",\"Mercedes C-class\",\"Audi A4\",\"Opel Corsa\",\"Volkswagen Golf\",\"Mini Cooper\",\"Fiat 500\",\"Mazda MX5\",\"BMW X5\",\"Nissan Qashgai\",\"Green\",\"Family\",\"Luxury\",\"Popular\",\"City\",\"Sporty\"],\"viewBoxDim\":{\"width\":402.99841994382024,\"height\":425.09375,\"x\":49.890625,\"y\":45},\"algoPositionedLabs\":[{\"id\":0,\"x\":0.6979498974268891,\"y\":0.7976760772514658},{\"id\":1,\"x\":0.7153046725621031,\"y\":0.2163068917918645},{\"id\":2,\"x\":0.6620267996715391,\"y\":0.3092653349266093},{\"id\":3,\"x\":0.5372364760491467,\"y\":0.17940966423348526},{\"id\":4,\"x\":0.6508357122489085,\"y\":0.3984501488988063},{\"id\":5,\"x\":0.6440848037933464,\"y\":0.4449330340591957},{\"id\":6,\"x\":0.605183909428899,\"y\":0.34584012068965186},{\"id\":7,\"x\":0.2972880897038928,\"y\":0.327764888992271},{\"id\":8,\"x\":0.344824558967107,\"y\":0.2863392798967187},{\"id\":9,\"x\":0.643797173516377,\"y\":0.5226574405833837},{\"id\":10,\"x\":0.5518036452179857,\"y\":0.6374404020119026},{\"id\":11,\"x\":0.7395957649171312,\"y\":0.2720473897241964},{\"id\":12,\"x\":0.7446562972921802,\"y\":0.17995931511527316},{\"id\":13,\"x\":0.7659967624645408,\"y\":0.13819377287178744},{\"id\":14,\"x\":0.7011042373300631,\"y\":0.9192723714596425},{\"id\":15,\"x\":0.7413160108263076,\"y\":0.05714543668872223},{\"id\":16,\"x\":0.5861031263494166,\"y\":0.4813258260510328},{\"id\":17,\"x\":0.21037405363696085,\"y\":0.19912298282777316},{\"id\":18,\"x\":0.6191902279355723,\"y\":0.6010539997153611},{\"id\":19,\"x\":0.7907044078216694,\"y\":0.10095823496976519}]}","outputs":{"console":"<pre class='debug-source'>>library(flipDimensionReduction)\n</pre>\n<pre class='debug-source'>>x <- if (!exists("formDataType") || formDataType == "Use an existing table")\n formTableToAnalyse else flipTransformations::ParseEnteredData(formEnteredData)\n</pre>\n<pre class='debug-source'>>if (exists("formRowTitle"))\n attr(x, "row.column.names") <- c(formRowTitle, formColumnTitle)\n</pre>\n<pre class='debug-source'>>\n</pre>\n<pre class='debug-source'>>ca <- CorrespondenceAnalysis(x,\n normalization = formNormalization,\n output = formOutput,\n focus = formFocus,\n supplementary = formSupplementary,\n trend.lines = formTrendLine,\n transpose = formTranspose,\n max.row.labels.plot = if (exists("formRowMaxLab")) formRowMaxLab else 0,\n max.col.labels.plot = if (exists("formColMaxLab")) formColMaxLab else 0,\n multiple.tables = if (exists("formMult")) formMult else FALSE,\n chart.title = formTitle,\n logos = if (formOutput=="Scatterplot" && formUseLogo) formLogos else NULL,\n logo.size = formLogoSize,\n row.names.to.remove = formIgnoreRows,\n column.names.to.remove = formIgnoreColumns,\n row.color = rowColor,\n col.color = colColor,\n color.palette = formPalette,\n bubble.size = formBubbleSizes,\n bubble.title = formLegendTitle,\n mirror.vertical = TRUE)\n</pre>\n<pre class='debug-source'>>ca.7 <- if (formOutput == "Input Table") print(ca) else ca\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>1.72s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 1.69s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 1.67s (pre 0.00s, post 0.06s) unexplained 0.01s apparmor forking (pre 0.02s, post 0.00s)\">1.69s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>1.59s</td></tr>\r\n<tr><th>Bytes sent:</th><td>3,723</td></tr>\r\n<tr><th>Bytes received:</th><td>12,822</td></tr>\r\n</table>\r\n</div>","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-160538272055e9e31abc\" style=\"width:960px;height:500px;\" class=\"rhtmlLabeledScatter html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-160538272055e9e31abc\">{\"x\":{\"X\":[0.5763,0.6474,0.4072,-0.2255,0.3418,0.3062,0.1167,-1.4188,-1.1813,0.3051,-0.0465,0.7807,0.7553,0.9122,0.592,0.7924,0.1335,-1.85,0.1861,1.0321],\"Y\":[-2.4917,0.3994,0.0981,0.7252,-0.3957,-0.6848,-0.0985,-0.0066,0.1929,-1.0401,-1.6619,0.2504,0.5973,0.8834,-3.1301,1.3959,-0.8311,0.6514,-1.5229,1.0038],\"Z\":{},\"label\":[\"Toyota Prius\",\"Renault Espace\",\"Citroen C4 Picasso\",\"Ford Focus Cmax\",\"Volvo V50\",\"Mercedes C-class\",\"Audi A4\",\"Opel Corsa\",\"Volkswagen Golf\",\"Mini Cooper\",\"Fiat 500\",\"Mazda MX5\",\"BMW X5\",\"Nissan Qashgai\",\"Green\",\"Family\",\"Luxury\",\"Popular\",\"City\",\"Sporty\"],\"labelAlt\":[\"Toyota Prius\",\"Renault Espace\",\"Citroen C4 Picasso\",\"Ford Focus Cmax\",\"Volvo V50\",\"Mercedes C-class\",\"Audi A4\",\"Opel Corsa\",\"Volkswagen Golf\",\"Mini Cooper\",\"Fiat 500\",\"Mazda MX5\",\"BMW X5\",\"Nissan Qashgai\",\"Green\",\"Family\",\"Luxury\",\"Popular\",\"City\",\"Sporty\"],\"group\":[\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Rows\",\"Columns\",\"Columns\",\"Columns\",\"Columns\",\"Columns\",\"Columns\"],\"fixedAspectRatio\":true,\"colors\":[\"#5B9BD5\",\"#ED7D31\"],\"transparency\":null,\"grid\":true,\"origin\":true,\"originAlign\":false,\"xTitle\":\"Dimension 1 (68.1%)\",\"yTitle\":\"Dimension 2 (28.8%)\",\"zTitle\":null,\"title\":\"Correspondence analysis\",\"xDecimals\":null,\"yDecimals\":null,\"zDecimals\":null,\"xPrefix\":\"\",\"yPrefix\":\"\",\"zPrefix\":\"\",\"xSuffix\":\"\",\"ySuffix\":\"\",\"zSuffix\":\"\",\"titleFontFamily\":\"Arial\",\"titleFontColor\":\"#2C2C2C\",\"titleFontSize\":20,\"showLabels\":true,\"labelsFontFamily\":\"Arial\",\"labelsFontColor\":null,\"labelsFontSize\":14,\"labelsLogoScale\":null,\"legendShow\":true,\"legendBubblesShow\":true,\"legendFontColor\":\"#2C2C2C\",\"legendFontFamily\":\"Arial\",\"legendFontSize\":15,\"legendBubbleFontColor\":\"#2C2C2C\",\"legendBubbleFontFamily\":\"Arial\",\"legendBubbleFontSize\":10,\"legendBubbleTitleFontColor\":\"#2C2C2C\",\"legendBubbleTitleFontFamily\":\"Arial\",\"legendBubbleTitleFontSize\":12,\"yTitleFontColor\":\"#2C2C2C\",\"yTitleFontFamily\":\"Arial\",\"yTitleFontSize\":16,\"xTitleFontColor\":\"#2C2C2C\",\"xTitleFontFamily\":\"Arial\",\"xTitleFontSize\":16,\"showXAxis\":true,\"showYAxis\":true,\"axisFontFamily\":\"Arial\",\"axisFontColor\":\"Black\",\"axisFontSize\":10,\"tooltipTitleFontColor\":\"#2C2C2C\",\"toolTipTitleFontFamily\":\"Arial\",\"tooltipTitleFontSize\":10,\"pointRadius\":2,\"xBoundsMinimum\":null,\"xBoundsMaximum\":null,\"yBoundsMinimum\":null,\"yBoundsMaximum\":null,\"xBoundsUnitsMajor\":null,\"yBoundsUnitsMajor\":null,\"trendLines\":false,\"trendLinesLineThickness\":1,\"trendLinesPointSize\":2,\"plotBorderShow\":true,\"debugMode\":false,\"plotBorderColor\":\"Black\",\"plotBorderWidth\":1},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-160538272055e9e31abc\">{\"viewer\":{\"width\":450,\"height\":350,\"padding\":0,\"fill\":true},\"browser\":{\"width\":960,\"height\":500,\"padding\":0,\"fill\":true}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/main-1c2ecf90c95d7abb5b3f8b8a31dc8484.css\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlLabeledScatter-24597fc3de18773424152ac7413098c6.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-cd5c5716917807e1b69e2493221698b2.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlLabeledScatter-4c743b7af5e7a4f064545341d9eac5a5.js\"],\"attachments\":[]}","message":"","warning":"","visible":"yes"},"secondsTaken":1.7182608,"updated":"2017-08-01T00:18:09.6969075Z","lastUpdatedMessage":null,"executedCode":"library(flipDimensionReduction)\nx <- if (!exists(\"formDataType\") || formDataType == \"Use an existing table\")\n formTableToAnalyse else flipTransformations::ParseEnteredData(formEnteredData)\nif (exists(\"formRowTitle\"))\n attr(x, \"row.column.names\") <- c(formRowTitle, formColumnTitle)\n\nca <- CorrespondenceAnalysis(x,\n normalization = formNormalization,\n output = formOutput,\n focus = formFocus,\n supplementary = formSupplementary,\n trend.lines = formTrendLine,\n transpose = formTranspose,\n max.row.labels.plot = if (exists(\"formRowMaxLab\")) formRowMaxLab else 0,\n max.col.labels.plot = if (exists(\"formColMaxLab\")) formColMaxLab else 0,\n multiple.tables = if (exists(\"formMult\")) formMult else FALSE,\n chart.title = formTitle,\n logos = if (formOutput==\"Scatterplot\" && formUseLogo) formLogos else NULL,\n logo.size = formLogoSize,\n row.names.to.remove = formIgnoreRows,\n column.names.to.remove = formIgnoreColumns,\n row.color = rowColor,\n col.color = colColor,\n color.palette = formPalette,\n bubble.size = formBubbleSizes,\n bubble.title = formLegendTitle,\n mirror.vertical = TRUE)\nca.7 <- if (formOutput == \"Input Table\") print(ca) else ca","lastSavedCode":"library(flipDimensionReduction)\nx <- if (!exists(\"formDataType\") || formDataType == \"Use an existing table\")\n formTableToAnalyse else flipTransformations::ParseEnteredData(formEnteredData)\nif (exists(\"formRowTitle\"))\n attr(x, \"row.column.names\") <- c(formRowTitle, formColumnTitle)\n\nca <- CorrespondenceAnalysis(x,\n normalization = formNormalization,\n output = formOutput,\n focus = formFocus,\n supplementary = formSupplementary,\n trend.lines = formTrendLine,\n transpose = formTranspose,\n max.row.labels.plot = if (exists(\"formRowMaxLab\")) formRowMaxLab else 0,\n max.col.labels.plot = if (exists(\"formColMaxLab\")) formColMaxLab else 0,\n multiple.tables = if (exists(\"formMult\")) formMult else FALSE,\n chart.title = formTitle,\n logos = if (formOutput==\"Scatterplot\" && formUseLogo) formLogos else NULL,\n logo.size = formLogoSize,\n row.names.to.remove = formIgnoreRows,\n column.names.to.remove = formIgnoreColumns,\n row.color = rowColor,\n col.color = colColor,\n color.palette = formPalette,\n bubble.size = formBubbleSizes,\n bubble.title = formLegendTitle,\n mirror.vertical = TRUE)\nca.7 <- if (formOutput == \"Input Table\") print(ca) else ca","highlightedCodeSpans":[{"start":68,"length":12,"index":4},{"start":113,"length":18,"index":4},{"start":257,"length":12,"index":4},{"start":271,"length":15,"index":4},{"start":341,"length":17,"index":4},{"start":373,"length":10,"index":4},{"start":397,"length":9,"index":4},{"start":428,"length":17,"index":4},{"start":496,"length":13,"index":4},{"start":566,"length":13,"index":4},{"start":643,"length":13,"index":4},{"start":711,"length":8,"index":4},{"start":750,"length":9,"index":4},{"start":777,"length":10,"index":4},{"start":806,"length":11,"index":4},{"start":896,"length":14,"index":4},{"start":941,"length":17,"index":4},{"start":976,"length":8,"index":4},{"start":1002,"length":8,"index":4},{"start":1156,"length":10,"index":4}],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":true,"guiControls":{"Code":"form.setHeading('Correspondence Analysis of a Table');\nvar isMult = false;\nif (!form.dataEntry)\n{\n multOpt = form.checkBox({label:\"Multiple tables\", name:\"formMult\", default_value:false});\n isMult = multOpt.getValue();\n form.dropBox({label: \"Table\", types:[\"table\", \"RItem\"], name: \"formTableToAnalyse\", multi: isMult});\n}\nelse\n{\n var dt = form.comboBox({name: \"formDataType\", label: \"Data source\", alternatives: [\"Use an existing table\", \"Type or paste data\"], default_value: \"Use an existing table\"})\n if (dt.getValue() == \"Use an existing table\")\n {\n multOpt = form.checkBox({label:\"Multiple tables\", name:\"formMult\", default_value:false});\n isMult = multOpt.getValue();\n form.dropBox({label: \"Table\", types:[\"table\", \"RItem\"], multi:true, name: \"formTableToAnalyse\", multi : isMult});\n }\n else\n form.dataEntry({name: \"formEnteredData\", prompt: \"Opens a spreadsheet into which you can paste data.\"})\n}\nif (isMult)\n form.checkBox({label: \"Trend lines\", name: \"formTrendLine\", default_value: false});\nform.checkBox({label: \"Switch rows and columns\", name: \"formTranspose\", default_value: false});\n\nvar outOpt = form.comboBox({label: \"Output\", alternatives:[\"Scatterplot\", \"Bubble Chart\", \"Moonplot\", \"Text\", \"Input Table\"], name: \"formOutput\", multi : false, default_value: \"Scatterplot\"});\n\nform.comboBox({label: \"Normalization\", alternatives:[\"Principal\", \"Row principal\", \"Row principal (scaled)\", \"Column principal\", \"Column principal (scaled)\", \"Symmetrical (½)\", \"None\"],\n name: \"formNormalization\", multi : false, default_value: \"Principal\"});\n\nform.textBox({label: \"Focus\", name: \"formFocus\", required: false});\nform.textBox({label: \"Supplementary\", name: \"formSupplementary\", required: false});\n\nform.textBox({label: \"Rows to ignore\", type: \"text\", default_value: \"NET, Total, SUM\", name: \"formIgnoreRows\", required: false});\nform.textBox({label: \"Columns to ignore\", type: \"text\", default_value: \"NET, Total, SUM\", name: \"formIgnoreColumns\", required: false});\n\n\nif ([\"Scatterplot\", \"Bubble Chart\"].indexOf(outOpt.getValue()) != -1)\n{\n if (outOpt.getValue() == \"Scatterplot\")\n {\n var logoOpt = form.checkBox({label: \"Use logos for rows\", name:\"formUseLogo\", default_value: false});\n if (logoOpt.getValue())\n {\n form.textBox({name: \"formLogos\", label: \"Logos\", prompt: \"Enter URLs as a comma separated list\", type: \"Text\", required: true});\n form.numericUpDown({name: \"formLogoSize\", label: \"Logo size\", default_value: 0.5, increment: 0.1});\n }\n }\n form.numericUpDown({label: \"Maximum row labels to plot\", name: \"formRowMaxLab\", default_value: 50});\n form.numericUpDown({label: \"Maximum column labels to plot\", name: \"formColMaxLab\", default_value: 50});\n form.textBox({label: \"Chart title\", type: \"text\", default_value: \"Correspondence analysis\", name: \"formTitle\", required: false});\n if (!isMult)\n {\n form.textBox({label: \"Row title\", type: \"text\", default_value: \"Rows\", name: \"formRowTitle\", required: false});\n form.textBox({label: \"Column title\", type: \"text\", default_value: \"Columns\", name: \"formColumnTitle\", required: false});\n form.colorPicker({label: \"Row series color\", name: \"rowColor\", default_value:\"#5B9BD5\"});\n form.colorPicker({label: \"Column series color\", name: \"colColor\", default_value:\"#ED7D31\"});\n if (\"Bubble Chart\" == outOpt.getValue()) {\n form.dropBox({label: \"Bubble sizes\", types:[\"table\", \"RItem\"], name: \"formBubbleSizes\", multi : false, required: false});\n form.textBox({label: \"Legend title\", type: \"text\", default_value: \"\", name: \"formLegendTitle\", required: false});\n }\n }\n}\nif (isMult)\n form.comboBox({name: \"formPalette\", label: \"Color palette\", alternatives: [\"Default colors\", \"Primary colors\", \"Rainbow\", \"Light pastels\", \n \"Strong colors\", \"Reds, dark to light\", \"Reds, light to dark\", \"Greens, dark to light\", \"Greens, light to dark\", \"Blues, dark to light\",\n \"Blues, light to dark\", \"Greys, dark to light\", \"Greys, light to dark\", \n \"Heat colors (red, yellow, white)\", \"Terrain colors (green, beige, grey)\"], default_value: \"Default colors\", required: true});","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Type":"Heading","Label":null,"Value":null,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":"Correspondence Analysis of a Table","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formDataType","Type":"ComboBox","Label":"Data source","Value":"Use an existing table","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Use an existing table","Type or paste data"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formMult","Type":"CheckBox","Label":"Multiple tables","Value":false,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formTableToAnalyse","Type":"DropBox","Label":"Table","Value":"693f7483-39a9-4a96-8b47-d5bc32d8680e","Allowed":["0791e99c-a32b-4f5f-bf34-4418ab0982a2","7f24db81-46cd-4da9-9550-4fd114801cda","f635eb7a-5ca2-4129-bc69-d6c016b487b7","b304b720-1cc8-48d5-b07c-c993245828fb","998fc1a8-428b-4ea1-bcfe-fe103e2c2508","c61d9403-ce12-4cac-b668-82aa3204f80b","693f7483-39a9-4a96-8b47-d5bc32d8680e","5adb3eff-8b03-4c31-a7ec-f95c943afc19","2bf1ad43-20d3-42e5-81bb-88908cc0511f","cefaed33-1b23-4cdc-9122-baa150c779be","f1a6e783-ce84-45af-928d-d57359520b9c","baefc67c-728b-4b57-a9a6-4dbd28c44a70","07953a7c-a18d-47ff-9452-94feccef0f5a","d92d2e54-2e70-451d-a8c8-fa1203cce78a"],"EmptyListMessage":null,"Multi":false,"Prompt":"Select an input which is of type Table or Ritem.","ErrorMessage":"Table: Table accepts only one input which is of type Table or Ritem.","Invalid":null,"Required":true,"AllowedTypes":["table","RItem"],"MinInputs":1,"MaxInputs":1,"Height":1,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formTranspose","Type":"CheckBox","Label":"Switch rows and columns","Value":false,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formOutput","Type":"ComboBox","Label":"Output","Value":"Scatterplot","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Scatterplot","Bubble Chart","Moonplot","Text","Input Table"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formNormalization","Type":"ComboBox","Label":"Normalization","Value":"Row principal","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Principal","Row principal","Row principal (scaled)","Column principal","Column principal (scaled)","Symmetrical (½)","None"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formFocus","Type":"TextBox","Label":"Focus","Value":"","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formSupplementary","Type":"TextBox","Label":"Supplementary","Value":"Toyota Prius, Renault Espace, Citroen C4 Picasso, Ford Focus Cmax, Volvo V50, Opel Corsa, Mini Cooper, Fiat 500, Mazda MX5, Nissan Qashgai","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formIgnoreRows","Type":"TextBox","Label":"Rows to ignore","Value":"NET, Total, SUM","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formIgnoreColumns","Type":"TextBox","Label":"Columns to ignore","Value":"NET, Total, SUM","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formUseLogo","Type":"CheckBox","Label":"Use logos for rows","Value":false,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formRowMaxLab","Type":"NumericUpDown","Label":"Maximum row labels to plot","Value":50.0,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":"Maximum row labels to plot: ","Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":1.0,"Min":0.0,"Max":100.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formColMaxLab","Type":"NumericUpDown","Label":"Maximum column labels to plot","Value":50.0,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":"Maximum column labels to plot: ","Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":1.0,"Min":0.0,"Max":100.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formTitle","Type":"TextBox","Label":"Chart title","Value":"Correspondence analysis","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formRowTitle","Type":"TextBox","Label":"Row title","Value":"Rows","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formColumnTitle","Type":"TextBox","Label":"Column title","Value":"Columns","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"rowColor","Type":"ColorPicker","Label":"Row series color","Value":"rgb(91, 155, 213)","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":"Row series color: ","Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"colColor","Type":"ColorPicker","Label":"Column series color","Value":"rgb(237, 125, 49)","Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":"Column series color: ","Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Type":null,"Label":null,"Value":null,"Allowed":null,"EmptyListMessage":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":true}]},"calculating":"Idle","showDebug":false,"layout":"OutputOnly","vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Manual","warnSlow":false,"Options":{"debugconsole":false,"codeposition":"OutputOnly","splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Manual","warn slow":false}}
>library(flipDimensionReduction)
>x <- if (!exists("formDataType") || formDataType == "Use an existing table")
formTableToAnalyse else flipTransformations::ParseEnteredData(formEnteredData)
>if (exists("formRowTitle"))
attr(x, "row.column.names") <- c(formRowTitle, formColumnTitle)
>
>ca <- CorrespondenceAnalysis(x,
normalization = formNormalization,
output = formOutput,
focus = formFocus,
supplementary = formSupplementary,
trend.lines = formTrendLine,
transpose = formTranspose,
max.row.labels.plot = if (exists("formRowMaxLab")) formRowMaxLab else 0,
max.col.labels.plot = if (exists("formColMaxLab")) formColMaxLab else 0,
multiple.tables = if (exists("formMult")) formMult else FALSE,
chart.title = formTitle,
logos = if (formOutput=="Scatterplot" && formUseLogo) formLogos else NULL,
logo.size = formLogoSize,
row.names.to.remove = formIgnoreRows,
column.names.to.remove = formIgnoreColumns,
row.color = rowColor,
col.color = colColor,
color.palette = formPalette,
bubble.size = formBubbleSizes,
bubble.title = formLegendTitle,
mirror.vertical = TRUE)
>ca.7 <- if (formOutput == "Input Table") print(ca) else ca
| Total time: | 1.72s |
|---|
| Time on R server: | 1.69s |
|---|
| Time evaluating code: | 1.59s |
|---|
| Bytes sent: | 3,723 |
|---|
| Bytes received: | 12,822 |
|---|
QUEUED FOR CALCULATION
CALCULATING