library(readr)
cereal <- read_csv("C:/Users/pierewan77/Downloads/Cereal/cereal.csv")
View(cereal)