In AFIT-R/OPER782: Example Functions for OPER 782

knitr::opts_chunk$set(echo = TRUE)

Add your scores here

scores <- 
  tibble::tribble(
~Name,              ~AL, ~GA,
"Jason Freels",      21,  31,
"Spencer Butt",      24,  17,
"Jacob Elliott",     56,  07,
"James Gallagher",   23,  17,
"Jake Johnson",      18,  21,
"Anthony Kallhoff",  38,  31,
"Evan Munson",       14,  28,
"Rachel Ramirez",    30,  18,
"William Sevier",    10,  17,
"Matthew Small",     21,  24,
"Jeffrey Smith",     27,  24,
"Sean Stuntz",       32,  28,
"Alexander Trigo",   27,  16,
"Nicholas Uhorchak", 24,  28
)

scores$diff <- abs(scores$AL - params$AL) + abs(scores$GA - params$GA)

scores$rank <- rank(scores$diff)
scores[order(scores$rank),]

AFIT-R/OPER782 documentation built on May 7, 2019, 7:58 a.m.