longRun function

Length of the longest run of a particular value in a numeric vector