implementacao em R