require(tidyverse) require(readr) require(mosaic) require(Lock5withR) require(fivethirtyeight) require(okcupiddata) require(lsr) require(supernova) candy_rankings <- fivethirtyeight::candy_rankings %>% mutate(nutty = peanutyalmondy, sugarpercent = sugarpercent * 100) %>% select(competitorname, winpercent, chocolate, fruity, nutty, hard, bar, sugarpercent, pricepercent) selfies <- read_csv("https://docs.google.com/spreadsheets/d/1jqMg3-L4Z5bK5FCjCC2rv6Za4qzM5nq_Yn6k_rJmZ6M/export?format=csv") Vegemite.brief <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vRwMbv_qU-4B8DVZWJshcacrhwFXCIUT5il3CFFZpVqpEFCnMRheueuYp47NYg4zmUFZz-N6tNbOJVz/pub?output=csv", header=TRUE) ScienceData <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSZ05igsIATDBskS90uP2543bs6dPDgdgfsfzQVk65PKQGLsaWIcaxy4rLlVuoXmoEF4h0RXMureeX2/pub?output=csv", header=TRUE) praisestudy <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSOk22ulsLE8gvsUKDhHHHJuzdNw1CR--ZQupN_DyRYDgbVD36BX00cgY4ZI7YYnVqysh0xKuvplbUQ/pub?output=csv", header=TRUE) praisestudy <- select(praisestudy, PS1, PS2, PS3, PSDIFF, FEEDBACK) LaptopData <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vQxSANlvik8aauY3BWM8urkoThFQcVbbq_AsN0NagjhsXLHk6cSyuVHnfkiHkYFguaiSIfA-ccAfWmd/pub?output=csv", header=TRUE) # manual import from dslabs murders <- structure(list(state = c("Alabama", "Alaska", "Arizona", "Arkansas", "California", "Colorado", "Connecticut", "Delaware", "District of Columbia", "Florida", "Georgia", "Hawaii", "Idaho", "Illinois", "Indiana", "Iowa", "Kansas", "Kentucky", "Louisiana", "Maine", "Maryland", "Massachusetts", "Michigan", "Minnesota", "Mississippi", "Missouri", "Montana", "Nebraska", "Nevada", "New Hampshire", "New Jersey", "New Mexico", "New York", "North Carolina", "North Dakota", "Ohio", "Oklahoma", "Oregon", "Pennsylvania", "Rhode Island", "South Carolina", "South Dakota", "Tennessee", "Texas", "Utah", "Vermont", "Virginia", "Washington", "West Virginia", "Wisconsin", "Wyoming"), abb = c("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "DC", "FL", "GA", "HI", "ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", "MA", "MI", "MN", "MS", "MO", "MT", "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", "OR", "PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY"), region = structure(c(2L, 4L, 4L, 2L, 4L, 4L, 1L, 2L, 2L, 2L, 2L, 4L, 4L, 3L, 3L, 3L, 3L, 2L, 2L, 1L, 2L, 1L, 3L, 3L, 2L, 3L, 4L, 3L, 4L, 1L, 1L, 4L, 1L, 2L, 3L, 3L, 2L, 4L, 1L, 1L, 2L, 3L, 2L, 2L, 4L, 1L, 2L, 4L, 2L, 3L, 4L), .Label = c("Northeast", "South", "North Central", "West"), class = "factor"), population = c(4779736, 710231, 6392017, 2915918, 37253956, 5029196, 3574097, 897934, 601723, 19687653, 9920000, 1360301, 1567582, 12830632, 6483802, 3046355, 2853118, 4339367, 4533372, 1328361, 5773552, 6547629, 9883640, 5303925, 2967297, 5988927, 989415, 1826341, 2700551, 1316470, 8791894, 2059179, 19378102, 9535483, 672591, 11536504, 3751351, 3831074, 12702379, 1052567, 4625364, 814180, 6346105, 25145561, 2763885, 625741, 8001024, 6724540, 1852994, 5686986, 563626), total = c(135, 19, 232, 93, 1257, 65, 97, 38, 99, 669, 376, 7, 12, 364, 142, 21, 63, 116, 351, 11, 293, 118, 413, 53, 120, 321, 12, 32, 84, 5, 246, 67, 517, 286, 4, 310, 111, 36, 457, 16, 207, 8, 219, 805, 22, 2, 250, 93, 27, 97, 5)), row.names = c(NA, -51L), class = "data.frame")