install.packages("dplyr")
install.packages("plyr")
install.packages("ggplot2")
install.packages("tidyr")
install.packages("purrr")
install.packages("readr")
install.packages("sqldf")
#Libraries needed:
library(dplyr)
library(plyr)
library(ggplot2)
library(tidyr)
library(purrr)
library(readr)
library(sqldf)

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9Cmluc3RhbGwucGFja2FnZXMoImRwbHlyIikKaW5zdGFsbC5wYWNrYWdlcygicGx5ciIpCmluc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQppbnN0YWxsLnBhY2thZ2VzKCJ0aWR5ciIpCmluc3RhbGwucGFja2FnZXMoInB1cnJyIikKaW5zdGFsbC5wYWNrYWdlcygicmVhZHIiKQppbnN0YWxsLnBhY2thZ2VzKCJzcWxkZiIpCmBgYAoKI0xpYnJhcmllcyBuZWVkZWQ6CgpgYGB7cn0KbGlicmFyeShkcGx5cikKbGlicmFyeShwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkocHVycnIpCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoc3FsZGYpCmBgYAoKCmBgYHtyfQphcnRpY2xlczEgPC0gcmVhZF9jc3YoJ3B1Ymxpc2hlcnMuY3N2JykKYXJ0aWNsZXMyIDwtIHJlYWRfY3N2KCdwYXJhZ3JhcGhzLmNzdicpCnRpbWVkZWx0YSA8LSByZWFkX2NzdigndGltZWRlbHRhLmNzdicpCgphcnRpY2xlcyA9IG1lcmdlKHg9IGFydGljbGVzMiwgeT1hcnRpY2xlczEsIGJ5PSJpZCIpICMjb25seSBzaG93cyB0aGUgb25lcyB3aXRoIGNoYW5nZSBieSBkZWZhdWx0CmFydGljbGVzX2FsbCA9IG1lcmdlKHg9YXJ0aWNsZXMyLCB5PWFydGljbGVzMSwgYnk9ImlkIiwgYWxsPVQpICMjc2hvd3MgYWxsIGFydGljbGVzCmFydGljbGVzX2FsbF9kaXN0aW5jdCA9IHNxbGRmKCJzZWxlY3QgZGlzdGluY3QoaWQpLHB1Ymxpc2hlcix1cmwscGFyYWdyYXBoc19jaGFuZ2VkLHBhcmFncmFwaHNfYWRkZWQscGFyYWdyYXBoc19yZW1vdmVkIGZyb20gYXJ0aWNsZXNfYWxsIikKCmFydF9jaGFuZ2VkID0gc3FsZGYoInNlbGVjdCBpZCxwdWJsaXNoZXIsZWRpdF9kaXN0YW5jZSBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCgphcnRpY2xlc19hbGxfZGlzdGluY3RfY291bnQgPC0gYXJ0aWNsZXNfYWxsX2Rpc3RpbmN0JT4lZ3JvdXBfYnkocHVibGlzaGVyKSU+JWRwbHlyOjptdXRhdGUoY291bnQ9bigpKQphcnRpY2xlc19hbGxfZGlzdGluY3RfY291bnQyID0gc3FsZGYoInNlbGVjdCBkaXN0aW5jdChwdWJsaXNoZXIpLGNvdW50IGZyb20gYXJ0aWNsZXNfYWxsX2Rpc3RpbmN0X2NvdW50IikKYXJ0aWNsZXNfYWxsX2Rpc3RpbmN0X2NvdW50MjwtbmEub21pdChhcnRpY2xlc19hbGxfZGlzdGluY3RfY291bnQyKQphcnRpY2xlc19hbGxfZGlzdGluY3RfY291bnQyPC1hcnRpY2xlc19hbGxfZGlzdGluY3RfY291bnQyWy1jKDE4KSxdCiNnZXQgYXJ0aWNsZSBjaGFuZ2UgY291bnQgcGVyIHB1YgphcnRfYWxsX2NoYW5nZWQgPSBzcWxkZigic2VsZWN0IGRpc3RpbmN0KGlkKSxwdWJsaXNoZXIgZnJvbSBhcnRpY2xlcyB3aGVyZSAoc2VudGltZW50XzEgIT0wIG9yIHNlbnRpbWVudF8yICE9IDApIikKYXJ0X2FsbF9jaGFuZ2VkPC1hcnRfYWxsX2NoYW5nZWQlPiVncm91cF9ieShwdWJsaXNoZXIpJT4lZHBseXI6Om11dGF0ZShjb3VudD1uKCkpCmFydF9hbGxfY2hhbmdlZDIgPSBzcWxkZigic2VsZWN0IGRpc3RpbmN0KHB1Ymxpc2hlciksY291bnQgZnJvbSBhcnRfYWxsX2NoYW5nZWQiKQphcnRfYWxsX2NoYW5nZWR4PW1lcmdlKHg9YXJ0X2FsbF9jaGFuZ2VkMix5PWFydGljbGVzX2FsbF9kaXN0aW5jdF9jb3VudDIsYnk9InB1Ymxpc2hlciIpCgphcnRfYWxsX2NoYW5nZWR4JGNoYW5nZWRfcGN0PC0oYXJ0X2FsbF9jaGFuZ2VkeCRjb3VudC54L2FydF9hbGxfY2hhbmdlZHgkY291bnQueSkqMTAwCmFydF9jaGFuZ2VkPW1lcmdlKHg9YXJ0X2NoYW5nZWQseT1hcnRfYWxsX2NoYW5nZWR4LGJ5PSJwdWJsaXNoZXIiKQoKZ2dwbG90KGRhdGE9YXJ0X2NoYW5nZWQsIG1hcHBpbmc9YWVzKHg9cmVvcmRlcihwdWJsaXNoZXIsLWNoYW5nZWRfcGN0KSx5PWVkaXRfZGlzdGFuY2UsZmlsbD1jaGFuZ2VkX3BjdCxvcmRlcj1jaGFuZ2VkX3BjdCkpK2dlb21fYm94cGxvdChvdXRsaWVyLnNoYXBlPU5BKStzY2FsZV9maWxsX2dyYWRpZW50KGxvdz0iZ3JlZW4iLGhpZ2g9InJlZCIpK2Nvb3JkX2ZsaXAoKSt0aGVtZV9idygpK3RoZW1lKGF4aXMudGl0bGU9ZWxlbWVudF90ZXh0KGZhY2U9ImJvbGQiLHNpemU9MTQpLGF4aXMudGV4dC54PWVsZW1lbnRfdGV4dChzaXplPTEwKSxsZWdlbmQudGV4dD1lbGVtZW50X3RleHQoc2l6ZT0xMCxhbmdsZT00NSksbGVnZW5kLnRpdGxlPWVsZW1lbnRfdGV4dChmYWNlPSJib2xkIixzaXplPTE0KSxsZWdlbmQucG9zaXRpb249InRvcCIpK2xhYnMoeD0iUHVibGlzaGVyIix5PSJFZGl0IERpc3RhbmNlIixmaWxsPSIlIG9mIGNoYW5nZWQgYXJ0aWNsZXMiKQoKCmBgYA==