enderecotreino="teste.txt";
linha <- read.table(enderecotreino, header=F, sep=";")
linha[1]
linha[2]
linha[3]