{"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'>>library(flipMultivariates)\n</pre>\n<pre class='debug-source'>>set.seed(23)\n</pre>\n<pre class='debug-source'>>y <- rep(1:3, rep(100,3))\n</pre>\n<pre class='debug-source'>>x0 <- y + rnorm(300, 0, .5)\n</pre>\n<pre class='debug-source'>>x1 <- x0\n</pre>\n<pre class='debug-source'>>x1[y == 2] <- x1[y == 2] - 1\n</pre>\n<pre class='debug-source'>>x2 <- y + rnorm(300,0, 1)\n</pre>\n<pre class='debug-source'>>x3 <- y + rnorm(300,0, 6)\n</pre>\n<pre class='debug-source'>>y <- factor(y, levels = 1:3, labels = c("Group A", "Group B", "Group C"))\n</pre>\n<pre class='debug-source'>>SupportVectorMachine(y ~ x1 + x2 + x3, output = "Accuracy")\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>1.06s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 0.90s (pre 0.00s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 0.87s (pre 0.00s, post 0.13s) unexplained 0.04s apparmor forking (pre 0.02s, post 0.00s)\">0.90s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>0.71s</td></tr>\r\n<tr><th>Bytes sent:</th><td>881</td></tr>\r\n<tr><th>Bytes received:</th><td>47,121</td></tr>\r\n</table>\r\n</div>","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-109a8ddb6d3107ec5cfb\" 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-109a8ddb6d3107ec5cfb\">{\"x\":{\"html\":\"<table class = \\\"table table-condensed\\\"style = \\\"margin:0; border-bottom: 2px solid; border-top: 2px solid; font-size:90%;\\\">\\n<caption><h3 class=\\\".h3\\\" style=\\\"color:#3E7DCC; text-align:left; margin-top:0px; margin-bottom:0\\\">Support Vector Machine: y<\\/h3>\\n<h5 class=\\\".h5\\\" style=\\\"color:#888888; text-align:left; margin-top:5px; margin-bottom:0\\\">Overall Accuracy: 81.67% (Predictors: x1, x2, x3)<\\/h5>\\n<caption style=\\\"caption-side:bottom;font-style:italic; font-size:90%;\\\">n = 300 cases used in estimation;<\\/caption><\\/caption>\\n <thead>\\n <tr>\\n <th style=\\\"text-align:left;\\\"> <\\/th>\\n <th style=\\\"text-align:right;\\\"> Accuracy by class (%) <\\/th>\\n <\\/tr>\\n <\\/thead>\\n<tbody>\\n <tr>\\n <td style=\\\"text-align:left;\\\"> Group A <\\/td>\\n <td style=\\\"text-align:right;\\\"> <span style=\\\"display: inline-block; direction: rtl; border-radius: 4px; padding-right: 0px; background-color: #DDDDDD; width: 79.80%\\\">&lrm;79.00<\\/span> <\\/td>\\n <\\/tr>\\n <tr>\\n <td style=\\\"text-align:left;\\\"> Group B <\\/td>\\n <td style=\\\"text-align:right;\\\"> <span style=\\\"display: inline-block; direction: rtl; border-radius: 4px; padding-right: 0px; background-color: #DDDDDD; width: 67.68%\\\">&lrm;67.00<\\/span> <\\/td>\\n <\\/tr>\\n <tr>\\n <td style=\\\"text-align:left;\\\"> Group C <\\/td>\\n <td style=\\\"text-align:right;\\\"> <span style=\\\"display: inline-block; direction: rtl; border-radius: 4px; padding-right: 0px; background-color: #DDDDDD; width: 100.00%\\\">&lrm;99.00<\\/span> <\\/td>\\n <\\/tr>\\n<\\/tbody>\\n<\\/table>\"},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-109a8ddb6d3107ec5cfb\">{\"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-eb19ad78829540621a18956d949c048b.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-d2ab507a7e7d3e3d7c2178bda9d4c762.js\",\"https://rserverhtmlwidgetasset.azureedge.net/formattable_widget-d2927ec9dec4a568bd3f4a62041c0ddb.js\"],\"attachments\":[]}","message":"","warning":"","visible":"yes"},"secondsTaken":1.0601279,"updated":"2017-05-19T04:25:50.9981006Z","lastUpdatedMessage":null,"executedCode":"library(flipMultivariates)\nset.seed(23)\ny <- rep(1:3, rep(100,3))\nx0 <- y + rnorm(300, 0, .5)\nx1 <- x0\nx1[y == 2] <- x1[y == 2] - 1\nx2 <- y + rnorm(300,0, 1)\nx3 <- y + rnorm(300,0, 6)\ny <- factor(y, levels = 1:3, labels = c(\"Group A\", \"Group B\", \"Group C\"))\nSupportVectorMachine(y ~ x1 + x2 + x3, output = \"Accuracy\")\n","lastSavedCode":"library(flipMultivariates)\nset.seed(23)\ny <- rep(1:3, rep(100,3))\nx0 <- y + rnorm(300, 0, .5)\nx1 <- x0\nx1[y == 2] <- x1[y == 2] - 1\nx2 <- y + rnorm(300,0, 1)\nx3 <- y + rnorm(300,0, 6)\ny <- factor(y, levels = 1:3, labels = c(\"Group A\", \"Group B\", \"Group C\"))\nSupportVectorMachine(y ~ x1 + x2 + x3, output = \"Accuracy\")\n","highlightedCodeSpans":[],"tableTransformations":"<TabularTransformer>\r\n <TabularTransform type=\"Truncation\" truncationHeaderType=\"Column\" />\r\n <TabularTransform />\r\n</TabularTransformer>","tabularFilteringOptions":null,"hasGuiControls":false,"guiControls":{"Code":"","JSError":null,"JSErrorDetails":null,"ControlDefinitionErrors":null,"InputValidationErrors":null,"Controls":[{"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":210},"vSplit":0.25,"hSplit":0.45,"updateWarnings":true,"updateMode":"Automatic","warnSlow":true,"outputSize":{"Width":576,"Height":209},"Options":{"debugconsole":false,"codeposition":"OutputOnly","size":{"width":576,"height":210},"splitH":0.45,"splitV":0.25,"update warnings":true,"updating":"Automatic","warn slow":true}}