# Run this code to load the required packages
suppressMessages(suppressWarnings(suppressPackageStartupMessages({
library(mosaic)
library(supernova)
library(fivethirtyeight)
})))
nbaplayers <- read.csv("https://docs.google.com/spreadsheets/d/e/2PACX-1vSWOzObVF0AHcXHCxZepTDtTjhpIE4PkrrlnxK67XVxuOwt8iSqz9G-VQKwez54xZfXhYe1Yj5PlA0-/pub?gid=2123483031&single=true&output=csv", head = TRUE)
college_recent_grads
str(college_recent_grads)
psychology <- c(head(arrange(college_recent_grads, desc(total)),1))
psychology
psychology$women/psychology$men
psychology$employed/psychology$unemployed
psychology$men/psychology$total
psychology$women/psychology$total
arrange(college_recent_grads, desc(median))
head(arrange(college_recent_grads, desc(median)), 10)
head(arrange(college_recent_grads, median), 10)