library(data.table) file <- "D:X17065382Documentscad2016_mar2016_domicilio_mar.csv" fread(file, nrows = 5)