Str Sub Function In R