adicionando R script