# excel file
Olympics <- read_excel("../00_data/myDataOlympics.xlsx")
Olympics
filter(Olympics, medal == "Gold", team == "United States")
arrange(Olympics, age)
select(Olympics, id:team, medal)
Olympics_sml <- select(Olympics,
name:city,
ends_with("sport"),
event,
medal)