Script R de adição de novos dados