M-FANS: Introduction to NFL Data with R (2022)

Поділитися
Вставка
  • Опубліковано 3 січ 2025
  • All the code: github.com/tej...
    Installing R and R Studio: mathcenter.oxfo...

КОМЕНТАРІ • 11

  • @drewhartwig5789
    @drewhartwig5789 2 роки тому +5

    BAIS student at the University of Iowa... huge NFL fan and this stuff is super awesome/helpful to mess around with for fun and apply to homework/projects... appreciate the hard work and great tutorial!

  • @kriscolen1983
    @kriscolen1983 2 роки тому +3

    Tej, you are the man!
    Honestly I have this new interest in using analytics to answer a lot of personal and professional questions I have. Using Google is useful, but your real-world application of R is giving me a renewed faith and is incredibly useful. Thanks guy!

    • @tejseth8027
      @tejseth8027 2 роки тому

      glad to hear kris! message me if you ever need anything

  • @alanf5615
    @alanf5615 2 роки тому +2

    Hey im a football analyst on twitter.
    Thanks for posting these videos

  • @thiagoishaq5324
    @thiagoishaq5324 2 роки тому +2

    Thank you Tej!!! Shoutout from Brazil!

  • @ianharkins2172
    @ianharkins2172 Рік тому

    Great video, very helpful information for a novice who's trying to learn.

  • @JackReinhart-q9p
    @JackReinhart-q9p Рік тому

    Great stuff Tej!

  • @oumardiallo7292
    @oumardiallo7292 2 роки тому +1

    Bravo . I will check the other videos. Can't wait to see the python version. 🙏

  • @nsn5564
    @nsn5564 2 роки тому +2

    Huge thanks!

  • @-Funky-
    @-Funky- Рік тому

    Thanks for your introduction video. I wanted to create a formula that shows QB EPA without YAC oe from the receiver. This is my formula, but it doesn't work:
    nflfastR::load_pbp(2023) %>%
    dplyr::group_by(passer, passer_id, posteam) %>%
    dplyr::mutate(attempts = sum(pass_attempt)) %>%
    dplyr::filter(attempts >= 100) %>%
    dplyr::summarize(
    epa_qb = mean(qb_epa + xyac_epa - yac_epa),
    qb_epa = mean(qb_epa),
    xyac_epa = mean(xyac_epa),
    yac_epa = mean(yac_epa),
    yac_oe = mean(yac_epa - xyac_epa),
    att = dplyr::n()
    ) %>%
    dplyr::ungroup() %>%
    dplyr::select(passer, posteam, att, epa_qb, qb_epa, yac_epa, xyac_epa, yac_oe) %>%
    dplyr::arrange(-epa_qb) %>%
    utils::head(32) %>%
    knitr::kable(digits = 3)
    Can you pls fix it? Thank you!