New variables to take into account

BivariateAnalysis.R

@@ -17,6 +17,15 @@ variables <- paste(c("age.", "height.", "goals_assists_per90.", "xg.", "npxg.",
                      "assisted_shots.", "passes_switches.", "sca_passes_dead.", "gca_passes_dead.", "passes_intercepted.", 
                      "pressure_regains.", "dribbles_completed_pct.", "fouls.", "ball_recoveries.", "aerials_won_pct.", 
                      "pens_att.", "goals_against_per90_gk.", "save_pct."), "1718", sep = "")
+# variables <- paste(c("age.", "height.", "goals_assists_per90.", "xg.", "npxg.", "xa.", "shots_on_target_pct.", "passes_pct.", 
+#                      "assisted_shots.", "passes_switches.", "sca_passes_dead.", "gca_passes_dead.", "passes_intercepted.", 
+#                      "pressure_regains.", "dribbles_completed_pct.", "fouls.", "ball_recoveries.", "aerials_won_pct.", 
+#                      "pens_att.", "goals_against_per90_gk.", "save_pct.", "passes_received_pct.", "goals_per_shot.", "passes_pressure."), "1718", sep = "")
+variables <- paste(c("age.", "height.", "goals_assists_per90.", "xg.", "npxg.", "xa.", "shots_on_target_pct.", "passes_pct.", 
+                     "assisted_shots.", "passes_switches.", "sca_passes_dead.", "gca_passes_dead.", "passes_intercepted.", 
+                     "pressure_regains.", "dribbles_completed_pct.", "fouls.", "ball_recoveries.", "aerials_won_pct.", 
+                     "pens_att.", "goals_against_per90_gk.", "save_pct.", 
+                     "sca_passes_live.", "gca_passes_live.", "sca_dribbles.", "gca_dribbles.", "sca_fouled.", "gca_fouled."), "1718", sep = "")
 trainStudy <- train %>% select(contains(variables))
 trainStudy <- (trainStudy)
 trainStudy <- data.frame(lapply(trainStudy, as.numeric))