inst/script/make-nyc_regents_scores.R

library(tidyverse)
library(readxl)

nyc_regents_scores <- read_excel("inst/extdata/2010_bigfive_regents.xls") %>% as.data.frame
nyc_regents_scores <- nyc_regents_scores[-c(1:2),]
names(nyc_regents_scores) <- gsub("\\.", "", gsub(" ", "_", tolower(names(nyc_regents_scores))))
rownames(nyc_regents_scores) <- NULL
names(nyc_regents_scores)[1] <- "score"
nyc_regents_scores$score[nyc_regents_scores$score == 999] <- NA
nyc_regents_scores$score <- as.numeric(nyc_regents_scores$score)
nyc_regents_scores

save(nyc_regents_scores, file = "data/nyc_regents_scores.rda", compress="xz")

Try the dslabs package in your browser

Any scripts or data that you put into this service are public.

dslabs documentation built on May 29, 2024, 6:29 a.m.