bugfix in example.

diff --git a/civil_comments/01_dv_example.R b/civil_comments/01_dv_example.R
index 4092243faf02bc819477e18b8430e6096e5476ad..c26d640bba11cf244bc1d0b76ef8d971df951f34 100644 (file)
--- a/civil_comments/01_dv_example.R
+++ b/civil_comments/01_dv_example.R
@@ -36,7 +36,7 @@ compare_dv_models <-function(pred_formula, outcome_formula, proxy_formula, df, s
 print("running first example")
 
 compare_dv_models(pred_formula = toxicity_pred ~ funny*white,
 print("running first example")
 
 compare_dv_models(pred_formula = toxicity_pred ~ funny*white,

-                  outcome_formula = toxicity_coded ~ funny*white, proxy_formula,
+                  outcome_formula = toxicity_coded ~ funny*white,

                   proxy_formula = toxicity_pred ~ toxicity_coded*funny*white,
                   df=df,
                   sample.prop=0.01,
                   proxy_formula = toxicity_pred ~ toxicity_coded*funny*white,
                   df=df,
                   sample.prop=0.01,


@@ -46,7 +46,7 @@ compare_dv_models(pred_formula = toxicity_pred ~ funny*white,
 print("running second example")
 
 compare_dv_models(pred_formula = toxicity_pred ~ likes+race_disclosed,
 print("running second example")
 
 compare_dv_models(pred_formula = toxicity_pred ~ likes+race_disclosed,

-                  outcome_formula = toxicity_coded ~ likes + race_disclosed, proxy_formula,
+                  outcome_formula = toxicity_coded ~ likes + race_disclosed,KKJ

                   proxy_formula = toxicity_pred ~ toxicity_coded*likes*race_disclosed,
                   df=df,
                   sample.prop=0.01,
                   proxy_formula = toxicity_pred ~ toxicity_coded*likes*race_disclosed,
                   df=df,
                   sample.prop=0.01,