Conditional Diff Function in R: A Custom Approach for Consecutive Differences with Specific Id Numbers