Match repeated values in a vector based on a specified interval

match_inverval.R

vector <- c(10,1,0,10,0,0,10,0,0,10)
match_interval(vector,3))

match_interval <- function (vector, interval) {
	matches <- c()
	for(i in 1:interval) {
		if(sd(vector[seq(i,length(vector),interval)])==0) {
			matches[length(matches)+1] <- vector[i]
		}
	}
	return(matches)
}