Example: Length of Baseball Games
- In 2023, Major League Baseball (MLB) introduces 30 second pitch
clock
- (calls to implement something similar in Cricket came soon
after)
RQ: In 2020, what factors could help predict how long a Major League
Baseball game lasted?
- Files on Canvas: Starter code and data set
- read the data into R
- explore relationships between time & potential predictors
- CHOOSE a model (hint: it’s simple linear regression)
- FIT a simple linear regression model to the data
- ASSESS the model fit (L-I-N-E-R Conditions)
MLB2020 <- read_csv("https://sites.psu.edu/sar320/files/2023/08/MLB2020.csv")
Rows: 16 Columns: 7── Column specification ────────────────────────────────────────────────────────────────────────────────────────────────────────────
Delimiter: ","
chr (2): Game, Day or Night
dbl (5): Score, Margin, Time, Pitchers, Temp
ℹ Use `spec()` to retrieve the full column specification for this data.
ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
glimpse(MLB2020)
Rows: 16
Columns: 7
$ Game <chr> "LA Dodgers vs LA Angels", "San Diego Padres vs Arizona Diamondbacks", "Washington Nationals vs Baltimore O…
$ Score <dbl> 11, 13, 10, 6, 9, 11, 10, 4, 3, 3, 6, 6, 16, 8, 13, 5
$ Margin <dbl> 1, 1, 4, 4, 3, 1, 2, 2, 1, 1, 2, 2, 6, 4, 1, 1
$ Time <dbl> 197, 203, 190, 139, 150, 204, 202, 192, 150, 179, 150, 162, 185, 165, 218, 217
$ `Day or Night` <chr> "Night", "Night", "Night", "Day", "Day", "Day", "Night", "Night", "Night", "Night", "Day", "Day", "Night", …
$ Pitchers <dbl> 11, 10, 9, 6, 12, 11, 7, 8, 7, 8, 9, 6, 8, 6, 11, 13
$ Temp <dbl> 88, 77, 75, 86, 84, 84, 90, 86, 73, 78, 73, 76, 76, 79, 86, 82
head(MLB2020)
NA
LS0tCnRpdGxlOiAiU2ltcGxlIExpbmVhciBSZWdyZXNzaW9uIgpzdWJ0aXRsZTogIjEuMiAmIDEuMyBBc3Nlc3NpbmcgQ29uZGl0aW9ucyBmb3IgU0xSIgphdXRob3I6ICJQcm9mIEJlY2ttYW4iCm91dHB1dDogCiAgc2xpZHlfcHJlc2VudGF0aW9uOiBkZWZhdWx0CiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdCAgCi0tLQoKCmBgYHtyIEZyb250IE1hdHRlciwgZWNobz1UUlVFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBpbmNsdWRlPUZBTFNFfQojIGNsZWFuIHVwIFIgZW52aXJvbm1lbnQKcm0obGlzdCA9IGxzKCkpCgojIGdsb2JhbCBvcHRpb25zCmtuaXRyOjpvcHRzX2NodW5rJHNldChldmFsID0gVFJVRSwgaW5jbHVkZSA9IFRSVUUpCm9wdGlvbnMoZGlnaXRzID0gNCkKCiMgcGFja2FnZXMgdXNlZApsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShtb3NhaWMpCmxpYnJhcnkoU3RhdDJEYXRhKQoKCmBgYAoKCiMjIEFnZW5kYQotIFF1YW50aXRhdGl2ZSBSZXNwb25zZSBWYXJpYWJsZQotIE9uZSBRdWFudGl0YXRpdmUgUHJlZGljdG9yIChpLmUuLCBFeHBsYW5hdG9yeSBWYXJpYWJsZSkKLSBjaG9vc2UtZml0LSoqQVNTRVNTKiotdXNlIAoKCiMjIyMgQW5ub3VuY2VtZW50cwotIG5vIG9mZmljZSBob3VyIHRvZGF5IChXZWQgMS8yNCkgCgogICAgCiMjIEZpdHRpbmcgYSBTaW1wbGUgTGluZWFyIFJlZ3Jlc3Npb24gTW9kZWwKCi0gT3VyIFNMUiBtb2RlbCBpcyBzaW1wbHkgdGhlIG1lYW4gZm9yIGV2ZXJ5IHBvc3NpYmxlIHZhbHVlIG9mICRYJAotIElmIHlvdSBmb2N1cyBvbiBvbmUgInNsaWNlIiBvZiB0aGUgZGF0YSBhdCBhIHRpbWUsIHlvdSdyZSBsb29raW5nIGF0IHRoZSBkaXN0cmlidXRpb24gb2YgJFkkIGZvciBhIGdpdmVuIHZhbHVlIG9mICRYJAoKXFtZID0gXGJldGFfMCArIFxiZXRhX3sxfVggKyBcZXBzaWxvblxdCgpXaGVyZSAkXGVwc2lsb24gXHNpbSBOKDAsXHNpZ21hKSQgOiB0aGUgZXJyb3JzIGFyZSBhc3N1bWVkIHRvIGZvbGxvdyBhIE5vcm1hbCBkaXN0cmlidXRpb24gd2l0aCB3aXRoIG1lYW4gMCBhbmQgc3RhbmRhcmQgZGV2aWF0aW9uICRcc2lnbWEkCgoKIVtdKFJlZ3Jlc3Npb24ucG5nKXsgd2lkdGg9OTUlIH0KCgoKIyMgUSdzIGFib3V0IG91ciBTaW1wbGUgTGluZWFyIFJlZ3Jlc3Npb24gTW9kZWwKCi0gV2hhdCdzIHRoZSBvdmVyYWxsIHBhdHRlcm4gaW4gdGhlIHJlbGF0aW9uc2hpcCBiZXR3ZWVuICRYJCAmICRZJD8KLSBXaXRoaW4gYW55IHNpbmdsZSAic2xpY2UiIG9mICRYJCwgd2hhdCBkb2VzIHRoZSBkaXN0cmlidXRpb24gb2YgcmVzaWR1YWxzIGxvb2sgbGlrZT8KLSBBY3Jvc3MgYWxsICJzbGljZXMiIG9mICRYJCwgd2hhdCBpcyBzaW1pbGFyICYgZGlmZmVyZW50IGFib3V0IHRoZSBkaXN0cmlidXRpb24gb2YgJFkkPwotIFdoYXQgZG8gdGhlIGluZGl2aWR1YWwgImRvdHMiIHJlcHJlc2VudCBoZXJlPyAgSW4gd2hhdCB3YXkocykgYXJlIHRoZSAiZG90cyIgcmVsYXRlZCB0byBvbmUgYW5vdGhlciBvciBub3Q/CgoKCiFbXShSZWdyZXNzaW9uLnBuZyl7IHdpZHRoPTk1JSB9CgojIyAxLjIgQ29uZGl0aW9ucyBmb3IgYSAoU2ltcGxlKSBMaW5lYXIgUmVncmVzc2lvbiBNb2RlbDogTC1JLU4tRS1SCgo+LSAqKkwqKmluZWFyIHJlbGF0aW9uc2hpcCBiZXR3ZWVuIFggJiBZCj4tICoqSSoqbmRlcGVuZGVudCBlcnJvcnMgKGkuZS4sIGNhc2VzL29ic2VydmF0aW9ucykKPi0gKipOKipvcm1hbGx5IGRpc3RyaWJ1dGVkICRZJCBmb3IgYW55IGdpdmVuICRYJCAoaS5lLiwgd2l0aGluIGFueSBzbGljZSBvZiAkWCQpCj4tICoqRSoqcXVhbCB2YXJpYW5jZSBvZiAkWSQgZm9yIGFueSBnaXZlbiAkWCQgKGkuZS4sIGFjcm9zcyBhbGwgc2xpY2VzIG9mICRYJCkKPi0gKipSKiphbmRvbSBzYW1wbGUgb2YgZGF0YQoKCgojIyBDb21wYWN0IG5vdGF0aW9uIGZvciBTTFIgY29uZGl0aW9ucywgImlpZCBOb3JtYWwiIHJlc2lkdWFscwoKLSBZb3UgbWlnaHQgaGVhciBwZW9wbGUgc2F5IHRoZSBlcnJvcnMgYXJlIGkuaS5kLiBOb3JtYWwsIG9yIHNlZSB0aGlzIGNvbXBhY3Qgbm90YXRpb246CgpcW1x2YXJlcHNpbG9uIFxvdmVyc2V0e2lpZH17XHNpbX0gTigwLFxzaWdtYSlcXQoKLSBUbyBleHBhbmQgc2xpZ2h0bHksIHRoaXMgbWVhbnMgdGhhdCB0aGUgZXJyb3JzIGFyZSAiaW5kZXBlbmRlbnQgYW5kIGlkZW50aWNhbGx5IGRpc3RyaWJ1dGVkIiBhY2NvcmRpbmcgdG8gdGhlIE5vcm1hbCBkaXN0cmlidXRpb24gc2hvd24uCgotIFE6IENhbiB5b3UgdW5wYWNrIHRoaXMgdG8gbWFwIGVhY2ggcGFydCBvZiBvdXIgTC1JLU4tRS1SIGNvbmRpdGlvbnM/CgoKIyMgU3RhbmRhcmQgRXJyb3Igb2YgUmVncmVzc2lvbiAKClxbXHZhcmVwc2lsb24gXG92ZXJzZXR7aWlkfXtcc2ltfSBOKDAsXHNpZ21hKVxdCgotIFRoZSBzdGFuZGFyZCBkZXZpYXRpb24gb2YgdGhlIHJlc2lkdWFscywgJFxzaWdtYSQsIGFib3ZlIGlzIGNhbGxlZCB0aGUgIlN0YW5kYXJkIEVycm9yIG9mIFJlZ3Jlc3Npb24iCi0gV2UgZXN0aW1hdGUgdGhlIFN0YW5kYXJkIEVycm9yIG9mIFJlZ3Jlc3Npb24gZnJvbSB0aGUgZGF0YQoKXFtcaGF0e1xzaWdtYX1fe1xlcHNpbG9ufSA9IFxzcXJ0e1xmcmFje1xzdW17KHlfaSAtIFxoYXR7eX0pXjJ9fXtuIC0gMn19ID0gXHNxcnR7XGZyYWN7U1NFfXtuIC0gMn19XF0KCi0gV2UgaGF2ZSAkbiAtIDIkIGRlZ3JlZXMgb2YgZnJlZWRvbSBmb3IgZXN0aW1hdGluZyB0aGUgc3RhbmRhcmQgZXJyb3Igb2YgcmVncmVzc2lvbiBoZXJlCi0gV2UgbG9zZSBhICJkZWdyZWUgb2YgZnJlZWRvbSIgZm9yIGVhY2ggJFxiZXRhJCB3ZSBoYXZlIHRvIGVzdGltYXRlIChpLmUuLCAkXGJldGFfMCQgJiAkXGJldGFfMSQpCgoKIyMgUmFuZG9tbmVzcwoKLSBSYW5kb20gaXMgTk9UICpoYXBoYXphcmQqCgpbc291cmNlOiBodHRwczovL20ueGtjZC5jb20vMTIxMC9dKHJhbmRvbS14a2NkLnBuZyl7IHdpZHRoPTk1JSB9CgoKIyMgUmFuZG9tbmVzcyAoVHdvIFR5cGVzKQoKLSBSYW5kb20gc2VsZWN0aW9uIG9mIGNhc2VzICgidW5pdHMiIGluIHRoZSBmaWd1cmUpIGZyb20gdGhlIHRhcmdldCBwb3B1bGF0aW9uCi0gUmFuZG9tIGFzc2lnbm1lbnQgb2YgZXhwbGFuYXRvcnkgdmFyaWFibGUuICRYJAoKW1NvdXJjZTogUmFtc2V5LCBGLiBMLiAmIFNjaGFmZXIsIEQuIFcuICgyMDAyKS4gVGhlIFN0YXRpc3RpY2FsIFNsZXV0aC4gUGFjaWZpYyBHcm92ZSwgQ0E6IER1eGJ1cnkuXShyYW5kb21uZXNzLnBuZykKCgoKCiMjIDEuMyBBc3Nlc3NpbmcgQ29uZGl0aW9ucyBmb3IgU0xSCgotIFJlc2lkdWFscyBjYW4gaGVscCB1cyBhc3Nlc3MgKm1vc3QqIG9mIHRoZSBMLUktTi1FLVIgY29uZGl0aW9ucyAKICAgIC0gTGluZWFyaXR5CiAgICAtIE5vcm1hbGl0eQogICAgLSBFcXVhbCB2YXJpYW5jZQoKLSBNdXN0IHVuZGVyc3RhbmQgaG93IHRoZSBkYXRhIHdlcmUgKmNvbGxlY3RlZCogdG8gYXNzZXNzIG90aGVycwogICAgLSBJbmRlcGVuZGVuY2UKICAgIC0gUmFuZG9tbmVzcwoKLSAqKlE6IC4uLkJ1dCBob3cgZG9lcyBhIFN0YXRpc3RpY2lhbiBmaW5kIG91dCBob3cgdGhlIGRhdGEgd2VyZSBjb2xsZWN0ZWQ/KioKCgojIyBSZXNpZHVhbCBQbG90czogQXNzZXNzaW5nIENvbmRpdGlvbnMgZm9yIFNMUgoKLSBSZXNpZHVhbHMgY2FuIGhlbHAgdXMgYXNzZXNzICptb3N0KiBvZiB0aGUgTC1JLU4tRS1SIGNvbmRpdGlvbnMgCiAgICAtIExpbmVhcml0eTogcmVzaWR1YWxzIHZzIGZpdHRlZCB2YWx1ZXMKICAgIC0gTm9ybWFsaXR5OiByZXNpZHVhbHMgcmVzZW1ibGUgYSBOb3JtYWwgZGlzdHJpYnV0aW9uCiAgICAtIEVxdWFsIHZhcmlhbmNlOiByZXNpZHVhbHMgdnMgZml0dGVkIHZhbHVlcwoKCiMjIFBsb3QgUmVzaWR1YWxzIHZzIEZpdHRlZCBWYWx1ZXMKCi0gQVNTRVNTOiBMaW5lYXJpdHkgJiBFcXVhbCBWYXJpYW5jZSBjb25kaXRpb25zCgoKIVtObyBldmlkZW5jZSBvZiAicGF0dGVybiIgbGVmdCBpbiB0aGUgcmVzaWR1YWxzIChMICYgRSBjb25kaXRpb25zIGxvb2sgT0spXShyZXNpZHMtZml0cy1nb29kLnBuZyl7IHdpZHRoPTk1JSB9CgoKIyMgQ29tbW9uIFByb2JsZW1zIHJldmVhbGVkIGJ5IFJlc2lkdWFscyB2cyBGaXR0ZWQgVmFsdWVzCgohW0V2aWRlbmNlIG9mIG5vbmxpbmVhcml0eSBpbiB0aGUgcmVzaWR1YWxzICgiTCIgdmlvbGF0aW9uKV0ocmVzaWRzLWZpdHMtbm9ubGluZWFyLnBuZyl7IHdpZHRoPTk1JSB9CgoKIVtFdmlkZW5jZSBvZiBub24tY29uc3RhbnQgdmFyaWFuY2UgaW4gdGhlIHJlc2lkdWFscyAoIkUiIHZpb2xhdGlvbildKHJlc2lkcy1maXRzLW5vbmNvbnN0YW50LXZhcmlhbmNlLnBuZyl7IHdpZHRoPTk1JSB9CgoKCiMjIE5vcm1hbCBQbG90cwoKLSBBU1NFU1M6IE5vcm1hbGl0eSBjb25kaXRpb24KLSBXZSdyZSBtYWtpbmcgYSBjb21wYXJpc29uIGJldHdlZW4gUXVhbnRpbGVzIG9ic2VydmVkIGluIG91ciBkYXRhICYgUXVhbnRpbGVzIHdlIHdvdWxkIHRoZW9yZXRpY2FsbHkgZXhwZWN0IGZyb20gYSB0cnVlIE5vcm1hbCBkaXN0cmlidXRpb24KLSBTby1jYWxsZWQgIlF1YW50aWxlLVF1YW50aWxlIiBwbG90IChvciBRUSBQbG90KQoKIVtUb3A6IGlkZWFsIHNpdHVhdGlvbiAoIk4iIGNvbmRpdGlvbiBsb29rcyBncmVhdCk7IEJvdHRvbSBzaG93cyByaWdodCBza2V3IChwcm9ibGVtIHdpdGggIk4iIGNvbmRpdGlvbildKHFxbm9ybS1jb21wYXJlLnBuZyl7IHdpZHRoPTk1JSB9CgoKIyMgTm9ybWFsIFF1YW50aWxlIFBsb3QgY2FuIGJlIGRpZmZpY3VsdCB0byBqdWRnZQoKIVtdKHFxbm9ybS1oZWF2eXRhaWwucG5nKQoKCgojIyBFeGFtcGxlOiBMZW5ndGggb2YgQmFzZWJhbGwgR2FtZXMKCgotIEluIDIwMjMsIE1ham9yIExlYWd1ZSBCYXNlYmFsbCAoTUxCKSBpbnRyb2R1Y2VzIDMwIHNlY29uZCBwaXRjaCBjbG9jawotIChjYWxscyB0byBpbXBsZW1lbnQgc29tZXRoaW5nIHNpbWlsYXIgaW4gQ3JpY2tldCBjYW1lIHNvb24gYWZ0ZXIpCgpSUTogSW4gMjAyMCwgd2hhdCBmYWN0b3JzIGNvdWxkIGhlbHAgcHJlZGljdCBob3cgbG9uZyBhIE1ham9yIExlYWd1ZSBCYXNlYmFsbCBnYW1lIGxhc3RlZD8KCi0gRmlsZXMgb24gQ2FudmFzOiBTdGFydGVyIGNvZGUgYW5kIGRhdGEgc2V0CgoxLiByZWFkIHRoZSBkYXRhIGludG8gUgoyLiBleHBsb3JlIHJlbGF0aW9uc2hpcHMgYmV0d2VlbiB0aW1lICYgcG90ZW50aWFsIHByZWRpY3RvcnMKMy4gQ0hPT1NFIGEgbW9kZWwgKGhpbnQ6IGl0J3Mgc2ltcGxlIGxpbmVhciByZWdyZXNzaW9uKQozLiBGSVQgYSBzaW1wbGUgbGluZWFyIHJlZ3Jlc3Npb24gbW9kZWwgdG8gdGhlIGRhdGEKNC4gQVNTRVNTIHRoZSBtb2RlbCBmaXQgKEwtSS1OLUUtUiBDb25kaXRpb25zKQoKCgpgYGB7cn0KTUxCMjAyMCA8LSByZWFkX2NzdigiaHR0cHM6Ly9zaXRlcy5wc3UuZWR1L3NhcjMyMC9maWxlcy8yMDIzLzA4L01MQjIwMjAuY3N2IikKCmdsaW1wc2UoTUxCMjAyMCkKaGVhZChNTEIyMDIwKQoKYGBgCgoKIyMgRXh0cmEgUHJhY3RpY2U6IFRleHRib29rIFByaWNlcwoKCg==