R/seriesutils.R

# Author: Jorrel Khalil S. Aunario, jaunario@gmail.com
# Date :  30 April 2010
# Version 0.0.1
# Licence GPL v3


maxConsecutive <- function(nums){
	dvec <- cumsum(c(FALSE,diff(nums)!=1))	
	return(max(table(dvec)))
}

Try the genutils package in your browser

Any scripts or data that you put into this service are public.

genutils documentation built on May 2, 2019, 5:22 p.m.