# 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)

#Darren Lin head(nbaplayers)

#ELisha Loreto filter(nbaplayers, age == 21 )

#Monae filter(nbaplayers, country == "USA")

#Marjona filter(nbaplayers, height == 210.82)

filter(nbaplayers, player_name == "Eric Leckner")

select(nbaplayers, team) tally(nbaplayers$team)

select(nbaplayers, college) tally(nbaplayers$college)

select(nbaplayers, country) tally(nbaplayers$country)

Team, college, and country

arrange(nbaplayers, desc(pts)

tally(sort(nbaplayers$pts))

gf_dhistogram(~ pts, data = nbaplayers)