Question 2:
See on Blackboard
Question 4:
All apply
bike1 <- read.table("bike_sharing_data.csv", sep=",", header=TRUE)
bike2 <- read.table("bike_sharing_data.txt", sep="\t", header=TRUE)
bike3 <- read.csv("bike_sharing_data.csv")
bike4 <- read.delim("bike_sharing_data.txt")
Question 7:
4
bike_sharing_data[6251, ]
Question 8:
4232
table(bike_sharing_data$season)
Question 10:
46
subset(bike_sharing_data, (windspeed >= 40) & ((season) %in% c("1" , "4")) )
Add a new chunk by clicking the Insert Chunk button on the
toolbar or by pressing Cmd+Option+I.
When you save the notebook, an HTML file containing the code and
output will be saved alongside it (click the Preview button or
press Cmd+Shift+K to preview the HTML file).
The preview shows you a rendered HTML copy of the contents of the
editor. Consequently, unlike Knit, Preview does not
run any R code chunks. Instead, the output of the chunk when it was last
run in the editor is displayed.
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQojIFF1ZXN0aW9uIDE6IAojIyMgVHJ1ZSAKCiMgUXVlc3Rpb24gMjogIAojIyMgU2VlIG9uIEJsYWNrYm9hcmQKCgojIFF1ZXN0aW9uIDM6CiMjIyBUcnVlCgojIFF1ZXN0aW9uIDQ6IAojIyMgQWxsIGFwcGx5CmBgYHtyfQoKYmlrZTEgPC0gcmVhZC50YWJsZSgiYmlrZV9zaGFyaW5nX2RhdGEuY3N2Iiwgc2VwPSIsIiwgaGVhZGVyPVRSVUUpCmBgYAoKYGBge3J9CmJpa2UyIDwtIHJlYWQudGFibGUoImJpa2Vfc2hhcmluZ19kYXRhLnR4dCIsIHNlcD0iXHQiLCBoZWFkZXI9VFJVRSkKYGBgCgpgYGB7cn0KYmlrZTMgPC0gcmVhZC5jc3YoImJpa2Vfc2hhcmluZ19kYXRhLmNzdiIpCmBgYAoKYGBge3J9CmJpa2U0IDwtIHJlYWQuZGVsaW0oImJpa2Vfc2hhcmluZ19kYXRhLnR4dCIpCmBgYAoKIyBRdWVzdGlvbiA1OiAKIyMjIDE3Mzc5LCAxMwoKCiMgUXVlc3Rpb24gNjogCiMjIyBDaGFyYWN0ZXIKCiMgUXVlc3Rpb24gNzogCiMjIyA0IApgYGB7cn0KYmlrZV9zaGFyaW5nX2RhdGFbNjI1MSwgXQpgYGAKCiMgUXVlc3Rpb24gODogCiMjIyA0MjMyCmBgYHtyfQp0YWJsZShiaWtlX3NoYXJpbmdfZGF0YSRzZWFzb24pCmBgYAoKIyBRdWVzdGlvbiA5OiAKIyMjIFRydWUgCgojIFF1ZXN0aW9uIDEwOiAKIyMjIDQ2CmBgYHtyfQpzdWJzZXQoYmlrZV9zaGFyaW5nX2RhdGEsICh3aW5kc3BlZWQgPj0gNDApICYgKChzZWFzb24pICVpbiUgYygiMSIgLCAiNCIpKSApCmBgYAoKCgpBZGQgYSBuZXcgY2h1bmsgYnkgY2xpY2tpbmcgdGhlICpJbnNlcnQgQ2h1bmsqIGJ1dHRvbiBvbiB0aGUgdG9vbGJhciBvciBieSBwcmVzc2luZyAqQ21kK09wdGlvbitJKi4KCldoZW4geW91IHNhdmUgdGhlIG5vdGVib29rLCBhbiBIVE1MIGZpbGUgY29udGFpbmluZyB0aGUgY29kZSBhbmQgb3V0cHV0IHdpbGwgYmUgc2F2ZWQgYWxvbmdzaWRlIGl0IChjbGljayB0aGUgKlByZXZpZXcqIGJ1dHRvbiBvciBwcmVzcyAqQ21kK1NoaWZ0K0sqIHRvIHByZXZpZXcgdGhlIEhUTUwgZmlsZSkuIAoKVGhlIHByZXZpZXcgc2hvd3MgeW91IGEgcmVuZGVyZWQgSFRNTCBjb3B5IG9mIHRoZSBjb250ZW50cyBvZiB0aGUgZWRpdG9yLiBDb25zZXF1ZW50bHksIHVubGlrZSAqS25pdCosICpQcmV2aWV3KiBkb2VzIG5vdCBydW4gYW55IFIgY29kZSBjaHVua3MuIEluc3RlYWQsIHRoZSBvdXRwdXQgb2YgdGhlIGNodW5rIHdoZW4gaXQgd2FzIGxhc3QgcnVuIGluIHRoZSBlZGl0b3IgaXMgZGlzcGxheWVkLgoK