{"size":{"Width":755,"Height":480},"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'>&gt;library(flipMultivariates)\n</pre>\n<pre class='debug-source'>&gt;\n</pre>\n<pre class='debug-source'>&gt;cart &lt;- MachineLearning(formula = `ks-projects-201801.csv`$Variables$state_cat ~ `ks-projects-201801.csv`$Variables$main_category_cat + backers1000 + less1000,\n algorithm = formAlgorithm,\n weights = QPopulationWeight, subset = QFilter,\n missing = formMissing, output = formOutput, show.labels = !formNames,\n seed = get0(&quot;formSeed&quot;),\n cost = get0(&quot;formCost&quot;),\n booster = get0(&quot;formBooster&quot;),\n grid.search = get0(&quot;formSearch&quot;),\n sort.by.importance = get0(&quot;formImportance&quot;),\n hidden.nodes = get0(&quot;formHiddenLayers&quot;),\n max.epochs = get0(&quot;formEpochs&quot;),\n normalize = get0(&quot;formNormalize&quot;),\n outcome.color = get0(&quot;formOutColor&quot;),\n predictors.color = get0(&quot;formPredColor&quot;),\n prior = get0(&quot;formPrior&quot;),\n prune = get0(&quot;formPruning&quot;),\n early.stopping = get0(&quot;formStopping&quot;),\n predictor.level.treatment = get0(&quot;formPredictorCategoryLabels&quot;),\n outcome.level.treatment = get0(&quot;formOutcomeCategoryLabels&quot;),\n auxiliary = get0(&quot;formAuxiliaryVariables&quot;),\n correction = get0(&quot;formCorrection&quot;),\n robust.se = get0(&quot;formRobustSE&quot;),\n importance.absolute = get0(&quot;formAbsoluteImportance&quot;),\n interaction = get0(&quot;formInteraction&quot;))\n</pre>\r\n<div class=\"debug-summarystatistics\">\r\n<table>\r\n<tr><th>Total time:</th><td>55.70s</td></tr>\r\n<tr><th>Time on R server:</th><td title=\"rApacheServe 55.67s (pre 0.05s, post 0.00s) httpget_code() setup for eval 0.00s session$eval 55.31s (pre 0.00s, post 43.92s) unexplained 0.35s apparmor forking (pre 0.00s, post 0.00s)\">55.67s</td></tr>\r\n<tr><th>Time evaluating code:</th><td>11.31s</td></tr>\r\n<tr><th>Bytes sent:</th><td>6,821,272</td></tr>\r\n<tr><th>Bytes received:</th><td>16,784</td></tr>\r\n</table>\r\n</div>","warning":"The R object had size 117.8 MiB , exceeding the 64MiB limit. Try reducing the size of your output if you require this item in a dependency","htmlwidgets":"<div id=\"htmlwidget_container\">\n <div id=\"htmlwidget-052c4ae776df3dd10886\" style=\"width:960px;height:500px;\" class=\"rhtmlSankeyTree html-widget\"></div>\n</div>\n<script type=\"application/json\" data-for=\"htmlwidget-052c4ae776df3dd10886\">{\"x\":{\"data\":{\"treeType\":\"Classification\",\"categoryLegend\":\"X.ks.projects.201801.csv..Variables.main_category_cat: Dance:Dance; Theater:Theater; Comics:Comics; Music:Music; Art:Art; Games:Games; Design:Design; Film & Video:Film & Video; Publishing:Publishing; Photography:Photography; Food:Food; Fashion:Fashion; Crafts:Crafts; Technology:Technology; Journalism:Journalism\",\"name\":\"state\",\"n\":378661,\"Percentage\":\"100%\",\"id\":1,\"color\":\"#7FCC71\",\"nodeDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Main category: Dance, Theater, Comics, Music, Art, Games, Design, Film & Video\",\"n\":234457,\"Percentage\":\"62%\",\"id\":2,\"color\":\"#8CCC80\",\"nodeDistribution\":[0.0991610401907386,0.414199618693406,0.463125434514644,0.0065427775668886,0.00377894453993696,0.0131921844943849],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"More than 1000 backers: TRUE\",\"n\":4434,\"Percentage\":\"1%\",\"id\":4,\"color\":\"#5895CC\",\"nodeDistribution\":[0.0142083897158322,0.960306720793866,0.0178168696436626,0.0051871898962562,0.0024808299503834,0],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = successful\"},{\"name\":\"More than 1000 backers: FALSE\",\"n\":230023,\"Percentage\":\"61%\",\"id\":5,\"color\":\"#8ACC7E\",\"nodeDistribution\":[0.100798615790595,0.40367267621064,0.47170935080405,0.00656890832655865,0.00380396742934402,0.0134464814388126],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Main category: Art, Games, Design, Film & Video\",\"n\":153007,\"Percentage\":\"40%\",\"id\":10,\"color\":\"#82CC75\",\"nodeDistribution\":[0.11942590861856,0.355134078832995,0.508303541668028,0.00716307097060919,0.00437234897749776,0.00560105093231029],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Goal less than $1000: TRUE\",\"n\":19979,\"Percentage\":\"5%\",\"id\":20,\"color\":\"#98B3CC\",\"nodeDistribution\":[0.0749286751088643,0.524650883427599,0.383252415035788,0.0091596175984784,0.00795835627408779,5.00525551829421e-05],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = successful\"},{\"name\":\"Goal less than $1000: FALSE\",\"n\":133028,\"Percentage\":\"35%\",\"id\":21,\"color\":\"#7ECC70\",\"nodeDistribution\":[0.126108789127101,0.329674955648435,0.52708452355895,0.00686321676639504,0.00383377935472231,0.00643473554439667],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = failed\"}]},{\"name\":\"Main category: Dance, Theater, Comics, Music\",\"n\":77016,\"Percentage\":\"20%\",\"id\":11,\"color\":\"#9BB5CC\",\"nodeDistribution\":[0.0637919393372806,0.50010387451958,0.399007998338008,0.0053884907032305,0.00267476887919393,0.029032928222707],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = successful\"}]}]},{\"name\":\"Main category: Publishing, Photography, Food, Fashion, Crafts, Technology, Journalism\",\"n\":144204,\"Percentage\":\"38%\",\"id\":3,\"color\":\"#6BCC59\",\"nodeDistribution\":[0.107694654794597,0.255499153976311,0.618124323874511,0.0087722948045824,0.00665723558292419,0.00325233696707442],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"More than 1000 backers: TRUE\",\"n\":1718,\"Percentage\":\"0.5%\",\"id\":6,\"color\":\"#5794CC\",\"nodeDistribution\":[0.00756693830034924,0.964493597206054,0.00931315483119907,0.00931315483119907,0.00931315483119907,0],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = successful\"},{\"name\":\"More than 1000 backers: FALSE\",\"n\":142486,\"Percentage\":\"38%\",\"id\":7,\"color\":\"#69CC57\",\"nodeDistribution\":[0.108901927206883,0.246950577600606,0.625464957960782,0.00876577347949974,0.00662521230155945,0.00329155145066884],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Goal less than $1000: TRUE\",\"n\":17541,\"Percentage\":\"5%\",\"id\":14,\"color\":\"#86CC79\",\"nodeDistribution\":[0.0794709537654638,0.408129525112593,0.492788324496893,0.00746821731942307,0.0120289607205975,0.00011401858502936],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Main category: Publishing, Photography\",\"n\":6867,\"Percentage\":\"2%\",\"id\":28,\"color\":\"#9FB7CC\",\"nodeDistribution\":[0.0687345274501238,0.473714868210281,0.44692005242464,0.00655307994757536,0.00393184796854522,0.000145623998835008],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"\",\"children\":[{\"name\":\"Main category: Publishing\",\"n\":5059,\"Percentage\":\"1%\",\"id\":56,\"color\":\"#9DB6CC\",\"nodeDistribution\":[0.068788298082625,0.488238782368057,0.43170587072544,0.00770903340581142,0.00355801541806681,0],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = successful\"},{\"name\":\"Main category: Photography\",\"n\":1808,\"Percentage\":\"0.5%\",\"id\":57,\"color\":\"#86CC79\",\"nodeDistribution\":[0.0685840707964602,0.433075221238938,0.489491150442478,0.00331858407079646,0.00497787610619469,0.000553097345132743],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = failed\"}]},{\"name\":\"Main category: Food, Fashion, Crafts, Technology, Journalism\",\"n\":10674,\"Percentage\":\"3%\",\"id\":29,\"color\":\"#7FCC71\",\"nodeDistribution\":[0.0863781150459059,0.365935919055649,0.522297170695147,0.0080569608394229,0.0172381487727188,9.36855911560802e-05],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = failed\"}]},{\"name\":\"Goal less than $1000: FALSE\",\"n\":124945,\"Percentage\":\"33%\",\"id\":15,\"color\":\"#65CC52\",\"nodeDistribution\":[0.113033734843331,0.224322701988875,0.644091400216095,0.00894793709232062,0.00586658129577014,0.00373764456360799],\"overallDistribution\":[0.102410863542852,0.353762336232144,0.522153060389108,0.0073918359693763,0.00487507295443682,0.00940683091208231],\"nodeVariables\":[\"canceled\",\"successful\",\"failed\",\"live\",\"suspended\",\"undefined\"],\"terminalDescription\":\"Highest = failed\"}]}]}]},\"opts\":{\"name\":\"name\",\"id\":\"id\",\"value\":\"n\",\"childrenName\":\"children\",\"treeColors\":false,\"maxLabelLength\":25,\"nodeHeight\":100,\"categoryLegend\":false,\"terminalDescription\":true,\"numericDistribution\":true,\"tooltip\":\"tooltip\"}},\"evals\":[],\"jsHooks\":[]}</script>\n<script type=\"application/htmlwidget-sizing\" data-for=\"htmlwidget-052c4ae776df3dd10886\">{\"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/rhtmlSankeyTree-39df8a8082c49c1495441cb5849b4132.css\"],\"javascript\":[\"https://rserverhtmlwidgetasset.azureedge.net/htmlwidgets-917a66c6e5036eb1bfd1fb672a82635a.js\",\"https://rserverhtmlwidgetasset.azureedge.net/d3.min-d0586993e67457b7a264f1926078552d.js\",\"https://rserverhtmlwidgetasset.azureedge.net/d3-tip-d5050b0c26c67189049a70c72a07b7cd.js\",\"https://rserverhtmlwidgetasset.azureedge.net/treecolors-56c8fc0335b8a07205aba0a7ad07e374.js\",\"https://rserverhtmlwidgetasset.azureedge.net/SankeyTree-f95bc178e1f69591dbe3b21157015926.js\",\"https://rserverhtmlwidgetasset.azureedge.net/rhtmlSankeyTree-36e87d86ca01d11a75ecf0473be70efa.js\"],\"attachments\":[],\"widget-cannot-re-render\":false}","message":""},"secondsTaken":55.7042825,"updated":"2018-08-10T00:39:23.0564146Z","lastUpdatedMessage":null,"executedCode":"library(flipMultivariates)\n\ncart <- MachineLearning(formula = `ks-projects-201801.csv`$Variables$state_cat ~ `ks-projects-201801.csv`$Variables$main_category_cat + backers1000 + less1000,\n algorithm = formAlgorithm,\n weights = QPopulationWeight, subset = QFilter,\n missing = formMissing, output = formOutput, show.labels = !formNames,\n seed = get0(\"formSeed\"),\n cost = get0(\"formCost\"),\n booster = get0(\"formBooster\"),\n grid.search = get0(\"formSearch\"),\n sort.by.importance = get0(\"formImportance\"),\n hidden.nodes = get0(\"formHiddenLayers\"),\n max.epochs = get0(\"formEpochs\"),\n normalize = get0(\"formNormalize\"),\n outcome.color = get0(\"formOutColor\"),\n predictors.color = get0(\"formPredColor\"),\n prior = get0(\"formPrior\"),\n prune = get0(\"formPruning\"),\n early.stopping = get0(\"formStopping\"),\n predictor.level.treatment = get0(\"formPredictorCategoryLabels\"),\n outcome.level.treatment = get0(\"formOutcomeCategoryLabels\"),\n auxiliary = get0(\"formAuxiliaryVariables\"),\n correction = get0(\"formCorrection\"),\n robust.se = get0(\"formRobustSE\"),\n importance.absolute = get0(\"formAbsoluteImportance\"),\n interaction = get0(\"formInteraction\"))","lastSavedCode":"library(flipMultivariates)\n\ncart <- MachineLearning(formula = `ks-projects-201801.csv`$Variables$state_cat ~ `ks-projects-201801.csv`$Variables$main_category_cat + backers1000 + less1000,\n algorithm = formAlgorithm,\n weights = QPopulationWeight, subset = QFilter,\n missing = formMissing, output = formOutput, show.labels = !formNames,\n seed = get0(\"formSeed\"),\n cost = get0(\"formCost\"),\n booster = get0(\"formBooster\"),\n grid.search = get0(\"formSearch\"),\n sort.by.importance = get0(\"formImportance\"),\n hidden.nodes = get0(\"formHiddenLayers\"),\n max.epochs = get0(\"formEpochs\"),\n normalize = get0(\"formNormalize\"),\n outcome.color = get0(\"formOutColor\"),\n predictors.color = get0(\"formPredColor\"),\n prior = get0(\"formPrior\"),\n prune = get0(\"formPruning\"),\n early.stopping = get0(\"formStopping\"),\n predictor.level.treatment = get0(\"formPredictorCategoryLabels\"),\n outcome.level.treatment = get0(\"formOutcomeCategoryLabels\"),\n auxiliary = get0(\"formAuxiliaryVariables\"),\n correction = get0(\"formCorrection\"),\n robust.se = get0(\"formRobustSE\"),\n importance.absolute = get0(\"formAbsoluteImportance\"),\n interaction = get0(\"formInteraction\"))","highlightedCodeSpans":[{"start":62,"length":44,"index":0},{"start":109,"length":52,"index":0},{"start":164,"length":11,"index":0},{"start":178,"length":8,"index":0},{"start":236,"length":13,"index":4},{"start":297,"length":17,"index":6},{"start":325,"length":7,"index":6},{"start":380,"length":11,"index":4},{"start":402,"length":10,"index":4},{"start":429,"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":"// OUTCOME AND PREDICTOR VARIABLES\nform.dropBox({label: \"Outcome\", \n types:[\"Variable: Numeric, Date, Money, Categorical, OrderedCategorical\"], \n name: \"formOutcomeVariable\"});\nform.dropBox({label: \"Predictor(s)\",\n types:[\"Variable: Numeric, Date, Money, Categorical, OrderedCategorical\"], \n name: \"formPredictorVariables\", multi:true});\n\n// ALGORITHM\nvar algorithm = form.comboBox({label: \"Algorithm\",\n alternatives: [\"CART\", \"Deep Learning\", \"Gradient Boosting\", \"Linear Discriminant Analysis\",\n \"Random Forest\", \"Regression\", \"Support Vector Machine\"],\n name: \"formAlgorithm\", default_value: \"CART\"}).getValue();\nvar regressionType = \"\";\nif (algorithm == \"Regression\")\n regressionType = form.comboBox({label: \"Regression type\", \n alternatives: [\"Linear\", \"Binary Logit\", \"Ordered Logit\", \"Multinomial Logit\", \"Poisson\",\n \"Quasi-Poisson\", \"NBD\"], \n name: \"formRegressionType\", default_value: \"Linear\"}).getValue();\nform.setHeading((regressionType == \"\" ? \"\" : (regressionType + \" \")) + algorithm);\n\n// DEFAULT CONTROLS\nmissing_data_options = [\"Error if missing data\", \"Exclude cases with missing data\", \"Imputation (replace missing values with estimates)\"];\n\n// AMEND DEFAULT CONTROLS PER ALGORITHM\nif (algorithm == \"Support Vector Machine\")\n output_options = [\"Accuracy\", \"Prediction-Accuracy Table\", \"Detail\"];\nif (algorithm == \"Gradient Boosting\") \n output_options = [\"Accuracy\", \"Importance\", \"Prediction-Accuracy Table\", \"Detail\"];\nif (algorithm == \"Random Forest\")\n output_options = [\"Importance\", \"Prediction-Accuracy Table\", \"Detail\"];\nif (algorithm == \"Deep Learning\")\n output_options = [\"Accuracy\", \"Prediction-Accuracy Table\", \"Cross Validation\", \"Network Layers\"];\nif (algorithm == \"Linear Discriminant Analysis\")\n output_options = [\"Means\", \"Detail\", \"Prediction-Accuracy Table\", \"Scatterplot\", \"Moonplot\"];\n\nif (algorithm == \"CART\") {\n output_options = [\"Sankey\", \"Tree\", \"Text\", \"Prediction-Accuracy Table\", \"Cross Validation\"];\n missing_data_options = [\"Error if missing data\", \"Exclude cases with missing data\",\n \"Use partial data\", \"Imputation (replace missing values with estimates)\"]\n}\nif (algorithm == \"Regression\") {\n if (regressionType != \"Multinomial Logit\")\n output_options = [\"Summary\", \"R\", \"ANOVA\"];\n else\n output_options = [\"Summary\", \"R\", \"ANOVA\", \"Relative Importance Analysis\"]\n if (regressionType == \"Linear\")\n missing_data_options = [\"Error if missing data\", \"Exclude cases with missing data\", \"Use partial data (pairwise correlations)\", \"Multiple imputation\"];\n else\n missing_data_options = [\"Error if missing data\", \"Exclude cases with missing data\", \"Multiple imputation\"];\n}\n\n// COMMON CONTROLS FOR ALL ALGORITHMS\nvar output = form.comboBox({label: \"Output\", \n alternatives: output_options, name: \"formOutput\", default_value: output_options[0]}).getValue();\nvar missing = form.comboBox({label: \"Missing data\", \n alternatives: missing_data_options, name: \"formMissing\", default_value: \"Exclude cases with missing data\"}).getValue();\nform.checkBox({label: \"Variable names\", name: \"formNames\", default_value: false});\n\n// CONTROLS FOR SPECIFIC ALGORITHMS\n\nif (algorithm == \"Support Vector Machine\")\n form.textBox({label: \"Cost\", name: \"formCost\", default_value: 1, type: \"number\"});\n\nif (algorithm == \"Gradient Boosting\") {\n form.comboBox({label: \"Booster\", \n alternatives: [\"gbtree\", \"gblinear\"], name: \"formBooster\", default_value: \"gbtree\"})\n form.checkBox({label: \"Grid search\", name: \"formSearch\", default_value: false});\n}\n\nif (algorithm == \"Random Forest\")\n if (output == \"Importance\")\n form.checkBox({label: \"Sort by importance\", name: \"formImportance\", default_value: true});\n\nif (algorithm == \"Deep Learning\") {\n form.numericUpDown({name:\"formEpochs\", label:\"Maximum epochs\", default_value: 10, minimum: 1, maximum: 1000000});\n form.textBox({name: \"formHiddenLayers\", label: \"Hidden layers\", prompt: \"Comma delimited list of the number of nodes in each hidden layer\", required: true});\n form.checkBox({label: \"Normalize predictors\", name: \"formNormalize\", default_value: true});\n}\n\nif (algorithm == \"Linear Discriminant Analysis\") {\n if (output == \"Scatterplot\")\n {\n form.colorPicker({label: \"Outcome color\", name: \"formOutColor\", default_value:\"#5B9BD5\"});\n form.colorPicker({label: \"Predictors color\", name: \"formPredColor\", default_value:\"#ED7D31\"});\n }\n form.comboBox({label: \"Prior\", alternatives: [\"Equal\", \"Observed\",], name: \"formPrior\", default_value: \"Observed\"})\n}\n\nif (algorithm == \"CART\") {\n form.comboBox({label: \"Pruning\", alternatives: [\"Minimum error\", \"Smallest tree\", \"None\"], \n name: \"formPruning\", default_value: \"Minimum error\"})\n form.checkBox({label: \"Early stopping\", name: \"formStopping\", default_value: false});\n form.comboBox({label: \"Predictor category labels\", alternatives: [\"Full labels\", \"Abbreviated labels\", \"Letters\"],\n name: \"formPredictorCategoryLabels\", default_value: \"Abbreviated labels\"})\n form.comboBox({label: \"Outcome category labels\", alternatives: [\"Full labels\", \"Abbreviated labels\", \"Letters\"],\n name: \"formOutcomeCategoryLabels\", default_value: \"Full labels\"})\n}\n\nif (algorithm == \"Regression\") {\n if (missing == \"Multiple imputation\")\n form.dropBox({label: \"Auxiliary variables\",\n types:[\"Variable: Numeric, Date, Money, Categorical, OrderedCategorical\"], \n name: \"formAuxiliaryVariables\", required: false, multi:true});\n form.comboBox({label: \"Correction\", alternatives: [\"None\", \"False Discovery Rate\", \"Bonferroni\"], name: \"formCorrection\", default_value: \"None\"});\n var is_RIA = (output == \"Relative Importance Analysis\");\n if (regressionType == \"Linear\" && missing != \"Use partial data (pairwise correlations)\" && missing != \"Multiple imputation\")\n form.checkBox({label: \"Robust standard errors\", name: \"formRobustSE\", default_value: false});\n if (output == \"Relative Importance Analysis\")\n form.checkBox({label: \"Absolute importance scores\", name: \"formAbsoluteImportance\", default_value: false});\n if (regressionType != \"Multinomial Logit\" && (is_RIA || output == \"Summary\"))\n form.dropBox({label: \"Crosstab interaction\", name: \"formInteraction\", types:[\"Variable: Numeric, Date, Money, Categorical, OrderedCategorical\"], required: false});\n}\n\nform.numericUpDown({name:\"formSeed\", label:\"Random seed\", default_value: 12321, minimum: 1, maximum: 1000000});","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":"CART","Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formOutcomeVariable","Page":null,"Group":null,"Type":"DropBox","Label":"Outcome","LabelEmphasised":false,"Value":"5fbd6095-a625-4714-b9d8-e07b66ae201c","Allowed":null,"Multi":false,"Prompt":"Select an input which is of type Variable (Numeric, Date, Money, Categorical or Orderedcategorical).","ErrorMessage":"Outcome: Outcome accepts only one input which is of type Variable (Numeric, Date, Money, Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["Variable: Numeric, Date, Money, Categorical, OrderedCategorical"],"OwnerRItemGuid":"7679225b-d4e3-4c99-a1f1-511ab3fb6aa2","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":"formPredictorVariables","Page":null,"Group":null,"Type":"DropBox","Label":"Predictor(s)","LabelEmphasised":false,"Value":null,"Allowed":null,"Multi":true,"Prompt":"Select at least one input which is of type Variable (Numeric, Date, Money, Categorical or Orderedcategorical).","ErrorMessage":"Predictor(s): Predictor(s) accepts only inputs which are of type Variable (Numeric, Date, Money, Categorical or Orderedcategorical).","Invalid":null,"Required":true,"AllowedTypes":["Variable: Numeric, Date, Money, Categorical, OrderedCategorical"],"OwnerRItemGuid":"7679225b-d4e3-4c99-a1f1-511ab3fb6aa2","MinInputs":1,"MaxInputs":2147483647,"Height":4,"Duplicates":false,"Values":["f2cb7f4d-3c00-4b5c-a039-12c3e8dc2f05","83b799ce-0ff6-4e82-8303-96e0ca9ea4a9","e31daeca-3dad-44d9-9f3c-710e0045e800"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formAlgorithm","Page":null,"Group":null,"Type":"ComboBox","Label":"Algorithm","LabelEmphasised":false,"Value":"CART","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["CART","Deep Learning","Gradient Boosting","Linear Discriminant Analysis","Random Forest","Regression","Support Vector Machine"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formOutput","Page":null,"Group":null,"Type":"ComboBox","Label":"Output","LabelEmphasised":false,"Value":"Sankey","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Sankey","Tree","Text","Prediction-Accuracy Table","Cross Validation"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formMissing","Page":null,"Group":null,"Type":"ComboBox","Label":"Missing data","LabelEmphasised":false,"Value":"Exclude cases with missing data","Allowed":null,"Multi":false,"Prompt":null,"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","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":null,"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":"formPruning","Page":null,"Group":null,"Type":"ComboBox","Label":"Pruning","LabelEmphasised":false,"Value":"Minimum error","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Minimum error","Smallest tree","None"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formStopping","Page":null,"Group":null,"Type":"CheckBox","Label":"Early stopping","LabelEmphasised":false,"Value":false,"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":"left","Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formPredictorCategoryLabels","Page":null,"Group":null,"Type":"ComboBox","Label":"Predictor category labels","LabelEmphasised":false,"Value":"Full labels","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Full labels","Abbreviated labels","Letters"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formOutcomeCategoryLabels","Page":null,"Group":null,"Type":"ComboBox","Label":"Outcome category labels","LabelEmphasised":false,"Value":"Full labels","Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":null,"Invalid":null,"Required":true,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":["Full labels","Abbreviated labels","Letters"],"CheckAlign":null,"Text":null,"Increment":0.0,"Min":0.0,"Max":0.0,"Vertical":null},{"ItemGuid":"00000000-0000-0000-0000-000000000000","ControlName":"formSeed","Page":null,"Group":null,"Type":"NumericUpDown","Label":"Random seed","LabelEmphasised":false,"Value":12321.0,"Allowed":null,"Multi":false,"Prompt":null,"ErrorMessage":"Random seed: ","Invalid":null,"Required":false,"AllowedTypes":null,"OwnerRItemGuid":null,"MinInputs":0,"MaxInputs":0,"Height":0,"Duplicates":false,"Values":null,"CheckAlign":null,"Text":null,"Increment":1.0,"Min":1.0,"Max":1000000.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}}

