10 Mar
2014
10 Mar
'14
20:28
Senhores, boa tarde! Mais uma sugestão... ### <code r> setwd('C:/LAB/Temp') ### local com arquivos a serem unidos lista <- grep('.*csv', tolower(dir()), value=T) for (i in 1:length(lista)) { tmp <- read.table(lista[i], head=T) if (i==1) arq <- tmp else arq <- rbind(arq, tmp) } arq ### </code> Éder Comunello <c <comunello.eder@gmail.com>omunello.eder@gmail.com> Dourados, MS - [22 16.5'S, 54 49'W]