From eed4369cd6f060bdc92599f43d9e27bd061015a0 Mon Sep 17 00:00:00 2001
From: ddunn801 <ddunn801@gmail.com>
Date: Thu, 21 Jun 2018 17:13:07 -0500
Subject: [PATCH] Updated last column number in line 54

141 is last column
(19,54,61,147) to (19,54,61,141)
---
 B5.SingleGamexG.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/B5.SingleGamexG.md b/B5.SingleGamexG.md
index 415b2ef..1247cdd 100644
--- a/B5.SingleGamexG.md
+++ b/B5.SingleGamexG.md
@@ -51,7 +51,7 @@ shotData <- events %>% filter(match_id == randomMatch & shot.statsbomb_xg > 0)
 shotData$Timer <- shotData$minute + (shotData$second / 60)
 
 ## drop all unneeed data to make it easier to work with the data 
-shotData <- shotData[c(19,54,61,147)]
+shotData <- shotData[c(19,54,61,141)]
 
 ## Create a dataframe just for the Team 1 and Team 2
 T1_shotData <- shotData %>% filter(team.name == unique(shotData$team.name)[1])