Partial Function In R