caixeta <- read.table(file = "caixeta.csv", sep = ",")
class(caixeta)