R/get.SingleLetterCode.R

In iPAC: Identification of Protein Amino acid Clustering

get.SingleLetterCode <-
function(code){
  if(code == "GLY"){return ("G")}
  else if(code == "PRO"){return ("P")}
  else if(code == "ALA"){return ("A")}
  else if(code == "VAL"){return ("V")}
  else if(code == "LEU"){return ("L")}
  else if(code == "ILE"){return ("I")}
  else if(code == "MET"){return ("M")}
  else if(code == "CYS"){return ("C")}
  else if(code == "PHE"){return ("F")}
  else if(code == "TYR"){return ("Y")}
  else if(code == "TRP"){return ("W")}
  else if(code == "HIS"){return ("H")}
  else if(code == "LYS"){return ("K")}
  else if(code == "ARG"){return ("R")}
  else if(code == "GLN"){return ("Q")}
  else if(code == "ASN"){return ("N")}
  else if(code == "GLU"){return ("E")}
  else if(code == "ASP"){return ("D")}
  else if(code == "SER"){return ("S")}
  else if(code == "THR"){return ("T")}
  else{return("X")}
}