r stuff implementado