Re-Implementet R