Handle change from "Home", "Away" to team_Name in bestCase()

gtpash · Jul 19, 2017 · 487a687 · 487a687
1 parent dd022c4
commit 487a687
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/problem2.R b/problem2.R
@@ -129,8 +129,11 @@ generateBestCase <- function(teamName) {
   #current team wins out
   simSeason$Winner[which(simSeason$`Home Team` == teamName | simSeason$`Away Team` == teamName)] <- teamName
 
-  #games b/w teams in other divisions that are in you
-  othergames <- which(simSeason$Winner == "Home" | simSeason$Winner == "Away")
+  #get indices for games not yet handled
+  simgames <- nrow(simSeason)
+  temp <- 1:simgames
+  othergames <- which(!temp%in%union(outconfs,outdivs))
+  rm(temp,simgames)
 
 
 }