# install.packages(c("readr", "readxl")) once
library(readr)
sales <- read_csv("sales.csv")
head(sales)
nrow(sales); summary(sales$qty)
# library(readxl); x <- read_excel("file.xlsx", sheet = "Data")