>library(flipMultivariates)

>

>cart <- MachineLearning(formula = `ks-projects-201801.csv`$Variables$state_cat ~ `ks-projects-201801.csv`$Variables$main_category_cat + backers1000 + less1000,
                                    algorithm = formAlgorithm,
                                    weights = QPopulationWeight, subset = QFilter,
                                    missing = formMissing, output = formOutput, show.labels = !formNames,
                                    seed = get0("formSeed"),
                                    cost = get0("formCost"),
                                    booster = get0("formBooster"),
                                    grid.search = get0("formSearch"),
                                    sort.by.importance = get0("formImportance"),
                                    hidden.nodes = get0("formHiddenLayers"),
                                    max.epochs = get0("formEpochs"),
                                    normalize = get0("formNormalize"),
                                    outcome.color = get0("formOutColor"),
                                    predictors.color = get0("formPredColor"),
                                    prior = get0("formPrior"),
                                    prune = get0("formPruning"),
                                    early.stopping = get0("formStopping"),
                                    predictor.level.treatment = get0("formPredictorCategoryLabels"),
                                    outcome.level.treatment = get0("formOutcomeCategoryLabels"),
                                    auxiliary = get0("formAuxiliaryVariables"),
                                    correction = get0("formCorrection"),
                                    robust.se = get0("formRobustSE"),
                                    importance.absolute = get0("formAbsoluteImportance"),
                                    interaction = get0("formInteraction"))