How To Extract Elements In R