Find repeating patterns in an R vector from a vector of intervals to check.

find_patterns.R

vector <- c(10,1,0,10,0,0,10,0,0,10)
matches <- find_patterns(vector,seq(2,3))

find_patterns <- function (vector, intervals) {
	matches <- matrix(c(NA, NA), nrow=1, ncol=2)
	for(interval in intervals) {
		for(i in 1:interval) {
			if(sd(vector[seq(i,length(vector),interval)])==0) {
				if(is.na(matches[1,1])) {
					matches[1,] <- c(vector[i],interval)
				} else {
					matches <- rbind(matches,c(vector[i],interval))
				}
			}
		}	
	}
	return(matches)
}