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)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKYGBge3J9Cmluc3RhbGwucGFja2FnZXMoImRwbHlyIikKaW5zdGFsbC5wYWNrYWdlcygicGx5ciIpCmluc3RhbGwucGFja2FnZXMoImdncGxvdDIiKQppbnN0YWxsLnBhY2thZ2VzKCJ0aWR5ciIpCmluc3RhbGwucGFja2FnZXMoInB1cnJyIikKaW5zdGFsbC5wYWNrYWdlcygicmVhZHIiKQppbnN0YWxsLnBhY2thZ2VzKCJzcWxkZiIpCmBgYAoKI0xpYnJhcmllcyBuZWVkZWQ6CgpgYGB7cn0KbGlicmFyeShkcGx5cikKbGlicmFyeShwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkocHVycnIpCmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoc3FsZGYpCmBgYAoKCmBgYHtyfQphcnRpY2xlczEgPC0gcmVhZF9jc3YoJ3B1Ymxpc2hlcnMuY3N2JykKYXJ0aWNsZXMyIDwtIHJlYWRfY3N2KCdwYXJhZ3JhcGhzLmNzdicpCnRpbWVkZWx0YSA8LSByZWFkX2NzdigndGltZWRlbHRhLmNzdicpCgphcnRpY2xlcyA9IG1lcmdlKHg9IGFydGljbGVzMiwgeT1hcnRpY2xlczEsIGJ5PSJpZCIpICMjb25seSBzaG93cyB0aGUgb25lcyB3aXRoIGNoYW5nZSBieSBkZWZhdWx0CmFydGljbGVzX2FsbCA9IG1lcmdlKHg9YXJ0aWNsZXMyLCB5PWFydGljbGVzMSwgYnk9ImlkIiwgYWxsPVQpICMjc2hvd3MgYWxsIGFydGljbGVzCmFydGljbGVzX2FsbF9kaXN0aW5jdCA9IHNxbGRmKCJzZWxlY3QgZGlzdGluY3QoaWQpLHB1Ymxpc2hlcix1cmwscGFyYWdyYXBoc19jaGFuZ2VkLHBhcmFncmFwaHNfYWRkZWQscGFyYWdyYXBoc19yZW1vdmVkIGZyb20gYXJ0aWNsZXNfYWxsIikKCmFydF9jaGFuZ2VkID0gc3FsZGYoInNlbGVjdCBpZCxwdWJsaXNoZXIsZWRpdF9kaXN0YW5jZSBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCgphcnRpY2xlc19zc19uZXV0X3RvX25lZyA9IHNxbGRmKCJzZWxlY3QgaWQsc2VudGltZW50XzEsc2VudGltZW50XzIgZnJvbSBhcnRpY2xlcyB3aGVyZSBzZW50aW1lbnRfMT4xIGFuZCBzZW50aW1lbnRfMTwyIGFuZCBzZW50aW1lbnRfMjwxIGFuZCBzZW50aW1lbnRfMSE9MCBhbmQgc2VudGltZW50XzIhPTAiKQphcnRpY2xlc19zc19uZWdfdG9fbmVnID0gc3FsZGYoInNlbGVjdCBpZCxzZW50aW1lbnRfMSxzZW50aW1lbnRfMiBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xPDEgYW5kIHNlbnRpbWVudF8yPDEgYW5kIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCmFydGljbGVzX3NzX3Bvc190b19uZWcgPSBzcWxkZigic2VsZWN0IGlkLHNlbnRpbWVudF8xLHNlbnRpbWVudF8yIGZyb20gYXJ0aWNsZXMgd2hlcmUgc2VudGltZW50XzE+MiBhbmQgc2VudGltZW50XzI8MSBhbmQgc2VudGltZW50XzEhPTAgYW5kIHNlbnRpbWVudF8yIT0wIikKCmFydGljbGVzX3NzX25ldXRfdG9fcG9zID0gc3FsZGYoInNlbGVjdCBpZCxzZW50aW1lbnRfMSxzZW50aW1lbnRfMiBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xPjEgYW5kIHNlbnRpbWVudF8xPDIgYW5kIHNlbnRpbWVudF8yPjIgYW5kIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCmFydGljbGVzX3NzX25lZ190b19wb3MgPSBzcWxkZigic2VsZWN0IGlkLHNlbnRpbWVudF8xLHNlbnRpbWVudF8yIGZyb20gYXJ0aWNsZXMgd2hlcmUgc2VudGltZW50XzE8MSBhbmQgc2VudGltZW50XzI+MiBhbmQgc2VudGltZW50XzEhPTAgYW5kIHNlbnRpbWVudF8yIT0wIikKYXJ0aWNsZXNfc3NfcG9zX3RvX3BvcyA9IHNxbGRmKCJzZWxlY3QgaWQsc2VudGltZW50XzEsc2VudGltZW50XzIgZnJvbSBhcnRpY2xlcyB3aGVyZSBzZW50aW1lbnRfMT4yIGFuZCBzZW50aW1lbnRfMj4yIGFuZCBzZW50aW1lbnRfMSE9MCBhbmQgc2VudGltZW50XzIhPTAiKQoKYXJ0aWNsZXNfc3NfbmV1dF90b19uZXV0ID0gc3FsZGYoInNlbGVjdCBpZCxzZW50aW1lbnRfMSxzZW50aW1lbnRfMiBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xPjEgYW5kIHNlbnRpbWVudF8xPDIgYW5kIHNlbnRpbWVudF8yPjEgYW5kIHNlbnRpbWVudF8yPDIgYW5kIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCmFydGljbGVzX3NzX25lZ190b19uZXV0ID0gc3FsZGYoInNlbGVjdCBpZCxzZW50aW1lbnRfMSxzZW50aW1lbnRfMiBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xPDEgYW5kIHNlbnRpbWVudF8yPjEgYW5kIHNlbnRpbWVudF8yPDIgYW5kIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCmFydGljbGVzX3NzX3Bvc190b19uZXV0ID0gc3FsZGYoInNlbGVjdCBpZCxzZW50aW1lbnRfMSxzZW50aW1lbnRfMiBmcm9tIGFydGljbGVzIHdoZXJlIHNlbnRpbWVudF8xPjIgYW5kIHNlbnRpbWVudF8yPjEgYW5kIHNlbnRpbWVudF8yPDIgYW5kIHNlbnRpbWVudF8xIT0wIGFuZCBzZW50aW1lbnRfMiE9MCIpCgpgYGA=