Sum And Filter Function In R