como write funciona em R