R/peak_tag.R

Defines functions peak_tag

Documented in peak_tag

#' @title peak_tag
#'
#' @description
#' \emph{peak_tag}
#'
#' @param f_df_pos f_df_pos
#' @param f_seq_dist f_seq_dist
#'
#' @return return
#'
#' @export

peak_tag <- function(

	f_df_pos,
	f_seq_dist
) {

	out_val <- data.frame(max_ix=which(c(f_df_pos[-1], 0) - f_df_pos != f_seq_dist))
	out_val$min_ix <- c(1, out_val$max_ix[-length(out_val$max_ix)] + 1)

	return(out_val)
}
DanielRivasMD/CopperGenomicFunctions documentation built on Nov. 20, 2019, 5:45 a.m.