Extended to R