rohit-gupta

library(readr)
library(tidyr)
library(ggplot2)


CDC_YRBS_eversex <- read_delim("CDC_YRBS_eversex.tsv", 
                               "\t", escape_double = FALSE, na = "N/A", 
                               trim_ws = TRUE)

CDC_YRBS_eversex$Grade <- factor(CDC_YRBS_eversex$Grade, levels=c("9th","10th", "11th", "12th"))

jonesor

palettebuildr <- function(pathToJPEG = "logo.jpg", ncols = 3, dist.method = "euclidian", clust.method = "complete"){
  require(jpeg)
  
  #Read in the jpeg file
  img <- readJPEG(pathToJPEG)
  
  #Using the whole image is overkill, especially for large files.
  #Therefore, create a grid from which extract the colors
  xgrid <- ceiling(seq(1, dim(img)[1], length.out = 50))
  ygrid <- ceiling(seq(1, dim(img)[2], length.out = 50))