I know we have a homeless problem in SEA.
suppressPackageStartupMessages({
library(dplyr)
})
decteamstats <- data.frame(
me =
c(4983535, 4984328, 4984564, 4985254, 4985790, 4986583, 4986962, 4988878, 4989835, 4996158, 4996988),
Away =
c("UCLA", "Long Beach St.", "Washington", "Seattle U", "Seattle U", "California", "Seattle U", "Seattle U", "Seattle U", "Dixie St.", "Dixie St."),
Team =
c("Seattle U", "Seattle U", "Seattle U", "Northwest (WA)", "Col. of Idaho", "Seattle U", "Portland", "Saint Martin's", "Utah Valley", "Seattle U", "Seattle U"),
Mins =
c("Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U", "Seattle U"),
oMins =
c(38.683, 38.167, 38.683, 39.183, 39.183, 39.083, 39.917, 38.817, 43.583, 39.767, 39.483),
dMins =
c(19.6, 21.633, 21.083, 16.417, 19.067, 19.867, 20.85, 18, 22.717, 20.767, 21.633),
oPOSS =
c(19.083, 16.533, 17.6, 22.767, 20.117, 19.217, 19.067, 20.817, 20.867, 19, 17.85),
dPOSS =
c(72, 76, 68, 70, 68, 63, 79, 74, 92, 75, 78),
ORTG =
c(72, 77, 69, 69, 70, 64, 76, 73, 90, 73, 76),
DRTG =
c(72.222, 98.684, 60.294, 127.143, 114.706, 103.175, 106.329, 132.432, 100, 101.333, 98.718),
NETRTG =
c(108.333, 103.896, 105.797, 57.971, 77.143, 109.375, 89.474, 86.301, 103.333, 105.479, 73.684),
PTS =
c(-36.111, -5.212, -45.503, 69.172, 37.563, -6.2, 16.855, 46.131, -3.333, -4.146, 25.034),
dPTS =
c(52, 75, 41, 89, 78, 65, 84, 98, 92, 76, 77)
)