install.packages("AmesHousing")
Error in install.packages : Updating loaded packages
# Compute test data generalization RMSE
ames_lm1 %>%
predict(ames_test) %>%
bind_cols(ames_test) %>%
rmse(truth = Sale_Price, estimate = .pred)
Warning: prediction from rank-deficient fit; consider predict(., rankdeficient="NA")
mlr_fit %>%
predict(ames_test) %>%
bind_cols(ames_test %>% select(Sale_Price)) %>%
rmse(truth = Sale_Price, estimate = .pred)
Warning: prediction from rank-deficient fit; consider predict(., rankdeficient="NA")
# a. import the Advertising.csv data
advertising <- read_csv("Advertising.csv")
Rows: 200 Columns: 4── Column specification ────────────────────
Delimiter: ","
dbl (4): TV, radio, newspaper, sales
ℹ 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.
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpgYGB7cn0NCmxpYnJhcnkodGlkeW1vZGVscykNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShyZWFkcikNCmxpYnJhcnkoQW1lc0hvdXNpbmcpDQpgYGANCg0KDQoNCmBgYHtyfQ0KIyBhLiBpbXBvcnQgdGhlIGJvc3Rvbi5jc3YgZGF0YQ0KYm9zdG9uIDwtIHJlYWRfY3N2KCJib3N0b24uY3N2IikNCg0KIyBiLiBjcmVhdGUgYSA3MC0zMCB0cmFpbi90ZXN0IGRhdGFzZXQgc3BsaXQNCnNldC5zZWVkKDEyMykNCnNwbGl0IDwtIGluaXRpYWxfc3BsaXQoYm9zdG9uLCBwcm9wID0gMC43LCBzdHJhdGEgPSBjbWVkdikNCmJvc3Rvbl90cmFpbiA8LSB0cmFpbmluZyhzcGxpdCkNCmJvc3Rvbl90ZXN0IDwtIHRlc3Rpbmcoc3BsaXQpDQoNCiMgYy4gZml0IGEgbXVsdGlwbGUgbGluZWFyIHJlZ3Jlc3Npb24gbW9kZWwgdXNpbmcgYWxsIHByZWRpY3RvcnMNCiMgaW4gdGhlaXIgY3VycmVudCBzdGF0ZSAod2l0aG91dCBhbnkgZmVhdHVyZSBlbmdpbmVlcmluZykNCmJvc3Rvbl9sbTEgPC0gbGluZWFyX3JlZygpICU+JQ0KZml0KGNtZWR2IH4gLiwgZGF0YSA9IGJvc3Rvbl90cmFpbikNCg0KIyBkLiBhbmQgY29tcHV0ZSB0aGUgUk1TRSBvbiB0aGUgdGVzdCBkYXRhDQpib3N0b25fbG0xICU+JQ0KcHJlZGljdChib3N0b25fdGVzdCkgJT4lDQpiaW5kX2NvbHMoYm9zdG9uX3Rlc3QgJT4lIHNlbGVjdChjbWVkdikpICU+JQ0Kcm1zZSh0cnV0aCA9IGNtZWR2LCBlc3RpbWF0ZSA9IC5wcmVkKQ0KYGBgDQoNCg0KDQoNCmBgYHtyfQ0KIyBhLiBDcmVhdGUgYSByZWNpcGUNCm1scl9yZWNpcGUgPC0gcmVjaXBlKGNtZWR2IH4gLiwgZGF0YSA9IGJvc3Rvbl90cmFpbikgJT4lDQpzdGVwX1llb0pvaG5zb24oYWxsX251bWVyaWNfcHJlZGljdG9ycygpKSAlPiUNCnN0ZXBfbm9ybWFsaXplKGFsbF9udW1lcmljX3ByZWRpY3RvcnMoKSkNCg0KIyBiLiBDcmVhdGUgYSB3b3JrZmxvdyBvYmplY3QgdGhhdCBjb250YWlucyB0aGUgbW9kZWwgYW5kIHJlY2lwZQ0KbWxyX3dmbG93IDwtIHdvcmtmbG93KCkgJT4lDQphZGRfbW9kZWwobGluZWFyX3JlZygpKSAlPiUNCmFkZF9yZWNpcGUobWxyX3JlY2lwZSkNCg0KIyBjLiBUcmFpbiB0aGUgbW9kZWwNCm1scl9maXQgPC0gbWxyX3dmbG93ICU+JQ0KZml0KGRhdGEgPSBib3N0b25fdHJhaW4pDQoNCiMgZC4gYW5kIGNvbXB1dGUgdGhlIFJNU0Ugb24gdGhlIHRlc3QgZGF0YQ0KbWxyX2ZpdCAlPiUNCnByZWRpY3QoYm9zdG9uX3Rlc3QpICU+JQ0KYmluZF9jb2xzKGJvc3Rvbl90ZXN0ICU+JSBzZWxlY3QoY21lZHYpKSAlPiUNCnJtc2UodHJ1dGggPSBjbWVkdiwgZXN0aW1hdGUgPSAucHJlZCkNCmBgYA0KDQoNCg0KYGBge3J9DQojIEltcG9ydCBBbWVzIGRhdGEgYW5kIHNwbGl0IGludG8gdHJhaW4vdGVzdA0KYW1lcyA8LSBBbWVzSG91c2luZzo6bWFrZV9hbWVzKCkNCnNldC5zZWVkKDEyMykgIyBmb3IgcmVwcm9kdWNpYmlsaXR5DQpzcGxpdCA8LSBpbml0aWFsX3NwbGl0KGFtZXMsIHByb3AgPSAwLjcsIHN0cmF0YSA9ICJTYWxlX1ByaWNlIikNCmFtZXNfdHJhaW4gPC0gdHJhaW5pbmcoc3BsaXQpDQphbWVzX3Rlc3QgPC0gdGVzdGluZyhzcGxpdCkNCg0KIyBSZW1vdmUgdHJvdWJsZSB2YXJpYWJsZXMNCnRyYmxfdmFycyA8LSBjKCJNU19TdWJDbGFzcyIsICJDb25kaXRpb25fMiIsICJFeHRlcmlvcl8xc3QiLCAiRXh0ZXJpb3JfMm5kIiwgIk1pc2NfRmVhdHVyZSIpDQphbWVzX3RyYWluX3N1YnNldCA8LSBhbWVzX3RyYWluICU+JQ0Kc2VsZWN0KC10cmJsX3ZhcnMpDQoNCiMgVHJhaW4gdGhlIG1vZGVsIHdpdGhvdXQgdGhlIGFib3ZlIHRyb3VibGUgdmFyaWFibGVzDQphbWVzX2xtMSA8LSBsaW5lYXJfcmVnKCkgJT4lDQpmaXQoU2FsZV9QcmljZSB+IC4sIGRhdGEgPSBhbWVzX3RyYWluX3N1YnNldCkNCg0KIyBDb21wdXRlIHRlc3QgZGF0YSBnZW5lcmFsaXphdGlvbiBSTVNFDQphbWVzX2xtMSAlPiUNCnByZWRpY3QoYW1lc190ZXN0KSAlPiUNCmJpbmRfY29scyhhbWVzX3Rlc3QpICU+JQ0Kcm1zZSh0cnV0aCA9IFNhbGVfUHJpY2UsIGVzdGltYXRlID0gLnByZWQpDQpgYGANCg0KDQoNCg0KYGBge3J9DQptbHJfcmVjaXBlIDwtIHJlY2lwZShTYWxlX1ByaWNlIH4gLiwgZGF0YSA9IGFtZXNfdHJhaW4pICU+JQ0Kc3RlcF9vdGhlcihhbGxfbm9taW5hbF9wcmVkaWN0b3JzKCksIHRocmVzaG9sZCA9IDAuMDEsIG90aGVyID0gIm90aGVyIikNCg0KbWxyX3dmbG93IDwtIHdvcmtmbG93KCkgJT4lDQphZGRfbW9kZWwobGluZWFyX3JlZygpKSAlPiUNCmFkZF9yZWNpcGUobWxyX3JlY2lwZSkNCg0KbWxyX2ZpdCA8LSBtbHJfd2Zsb3cgJT4lDQpmaXQoZGF0YSA9IGFtZXNfdHJhaW4pDQoNCm1scl9maXQgJT4lDQpwcmVkaWN0KGFtZXNfdGVzdCkgJT4lDQpiaW5kX2NvbHMoYW1lc190ZXN0ICU+JSBzZWxlY3QoU2FsZV9QcmljZSkpICU+JQ0Kcm1zZSh0cnV0aCA9IFNhbGVfUHJpY2UsIGVzdGltYXRlID0gLnByZWQpDQpgYGANCg0KDQoNCg0KDQpgYGB7cn0NCiMgYS4gaW1wb3J0IHRoZSBBZHZlcnRpc2luZy5jc3YgZGF0YQ0KYWR2ZXJ0aXNpbmcgPC0gcmVhZF9jc3YoIkFkdmVydGlzaW5nLmNzdiIpDQoNCiMgYi4gY3JlYXRlIGEgNzAtMzAgdHJhaW4vdGVzdCBkYXRhc2V0IHNwbGl0DQpzZXQuc2VlZCgxMjMpDQpzcGxpdCA8LSBpbml0aWFsX3NwbGl0KGFkdmVydGlzaW5nLCBwcm9wID0gMC43LCBzdHJhdGEgPSBzYWxlcykNCmFkdmVydGlzaW5nX3RyYWluIDwtIHRyYWluaW5nKHNwbGl0KQ0KYWR2ZXJ0aXNpbmdfdGVzdCA8LSB0ZXN0aW5nKHNwbGl0KQ0KYGBgDQoNCmBgYHtyfQ0KIyBjcmVhdGUgMTAtZm9sZCBjcm9zcy12YWxpZGF0aW9uIG9iamVjdA0Kc2V0LnNlZWQoMTIzKQ0Ka2ZvbGRzIDwtIHZmb2xkX2N2KGFkdmVydGlzaW5nX3RyYWluLCB2ID0gMTAsIHN0cmF0YSA9IHNhbGVzKQ0KIyBjcmVhdGUgcmVjaXBlIHdpdGggbm8gZmVhdHVyZSBlbmdpbmVlcmluZyBzdGVwcw0KbWxyX3JlY2lwZSA8LSByZWNpcGUoc2FsZXMgfiAuLCBkYXRhID0gYWR2ZXJ0aXNpbmdfdHJhaW4pDQoNCiMgY3JlYXRlIHdvcmtmbG93IG9iamVjdA0KbWxyX3dmbG93IDwtIHdvcmtmbG93KCkgJT4lDQphZGRfbW9kZWwobGluZWFyX3JlZygpKSAlPiUNCmFkZF9yZWNpcGUobWxyX3JlY2lwZSkNCg0KIyBmaXQgb3VyIG1vZGVsIGFjcm9zcyB0aGUgMTAtZm9sZCBDVg0KbWxyX2ZpdF9jdiA8LSBtbHJfd2Zsb3cgJT4lDQpmaXRfcmVzYW1wbGVzKGtmb2xkcykNCg0KY29sbGVjdF9tZXRyaWNzKG1scl9maXRfY3YpDQpgYGANCg0KDQoNCmBgYHtyfQ0KY29sbGVjdF9tZXRyaWNzKG1scl9maXRfY3YsIHN1bW1hcml6ZSA9IEZBTFNFKSAlPiUNCmZpbHRlcigubWV0cmljID09ICdybXNlJykNCmBgYA0KDQoNCg0KYGBge3J9DQojIGNyZWF0ZSBib290c3RyYXAgc2FtcGxlIG9iamVjdA0Kc2V0LnNlZWQoMTIzKQ0KYnNfc2FtcGxlcyA8LSBib290c3RyYXBzKGFkdmVydGlzaW5nX3RyYWluLCB0aW1lcyA9IDEwLCBzdHJhdGEgPSBzYWxlcykNCg0KIyBmaXQgb3VyIG1vZGVsIGFjcm9zcyB0aGUgYm9vdHN0cmFwcGVkIHNhbXBsZXMNCm1scl9maXRfYnMgPC0gbWxyX3dmbG93ICU+JQ0KZml0X3Jlc2FtcGxlcyhic19zYW1wbGVzKQ0KDQpjb2xsZWN0X21ldHJpY3MobWxyX2ZpdF9icykNCmBgYA0KDQoNCg0KYGBge3J9DQpjb2xsZWN0X21ldHJpY3MobWxyX2ZpdF9icywgc3VtbWFyaXplID0gRkFMU0UpICU+JQ0KICBmaWx0ZXIoLm1ldHJpYyA9PSAncm1zZScpDQpgYGANCg0KDQo=