{"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":null,"outputs":{"console":"<pre class='debug-source'>&gt;library(flipData)\n</pre>\n<pre class='debug-source'>&gt;library(flipFormat)\n</pre>\n<pre class='debug-source'>&gt;library(flipStatistics)\n</pre>\n<pre class='debug-source'>&gt;library(flipTransformations)\n</pre>\n<pre class='debug-source'>&gt;library(rhtmlHeatmap)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;dat &lt;- if (formInputType == &quot;Variables&quot;) {\n var.dat &lt;- AsNumeric(data.frame(q2a, q2b, q2c, q2d, q2e, q2f), binary = FALSE)\n # Changing names to labels.\n if (!formNames)\n for (i in 1:ncol(var.dat))\n {\n label &lt;- attr(var.dat[, i], &quot;label&quot;)\n if (!is.null(label))\n names(var.dat)[i] &lt;- label\n }\n var.dat\n} else if (formInputType == &quot;Questions&quot;) {\n names.to.remove &lt;- trimws(unlist(strsplit(formIgnore, split = &quot;,&quot;)))\n AsNumeric(QuestionListToDataFrame(formQuestions, names.to.remove = names.to.remove), binary = FALSE)\n} else if (formInputType == &quot;Table&quot;) {\n mat &lt;- GetTidyTwoDimensionalArray(formTable, formIgnore, formIgnore)\n df &lt;- AsNumeric(data.frame(mat, check.names = FALSE))\n if (!is.null(QCalibratedWeight))\n warning(&quot;Weights applied to this item have been ignored as they are not applicable when the input is a table.&quot;)\n if (any(QFilter != 1))\n warning(&quot;Filter(s) applied to this item have been ignored as they are not applicable when the input is a table.&quot;)\n df\n} else\n stop(paste(&quot;Input type not handled:&quot;, formInputType))\n</pre>\n<pre class='debug-warning'>Data has been automatically been converted to being numeric. Values are assigned in the order of the categories: 1, 2, 3... To use alternative numeric values you should instead transform the data prior including it in this analysis (e.g., by changing its structure): Cola drinking frequency: Coca-Cola (q2a), Cola drinking frequency: Diet Coke (q2b), Cola drinking frequency: Coke Zero (q2c), Cola drinking frequency: Pepsi (q2d), Cola drinking frequency: Diet Pepsi (q2e), Cola drinking frequency: Pepsi Max (q2f)</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;wgt &lt;- if (is.null(QCalibratedWeight) || formInputType == &quot;Table&quot;) {\n rep(1, nrow(dat))\n} else\n QCalibratedWeight\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;if (formInputType != &quot;Table&quot;) {\n dat &lt;- dat[QFilter, ]\n wgt &lt;- wgt[QFilter]\n}\n</pre>\n<pre class='debug-source'>&gt; \n</pre>\n<pre class='debug-source'>&gt;processed.data &lt;- if (formMissing == &quot;Error if missing data&quot;) {\n ErrorIfMissingDataFound(dat)\n} else if (formMissing == &quot;Exclude cases with missing data&quot;) {\n RemoveCasesWithAnyNA(dat)\n} else if (formMissing == &quot;Use partial data&quot;) {\n RemoveCasesWithAllNA(dat)\n} else\n stop(c(&quot;Option not handled:&quot;, formMissing))\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;wgt &lt;- wgt[row.names(dat) %in% rownames(processed.data)]\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;result &lt;- CorrelationsWithSignificance(processed.data, wgt, formSpearman)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;n &lt;- ncol(result$cor)\n</pre>\n<pre class='debug-source'>&gt;cellnote &lt;- matrix(&quot;&quot;, n, n)\n</pre>\n<pre class='debug-source'>&gt;t.stat &lt;- matrix(&quot;&quot;, n, n)\n</pre>\n<pre class='debug-source'>&gt;p.val &lt;- matrix(&quot;&quot;, n, n)\n</pre>\n<pre class='debug-source'>&gt;for (i in 1:n)\n for (j in 1:n)\n {\n cellnote[i, j] &lt;- FormatWithDecimals(result$cor[i, j], 2)\n t.stat[i, j] &lt;- FormatWithDecimals(result$t[i, j], 3)\n p.val[i, j] &lt;- FormatWithDecimals(result$p[i, j], 3)\n }\n</pre>\n<pre class='debug-source'>&gt;show.cellnote.in.cell &lt;- n &lt;= 15\n</pre>\n<pre class='debug-source'>&gt;hide.axes.labels &lt;- n &gt; 20\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;tooltip.info &lt;- list(&quot;t-statistic&quot; = t.stat,\n &quot;p-value&quot; = p.val)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;r.output.1 &lt;- rhtmlHeatmap::Heatmap(result$cor, Rowv = NULL, Colv = NULL,\n cellnote = cellnote, colors = &quot;RdBu&quot;,\n show_cellnote_in_cell = show.cellnote.in.cell,\n xaxis_location = &quot;bottom&quot;, yaxis_location = &quot;left&quot;,\n lower_triangle = TRUE, cexRow = 0.79,\n xaxis_hidden = hide.axes.labels,\n yaxis_hidden = hide.axes.labels,\n color_range = c(-1, 1),\n extra_tooltip_info = tooltip.info)\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>2.59s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 2.43s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.01s session$eval 2.41s (pre 0.00s, post 0.52s) unexplained 0.02s apparmor forking (pre 0.02s, post 0.00s)\">2.43s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>1.86s</td></tr>\r\n<tr><th>Bytes sent:</th><td>9,764</td></tr>\r\n<tr><th>Bytes received:</th><td>15,039</td></tr>\r\n</table>\r\n</div>","warning":"Data has been automatically been converted to being numeric. Values are assigned in the order of the categories: 1, 2, 3... To use alternative numeric values you should instead transform the data prior including it in this analysis (e.g., by changing its structure): Cola drinking frequency: Coca-Cola (q2a), Cola drinking frequency: Diet Coke (q2b), Cola drinking frequency: Coke Zero (q2c), Cola drinking frequency: Pepsi (q2d), Cola drinking frequency: Diet Pepsi (q2e), Cola drinking frequency: Pepsi Max (q2f)","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-78056b4ece9d8296731e\" style=\"width:960px;height:500px;\" class=\"rhtmlHeatmap html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-78056b4ece9d8296731e\">{\"x\":{\"rows\":null,\"cols\":null,\"matrix\":{\"data\":[\"1.00\",\"-0.30\",\"-0.15\",\"0.37\",\"-0.24\",\"-0.19\",\"-0.30\",\"1.00\",\"0.31\",\"-0.16\",\"0.34\",\"0.16\",\"-0.15\",\"0.31\",\"1.00\",\"-0.09\",\"0.09\",\"0.24\",\"0.37\",\"-0.16\",\"-0.09\",\"1.00\",\"0.12\",\"0.25\",\"-0.24\",\"0.34\",\"0.09\",\"0.12\",\"1.00\",\"0.30\",\"-0.19\",\"0.16\",\"0.24\",\"0.25\",\"0.30\",\"1.00\"],\"dim\":[6,6],\"rows\":[\"Coca-Cola\",\"Diet Coke\",\"Coke Zero\",\"Pepsi\",\"Diet Pepsi\",\"Pepsi Max\"],\"cols\":[\"Coca-Cola\",\"Diet Coke\",\"Coke Zero\",\"Pepsi\",\"Diet Pepsi\",\"Pepsi Max\"],\"cells_to_hide\":[0,1,1,1,1,1,0,0,1,1,1,1,0,0,0,1,1,1,0,0,0,0,1,1,0,0,0,0,0,1,0,0,0,0,0,0],\"cellnote_in_cell\":[\"1.00\",\"-0.30\",\"-0.15\",\"0.37\",\"-0.24\",\"-0.19\",\"-0.30\",\"1.00\",\"0.31\",\"-0.16\",\"0.34\",\"0.16\",\"-0.15\",\"0.31\",\"1.00\",\"-0.09\",\"0.09\",\"0.24\",\"0.37\",\"-0.16\",\"-0.09\",\"1.00\",\"0.12\",\"0.25\",\"-0.24\",\"0.34\",\"0.09\",\"0.12\",\"1.00\",\"0.30\",\"-0.19\",\"0.16\",\"0.24\",\"0.25\",\"0.30\",\"1.00\"]},\"image\":\"data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAYAAAAGCAYAAADgzO9IAAAAoUlEQVQImQGWAGn/AQUwYf/1kEQAAiIuAKHoDgBfBtgAAQ0RAAD6wKX/BTBh/7DU5v/84dH/pc7j/9np8v8A/OLT/7DU5v8FMGH/+uvi/+bv9P/F3+z/AJ3K4f/84dH/+uvi/wUwYf/g7PP/wt3s/wD80Ln/pc7j/+bv9P/g7PP/BTBh/7PW5/8B/d3K/9wMKADs9voA/f4AAPH5+wBSWnoAFltiEUz5bYcAAAAASUVORK5CYII=\",\"theme\":null,\"options\":{\"xaxis_height\":80,\"yaxis_width\":120,\"xaxis_font_size\":11.06,\"yaxis_font_size\":11,\"xaxis_location\":\"bottom\",\"yaxis_location\":\"left\",\"xaxis_title\":null,\"yaxis_title\":null,\"xaxis_title_font_size\":14,\"yaxis_title_font_size\":14,\"xaxis_hidden\":false,\"yaxis_hidden\":false,\"xaxis_font_family\":\"sans-serif\",\"yaxis_font_family\":\"sans-serif\",\"title\":null,\"title_font_size\":24,\"title_font_family\":\"sans-serif\",\"title_font_color\":\"#000000\",\"subtitle\":null,\"subtitle_font_size\":18,\"subtitle_font_family\":\"sans-serif\",\"subtitle_font_color\":\"#000000\",\"footer\":null,\"footer_font_size\":11,\"footer_font_family\":\"sans-serif\",\"footer_font_color\":\"#000000\",\"tip_font_size\":11,\"tip_font_family\":\"sans-serif\",\"brush_color\":\"#0000FF\",\"show_grid\":true,\"legend_font_size\":11,\"x_is_factor\":false,\"legend_colors\":[\"#053061\",\"#0A3A70\",\"#10457F\",\"#16508E\",\"#1C5C9E\",\"#2267AC\",\"#2A70B1\",\"#3279B6\",\"#3882BB\",\"#3E8BBF\",\"#4795C4\",\"#599FCA\",\"#6AA9CF\",\"#79B3D5\",\"#88BEDA\",\"#96C7DF\",\"#A3CDE3\",\"#B0D4E6\",\"#BDDAEA\",\"#CAE1EE\",\"#D4E6F1\",\"#DCEAF2\",\"#E4EEF3\",\"#EBF1F5\",\"#F3F5F6\",\"#F8F4F2\",\"#F9EEE8\",\"#FBE9DE\",\"#FCE3D5\",\"#FDDDCB\",\"#FCD4BE\",\"#FBC9B0\",\"#F9BEA2\",\"#F7B394\",\"#F5A886\",\"#F09B7A\",\"#EA8E6F\",\"#E48064\",\"#DE715A\",\"#D7634F\",\"#D05647\",\"#C94A40\",\"#C23C39\",\"#BA2D32\",\"#B31A2C\",\"#A41329\",\"#940E26\",\"#850824\",\"#760322\",\"#67001F\"],\"legend_range\":[-1,1],\"legend_width\":60,\"legend_digits\":1,\"shownote_in_cell\":true,\"cell_font_size\":11,\"left_columns\":null,\"left_columns_font_size\":11,\"right_columns\":null,\"right_columns_font_size\":11,\"extra_tooltip_info\":{\"t-statistic\":[\"Inf\",\"-5.011\",\"-2.718\",\"6.887\",\"-3.708\",\"-3.327\",\"-5.011\",\"Inf\",\"5.409\",\"-2.886\",\"4.972\",\"3.053\",\"-2.718\",\"5.409\",\"Inf\",\"-1.674\",\"1.658\",\"4.348\",\"6.887\",\"-2.886\",\"-1.674\",\"Inf\",\"1.840\",\"3.998\",\"-3.708\",\"4.972\",\"1.658\",\"1.840\",\"Inf\",\"4.615\",\"-3.327\",\"3.053\",\"4.348\",\"3.998\",\"4.615\",\"Inf\"],\"p-value\":[\"0.000\",\"0.000\",\"0.007\",\"0.000\",\"0.000\",\"0.001\",\"0.000\",\"0.000\",\"0.000\",\"0.004\",\"0.000\",\"0.002\",\"0.007\",\"0.000\",\"0.000\",\"0.095\",\"0.098\",\"0.000\",\"0.000\",\"0.004\",\"0.095\",\"0.000\",\"0.067\",\"0.000\",\"0.000\",\"0.000\",\"0.098\",\"0.067\",\"0.000\",\"0.000\",\"0.001\",\"0.002\",\"0.000\",\"0.000\",\"0.000\",\"0.000\"]},\"anim_duration\":500,\"yclust_width\":0,\"xclust_height\":0}},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-78056b4ece9d8296731e\">{\"viewer\":{\"width\":450,\"height\":350,\"padding\":5,\"fill\":true},\"browser\":{\"width\":960,\"height\":500,\"padding\":5,\"fill\":true}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/heatmapcore-0b0c3c977a3de18d1ff639e311c1249c.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-d2ab507a7e7d3e3d7c2178bda9d4c762.js\",\"https://rserverhtmlwidgetasset.azureedge.net/d3.min-fe2151217025e25f119e69ca126390f4.js\",\"https://rserverhtmlwidgetasset.azureedge.net/heatmapcore-e2f210a7754f3fcbeddce04d2f73b348.js\",\"https://rserverhtmlwidgetasset.azureedge.net/index-1868b419773570135e12157d84680fcc.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlHeatmap-fce4de827a4fdb1bd7d1317d03394668.js\"],\"attachments\":[]}","message":"","visible":"yes"},"secondsTaken":2.5868993000000002,"updated":"2017-05-18T06:52:58.7143322Z","lastUpdatedMessage":null,"executedCode":"library(flipData)\nlibrary(flipFormat)\nlibrary(flipStatistics)\nlibrary(flipTransformations)\nlibrary(rhtmlHeatmap)\n\ndat <- if (formInputType == \"Variables\") {\n var.dat <- AsNumeric(data.frame(q2a, q2b, q2c, q2d, q2e, q2f), binary = FALSE)\n # Changing names to labels.\n if (!formNames)\n for (i in 1:ncol(var.dat))\n {\n label <- attr(var.dat[, i], \"label\")\n if (!is.null(label))\n names(var.dat)[i] <- label\n }\n var.dat\n} else if (formInputType == \"Questions\") {\n names.to.remove <- trimws(unlist(strsplit(formIgnore, split = \",\")))\n AsNumeric(QuestionListToDataFrame(formQuestions, names.to.remove = names.to.remove), binary = FALSE)\n} else if (formInputType == \"Table\") {\n mat <- GetTidyTwoDimensionalArray(formTable, formIgnore, formIgnore)\n df <- AsNumeric(data.frame(mat, check.names = FALSE))\n if (!is.null(QCalibratedWeight))\n warning(\"Weights applied to this item have been ignored as they are not applicable when the input is a table.\")\n if (any(QFilter != 1))\n warning(\"Filter(s) applied to this item have been ignored as they are not applicable when the input is a table.\")\n df\n} else\n stop(paste(\"Input type not handled:\", formInputType))\n\nwgt <- if (is.null(QCalibratedWeight) || formInputType == \"Table\") {\n rep(1, nrow(dat))\n} else\n QCalibratedWeight\n\nif (formInputType != \"Table\") {\n dat <- dat[QFilter, ]\n wgt <- wgt[QFilter]\n}\n \nprocessed.data <- if (formMissing == \"Error if missing data\") {\n ErrorIfMissingDataFound(dat)\n} else if (formMissing == \"Exclude cases with missing data\") {\n RemoveCasesWithAnyNA(dat)\n} else if (formMissing == \"Use partial data\") {\n RemoveCasesWithAllNA(dat)\n} else\n stop(c(\"Option not handled:\", formMissing))\n\nwgt <- wgt[row.names(dat) %in% rownames(processed.data)]\n\nresult <- CorrelationsWithSignificance(processed.data, wgt, formSpearman)\n\nn <- ncol(result$cor)\ncellnote <- matrix(\"\", n, n)\nt.stat <- matrix(\"\", n, n)\np.val <- matrix(\"\", n, n)\nfor (i in 1:n)\n for (j in 1:n)\n {\n cellnote[i, j] <- FormatWithDecimals(result$cor[i, j], 2)\n t.stat[i, j] <- FormatWithDecimals(result$t[i, j], 3)\n p.val[i, j] <- FormatWithDecimals(result$p[i, j], 3)\n }\nshow.cellnote.in.cell <- n <= 15\nhide.axes.labels <- n > 20\n\ntooltip.info <- list(\"t-statistic\" = t.stat,\n \"p-value\" = p.val)\n\nr.output.1 <- rhtmlHeatmap::Heatmap(result$cor, Rowv = NULL, Colv = NULL,\n cellnote = cellnote, colors = \"RdBu\",\n show_cellnote_in_cell = show.cellnote.in.cell,\n xaxis_location = \"bottom\", yaxis_location = \"left\",\n lower_triangle = TRUE, cexRow = 0.79,\n xaxis_hidden = hide.axes.labels,\n yaxis_hidden = hide.axes.labels,\n color_range = c(-1, 1),\n extra_tooltip_info = tooltip.info)","lastSavedCode":"library(flipData)\nlibrary(flipFormat)\nlibrary(flipStatistics)\nlibrary(flipTransformations)\nlibrary(rhtmlHeatmap)\n\ndat <- if (formInputType == \"Variables\") {\n var.dat <- AsNumeric(data.frame(q2a, q2b, q2c, q2d, q2e, q2f), binary = FALSE)\n # Changing names to labels.\n if (!formNames)\n for (i in 1:ncol(var.dat))\n {\n label <- attr(var.dat[, i], \"label\")\n if (!is.null(label))\n names(var.dat)[i] <- label\n }\n var.dat\n} else if (formInputType == \"Questions\") {\n names.to.remove <- trimws(unlist(strsplit(formIgnore, split = \",\")))\n AsNumeric(QuestionListToDataFrame(formQuestions, names.to.remove = names.to.remove), binary = FALSE)\n} else if (formInputType == \"Table\") {\n mat <- GetTidyTwoDimensionalArray(formTable, formIgnore, formIgnore)\n df <- AsNumeric(data.frame(mat, check.names = FALSE))\n if (!is.null(QCalibratedWeight))\n warning(\"Weights applied to this item have been ignored as they are not applicable when the input is a table.\")\n if (any(QFilter != 1))\n warning(\"Filter(s) applied to this item have been ignored as they are not applicable when the input is a table.\")\n df\n} else\n stop(paste(\"Input type not handled:\", formInputType))\n\nwgt <- if (is.null(QCalibratedWeight) || formInputType == \"Table\") {\n rep(1, nrow(dat))\n} else\n QCalibratedWeight\n\nif (formInputType != \"Table\") {\n dat <- dat[QFilter, ]\n wgt <- wgt[QFilter]\n}\n \nprocessed.data <- if (formMissing == \"Error if missing data\") {\n ErrorIfMissingDataFound(dat)\n} else if (formMissing == \"Exclude cases with missing data\") {\n RemoveCasesWithAnyNA(dat)\n} else if (formMissing == \"Use partial data\") {\n RemoveCasesWithAllNA(dat)\n} else\n stop(c(\"Option not handled:\", formMissing))\n\nwgt <- wgt[row.names(dat) %in% rownames(processed.data)]\n\nresult <- CorrelationsWithSignificance(processed.data, wgt, formSpearman)\n\nn <- ncol(result$cor)\ncellnote <- matrix(\"\", n, n)\nt.stat <- matrix(\"\", n, n)\np.val <- matrix(\"\", n, n)\nfor (i in 1:n)\n for (j in 1:n)\n {\n cellnote[i, j] <- FormatWithDecimals(result$cor[i, j], 2)\n t.stat[i, j] <- FormatWithDecimals(result$t[i, j], 3)\n p.val[i, j] <- FormatWithDecimals(result$p[i, j], 3)\n }\nshow.cellnote.in.cell <- n <= 15\nhide.axes.labels <- n > 20\n\ntooltip.info <- list(\"t-statistic\" = t.stat,\n \"p-value\" = p.val)\n\nr.output.1 <- rhtmlHeatmap::Heatmap(result$cor, Rowv = NULL, Colv = NULL,\n cellnote = cellnote, colors = \"RdBu\",\n show_cellnote_in_cell = show.cellnote.in.cell,\n xaxis_location = \"bottom\", yaxis_location = \"left\",\n lower_triangle = TRUE, cexRow = 0.79,\n xaxis_hidden = hide.axes.labels,\n yaxis_hidden = hide.axes.labels,\n color_range = c(-1, 1),\n extra_tooltip_info = tooltip.info)","highlightedCodeSpans":[{"start":125,"length":13,"index":4},{"start":193,"length":3,"index":0},{"start":198,"length":3,"index":0},{"start":203,"length":3,"index":0},{"start":208,"length":3,"index":0},{"start":213,"length":3,"index":0},{"start":218,"length":3,"index":0},{"start":281,"length":9,"index":4},{"start":495,"length":13,"index":4},{"start":716,"length":13,"index":4},{"start":892,"length":17,"index":6},{"start":1044,"length":7,"index":6},{"start":1237,"length":13,"index":4},{"start":1273,"length":17,"index":6},{"start":1295,"length":13,"index":4},{"start":1356,"length":17,"index":6},{"start":1379,"length":13,"index":4},{"start":1422,"length":7,"index":6},{"start":1448,"length":7,"index":6},{"start":1483,"length":11,"index":4},{"start":1569,"length":11,"index":4},{"start":1662,"length":11,"index":4},{"start":1770,"length":11,"index":4},{"start":1903,"length":12,"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(\"Correlation Matrix\");\nvar formInputType = form.comboBox({label: \"Input type\", \n alternatives: [\"Variables\", \"Questions\", \"Table\"],\n name: \"formInputType\", default_value: \"Variables\"});\n\nif (formInputType.getValue() == \"Variables\")\n{\n form.dropBox({ name: \"formVariables\", label: \"Variables\", types: [\"V:numeric, categorical, ordered categorical\"], multi:true, min_inputs: 2});\n form.checkBox({label: \"Variable names\", name: \"formNames\", default_value: false});\n}\nelse if (formInputType.getValue() == \"Questions\")\n{\n form.dropBox({ name: \"formQuestions\", label: \"Questions\", types: [\"Question: Pick One, Pick One Multi, Number, Number Multi, Number Grid, Date, Ranking\"], multi:true});\n form.textBox({label: \"Ignore\", type: \"text\", default_value: \"NET, Total, SUM\", name: \"formIgnore\", required: false});\n}\nelse if (formInputType.getValue() == \"Table\")\n{\n form.dropBox({ name: \"formTable\", label: \"Table\", types:[\"table\", \"RItem\"], multi : false});\n form.textBox({label: \"Ignore\", type: \"text\", default_value: \"NET, Total, SUM\", name: \"formIgnore\", required: false});\n}\n \nform.comboBox({label: \"Missing data\", \n alternatives: [\"Error if missing data\", \"Exclude cases with missing data\", \"Use partial data\"], \n name: \"formMissing\", default_value: \"Use partial data\"});\n\nform.checkBox({ name: \"formSpearman\", label: \"Spearman correlations\", default_value: false });","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":"Correlation Matrix","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formInputType","Type":"ComboBox","Label":"Input type","Value":"Variables","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":["Variables","Questions","Table"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formVariables","Type":"DropBox","Label":"Variables","Value":null,"Allowed":["d5212771-c968-45c0-a779-5776a0411da2","ffeaec61-ec5f-4015-a8ea-b390b6d2fb15","3f78fdb8-d26d-432e-bc2a-04371eb18e86","84722e24-b680-4ac2-a167-a1c0c5f7dc17","192643e7-1ec9-4f14-b9c8-efdae639bdc1","c9dc89de-4109-41ec-b464-35e41e5e1731","ea4ad75c-dbb6-4040-9a93-32951a53393f","637fe9cb-c6f1-4b6b-966b-2a63b84f8fcf","ca95b5b2-e491-4e9c-b7c1-67bd22f81376","2fc0fa65-7249-4409-afd9-ea0748c43be1","c20b3fa8-5a29-48b0-9180-0f1c4dcd5658","50da1b05-705b-4beb-af65-9996d0fb277e","d80238ed-0f6e-4390-bcbb-d9020e728899","040a1e44-9446-4d04-ba5b-3c6b1c069cfd","92f49342-5df4-4f3a-bac8-0c637eebb4d8","52229b43-07fc-4dbc-a96e-7b6430eba979","85528772-4ee8-4831-bf9b-ac073b60f068","6022926d-77b1-473e-bde8-407d5efba2b2","8c6fb7d7-349d-4d81-b44b-cd49b5595476","2fff2071-acc1-4106-870c-0b43140cfea4","88274efd-3236-4cd1-8440-c225b7123607","97007e5e-0ca7-443b-961b-f83544e7f6de","4411daac-5ded-4a82-a996-df0e4184aea7","0f3c1831-2e4e-4128-8bfd-2aa94c1c0b25","e849ffcf-092b-4bff-b390-4eef5c6ec0bc","c2639756-6cc5-4d18-a9a0-883fd9328f39","7091ebaf-8cb8-4d85-99bc-30adbc026a11","d3b65081-1d75-478a-bea9-fb36235cdc2b","d648226e-33ee-4777-9db9-21e73eec63f8","ac9a425f-630e-4e6c-812b-be50c6fc2406","87a2d481-97e7-4786-8c17-499ff08f95f8","9071a34e-fa6c-48ec-97de-cb71dc38ec9c","bbcb1c1e-8c1e-43df-9105-17dc874b7dc3","725bf9f4-1880-43b6-aaa3-7b30bc9b7d36","7c8c3456-4882-4bd9-bf8e-05fca30e930e","d95c5acf-8667-45c1-aec3-d7a97eda2128","756dfe36-78b1-4df9-be59-d6b873504462","642c616e-49ce-4511-a9d7-358370350138","0b0d1aa6-6a08-42fa-88a8-c402a7ff6fae","c6aac650-7f84-4113-83a8-905be25d8dd0","3ef9dfc6-b243-4366-9001-a30bde1065e7","71452418-f368-46ce-bac7-800cac9ff814","919a26d4-8700-44f8-8b50-6104d9a9c461","2c1613e1-f599-40fe-a677-b0efb74aea4c","dfe8533b-65dd-4b74-af81-2f353c02f7fa","595d8f56-e192-4d73-a36b-50e3062859a7","338dfd86-e2ce-428b-8196-d5b04444dedc","1a225ba2-0b22-480e-923a-523607f7be0b","5ab6c13b-3bcb-4ffe-b27d-43c6e730ef65","63dfb4bc-23dc-4c9b-bad8-5b58dc777ae5","1d1c4086-7413-4b54-b007-45cf8491b0ce","cd23c655-35b0-4f36-ac94-a73476d02390","9ebc1e1c-ed58-488c-9e97-017d04f1dd3e","113c1aca-be45-4f19-950e-620638f7dc37","ff321091-1e83-4e31-aa9a-964303afe0f7","590fd5ff-2920-4f8a-8c6c-18ae3aaacceb","b8c7d2ae-0312-493a-93f9-20d90ce08df8","c946895c-1f81-4455-8ade-8c6775dca275","6c31151f-ddfa-4ddf-895f-d09c633d5ec4","cb51c266-fc35-48a7-9fce-879407a099e8","5c4d05e5-75ed-46a7-a09a-91735dd965e1","0304e2a4-7061-42f5-aac4-d3c96aadbd42","1fac9f98-6d39-4e55-9689-a188f10824b6","3c993d33-328a-4a46-8a87-e5f8321fd003","efd36ddf-b9f9-4a4a-91b6-2dfc98be42b4","87f8965e-56d9-4a21-b81b-aa2747476b4e","1f226802-acfe-46b7-816a-85d407771a0f","f212f35c-cacc-4097-a166-6d29fc9f7458","7190395c-44fd-43e9-8d57-d32470e75ff6","4fbcf410-3950-4a61-9184-eb5566752584","9495170d-35ea-4ee8-bd83-78aa11b6ef99","98baed8a-99b1-4cf1-93c1-3eda5a58f6d6","41032d3a-6df4-4275-b3f9-c3e32ac4a98d","8bb14892-3251-438f-a978-e5cd81e8dc76","162ba201-4969-456e-a004-a751a903fe63","dd8c9aba-217f-4224-b7a5-98e46bdcb375","c8ceadb9-e1d1-46b4-b927-10d736f0a4b2","ab9cf45e-c4e1-4cd7-a0d8-b3be1d6d8813","bfa514cf-f552-42c1-8237-e92f71ee364c","79c6bcc6-c57f-4d8e-ac48-bc722da5dc8d","2babee70-30c2-4938-87c5-791291e0b813","82b7b948-8dc1-4303-80e2-fae331c50f0f","f40bbd60-5f12-46c2-9010-1cefcf49c59b","30443569-de32-4267-854d-e28ac7467b37","95aa25f8-b744-4133-93f4-bcaa48ea51c8"],"EmptyListMessage":null,"Multi":true,"Prompt":"Select at least 2 inputs which are of type Variable (Numeric, Categorical or Orderedcategorical).","ErrorMessage":"Variables: Variables accepts only inputs which are of type Variable (Numeric, Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["V:numeric, categorical, ordered categorical"],"MinInputs":2,"MaxInputs":2147483647,"Height":4,"Duplicates":false,"Values":["637fe9cb-c6f1-4b6b-966b-2a63b84f8fcf","ca95b5b2-e491-4e9c-b7c1-67bd22f81376","2fc0fa65-7249-4409-afd9-ea0748c43be1","c20b3fa8-5a29-48b0-9180-0f1c4dcd5658","50da1b05-705b-4beb-af65-9996d0fb277e","d80238ed-0f6e-4390-bcbb-d9020e728899"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formNames","Type":"CheckBox","Label":"Variable names","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":"formMissing","Type":"ComboBox","Label":"Missing data","Value":"Use partial data","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":["Error if missing data","Exclude cases with missing data","Use partial data"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formSpearman","Type":"CheckBox","Label":"Spearman correlations","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":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","size":{"Width":576,"Height":512},"vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Manual","warnSlow":false,"outputSize":{"Width":576,"Height":511},"Options":{"debugconsole":false,"codeposition":"OutputOnly","size":{"width":576,"height":512},"splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Manual","warn slow":false}}