added seq_slice.r to R

seq_slice <-	function(

				start,

				end,

				slice_size = NA,

				slice_number = NA,

				gap = -1

){

	if(!is.na(slice_number) & is.na(slice_size)){

		slice_size <- ceiling((end - start + 1 - gap * (slice_number - 1))/slice_number)

	}

	tmp_start <- seq(start,end,by = slice_size + gap)

	tmp_end <- tmp_start + slice_size - 1

	if(last(tmp_end > end)){

		tmp_end[length(tmp_end)] <- end

	}

	data.table(start = tmp_start,end = tmp_end)[,size := end - start + 1][size > 1]

}

 No newline at end of file