R/diseasetoParentNodes.R

In mensxmachina/BioDataome: Functions used to preprocess datasets stored in BioDataome

#' Map a Disease Ontology (D-O) term to the parent nodes in D-O
#'
#' This function uses internal look up data to map a disease to its parent node.
#'
#' @param x a disease in D-O terms
#' @return the parent node of x disease
#' @examples
#' DOParent<-diseasetoParentNodes("vesiculitis")
#' @export

diseasetoParentNodes<-function(x){
  DOParent<-diseaseCategoryALLU[match(tolower(x),tolower(diseaseCategoryALLU[,1])),4]
  return(DOParent)
}