{"size":{"Width":576,"Height":193},"appearance":{"background":null,"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'>>library(flipDimensionReduction)\n</pre>\n<pre class='debug-source'>>library(flipFormat)\n</pre>\n<pre class='debug-source'>>missing <- "Use partial data (pairwise correlations)"\n</pre>\n<pre class='debug-source'>>bt <- BartlettTestOfSphericity(flipTransformations::AsNumeric(data.frame(q23a, q23b, q23c, q23d, q23e), binary = FALSE, remove.first = TRUE), \n weights = QCalibratedWeight, \n subset = QFilter,\n missing = missing)\n</pre>\n<pre class='debug-warning'>Data has been automatically converted to 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). Allows to keep in touch (q23a), Technology fascinating (q23b), Like look of phones (q23c), Surprised by bill size (q23d), Stops other people monitoring (q23e)</pre>\n<pre class='debug-source'>>decimal.places <- if (formDecimals) 8 else NULL\n</pre>\n<pre class='debug-source'>>bartlett.test <- SignificanceTest(bt, "Bartlett Test of Sphericity", inputVariables, filter = QFilter, weight = QCalibratedWeight,\n missing = missing, show.labels = !formNames, decimal.places = decimal.places)\n</pre>\r\n<div class=\"debug-summarystatistics\"><table>\r\n<tr><th>Started:</th><td class=utc-time>2018-08-28T06:01:28.213Z</td></tr>\r\n<tr><th>Finished:</th><td class=utc-time>2018-08-28T06:01:30.213Z</td></tr>\r\n<tr><th>Total time:</th><td>2.76s</td></tr>\r\n<tr><th>Time executing code:</th><td title=\"0.07s\">2.69s</td></tr>\r\n<tr><th>Other overhead on R server:</th><td>2.48s</td></tr>\r\n<tr><th>Time spent transferring data:</th><td>0.07s</td></tr>\r\n<tr><th>Data sent to R server:</th><td>8.2KB</td></tr>\r\n<tr><th>Data received from R server:</th><td>7.6KB</td></tr>\r\n</table></div>","warning":"Data has been automatically converted to 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). Allows to keep in touch (q23a), Technology fascinating (q23b), Like look of phones (q23c), Surprised by bill size (q23d), Stops other people monitoring (q23e)","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-877e554c139c0e7e6ed6\" class=\"formattable_widget html-widget\" style=\"width:100%;height:500px;\" width=\"100%\" height=\"500\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-877e554c139c0e7e6ed6\">{\"x\":{\"html\":\"<table class = \\\"table table-condensed\\\"style = \\\"margin:0; border-bottom: 2px solid; border-top: 2px solid; font-size:90%;\\\">\\n<h3 class=\\\".h3\\\" style=\\\"color:#3E7DCC; text-align:left; margin-top:0px; margin-bottom:0\\\">Bartlett Test of Sphericity<\\/h3>\\n<h4 class=\\\".h4\\\" style=\\\"color:#3E7DCC; text-align:left; margin-top:5px; margin-bottom:0\\\">Significant: p-value < 0.000000000001<\\/h4>\\n<h5 class=\\\".h5\\\" style=\\\"color:#888888; text-align:left; margin-top:5px; margin-bottom:0\\\">Allows to keep in touch, Technology fascinating, Like look of phones, Surprised by bill size, Stops other people monitoring<\\/h5>\\n<caption style=\\\"caption-side:bottom;font-style:italic; font-size:90%;\\\">n = 717 cases used in estimation of a total sample size of 725; null hypothesis: true variances are equal;<\\/caption>\\n <thead>\\n <tr>\\n <th style=\\\"text-align:right;\\\"> Chi-square <\\/th>\\n <th style=\\\"text-align:right;\\\"> Degrees of freedom <\\/th>\\n <th style=\\\"text-align:right;\\\"> p-value <\\/th>\\n <\\/tr>\\n <\\/thead>\\n<tbody>\\n <tr>\\n <td style=\\\"text-align:right;\\\"> 265.20 <\\/td>\\n <td style=\\\"text-align:right;\\\"> 10 <\\/td>\\n <td style=\\\"text-align:right;\\\"> < 0.000000000001 <\\/td>\\n <\\/tr>\\n<\\/tbody>\\n<\\/table>\"},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-877e554c139c0e7e6ed6\">{\"viewer\":{\"width\":\"100%\",\"height\":350,\"padding\":15,\"fill\":false},\"browser\":{\"width\":\"100%\",\"height\":500,\"padding\":0,\"fill\":false}}</script>","htmlwidget-head":"{\"stylesheets\":[\"https://rserverhtmlwidgetasset.azureedge.net/bootstrap.min-63e52244789ab8f6e3a78818886e7085.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/jquery.min-91a24ea414e8c447d647cecab86866c2.js\",\"https://rserverhtmlwidgetasset.azureedge.net/bootstrap.min-326d184c3c13feede563e4adcb5ff2a0.js\",\"https://rserverhtmlwidgetasset.azureedge.net/html5shiv.min-e70767555a95c48c08833356d362ccef.js\",\"https://rserverhtmlwidgetasset.azureedge.net/respond.min-4255ee1a060b15cb2432d0a497a6d510.js\",\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-917a66c6e5036eb1bfd1fb672a82635a.js\",\"https://rserverhtmlwidgetasset.azureedge.net/formattable_widget-d2927ec9dec4a568bd3f4a62041c0ddb.js\"],\"attachments\":[],\"widget-cannot-re-render\":true}","message":""},"secondsTaken":2.7611821,"updated":"2018-08-28T06:01:30.2448799Z","lastUpdatedMessage":null,"executedCode":"library(flipDimensionReduction)\nlibrary(flipFormat)\nmissing <- \"Use partial data (pairwise correlations)\"\nbt <- BartlettTestOfSphericity(flipTransformations::AsNumeric(data.frame(q23a, q23b, q23c, q23d, q23e), binary = FALSE, remove.first = TRUE), \n weights = QCalibratedWeight, \n subset = QFilter,\n missing = missing)\ndecimal.places <- if (formDecimals) 8 else NULL\nbartlett.test <- SignificanceTest(bt, \"Bartlett Test of Sphericity\", inputVariables, filter = QFilter, weight = QCalibratedWeight,\n missing = missing, show.labels = !formNames, decimal.places = decimal.places)","lastSavedCode":"library(flipDimensionReduction)\nlibrary(flipFormat)\nmissing <- \"Use partial data (pairwise correlations)\"\nbt <- BartlettTestOfSphericity(flipTransformations::AsNumeric(data.frame(q23a, q23b, q23c, q23d, q23e), binary = FALSE, remove.first = TRUE), \n weights = QCalibratedWeight, \n subset = QFilter,\n missing = missing)\ndecimal.places <- if (formDecimals) 8 else NULL\nbartlett.test <- SignificanceTest(bt, \"Bartlett Test of Sphericity\", inputVariables, filter = QFilter, weight = QCalibratedWeight,\n missing = missing, show.labels = !formNames, decimal.places = decimal.places)","highlightedCodeSpans":[{"start":179,"length":4,"index":0},{"start":185,"length":4,"index":0},{"start":191,"length":4,"index":0},{"start":197,"length":4,"index":0},{"start":203,"length":4,"index":0},{"start":284,"length":17,"index":6},{"start":338,"length":7,"index":6},{"start":413,"length":12,"index":4},{"start":508,"length":14,"index":4},{"start":533,"length":7,"index":6},{"start":551,"length":17,"index":6},{"start":625,"length":9,"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(\"Bartlett Test of Sphericity\");\nform.dropBox({name: \"inputVariables\", label: \"Input Variables:\", types: [\"V:numeric, categorical, ordered categorical\"], multi:true, min_inputs: 2, height: 8,\n prompt: \"Select at least two Variables\"});\nform.comboBox({name: \"missingType\", \n label: \"Missing data:\", \n alternatives: [\"Error if missing data\", \"Exclude cases with missing data\", \"Use partial data (pairwise correlations)\", \"Imputation (replace missing values with estimates)\"], \n default_value: \"Use partial data (pairwise correlations)\",\n prompt: \"Options for handling cases with missing data\"});\nform.checkBox({label: \"Variable names\", name: \"formNames\", default_value: false, prompt: \"Display names instead of labels\"});\nform.checkBox({label: \"More decimal places\", name: \"formDecimals\", default_value: false, prompt: \"Display numeric values with eight decimal places\"});","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":null,"Page":null,"Group":null,"Type":"Heading","Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":"Bartlett Test of Sphericity","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"inputVariables","Page":null,"Group":null,"Type":"DropBox","Label":"Input Variables:","LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":true,"Prompt":"Select at least two Variables","ErrorMessage":"Input Variables:: Input Variables: accepts only inputs which are of type Variable (Numeric, Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["V:numeric, categorical, ordered categorical"],"OwnerRItemGuid":"f8fafb11-d2a0-4a6d-b031-95eab7406d75","MinInputs":2,"MaxInputs":2147483647,"Height":8,"Duplicates":false,"Values":["9943fdc9-e2e6-49df-802c-4c0c7ff25934","94420b77-f66a-4ea1-98de-d67f48fa6e9d","bccf6663-ae31-467c-9f25-80b22f2508d7","97889434-aaa8-4d35-9754-435b1f63dc99","3b9571ec-6a1e-4c74-aed0-c48abf4e5ea3"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"missingType","Page":null,"Group":null,"Type":"ComboBox","Label":"Missing data:","LabelEmphasised":false,"Value":"Use partial data (pairwise correlations)","Allowed":null,"Multi":false,"Prompt":"Options for handling cases with missing data","ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Error if missing data","Exclude cases with missing data","Use partial data (pairwise correlations)","Imputation (replace missing values with estimates)"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formNames","Page":null,"Group":null,"Type":"CheckBox","Label":"Variable names","LabelEmphasised":false,"Value":false,"Allowed":null,"Multi":false,"Prompt":"Display names instead of labels","ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":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":"formDecimals","Page":null,"Group":null,"Type":"CheckBox","Label":"More decimal places","LabelEmphasised":false,"Value":false,"Allowed":null,"Multi":false,"Prompt":"Display numeric values with eight decimal places","ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":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,"Page":null,"Group":null,"Type":null,"Label":null,"LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":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}}