R/max_score.R

In PrenolanM/rsegmenter: What the Package Does (One Line, Title Case)

#' assigns segments based on max factor score
#' @param myfacscores factor scores
#' @export
max_score <- function(myfacscores){
  set.seed(123456)
  assigned_segment <- max.col(myfacscores)
  return(assigned_segment)
}