R/get_types.R

In BarlierC/FunPart: Functional splitting based on functionally relevant set of genes

Defines functions get_types

Documented in get_types

#' Get types
#' @author Alexey Samosyuk
get_types <-
  function(arr, sep = ".")
  {
    return(factor(sapply(arr, function(cell) { return(unlist(strsplit(cell, sep, fixed = T))[1])})))
  }