R_scripts_draft/names.R

In gholtgrieve/HEEL: Miscellaneous Functions From HEEL Members

isotope.standard.names <- list(VPDB = c("VPDB", "PDB", "vpdb", "pdb"),
  air = c("air", "AIR", "Air", "a", "atmospheric air", "Amospheric Air"),
  VSMOW = c("VSMOW", "SMOW", "vsmow", "smow"),
  SLAP2 = c("SLAP2", "SLAP", "slap2", "slap", "SLAP 2", "slap 2"),
  VCDT = c("VCDT", "CDT", "cdt", "vcdt"),
  NBS19 = c("NBS19"),
  LSVEC = c("LSVEC"),
  IAEAS1 = c("IAEAS1", "IAEA-S-1", "IAEA_S_1"),
  USGS32 = c("USGS32", "USGS 32", "usgs32", "usgs 32", "USGS-32", "USGS_32"),
  USGS40 = c("USGS40", "USGS 40", "usgs40", "usgs 40", "USGS-40", "USGS_40"),
  USGS41 = c("USGS41", "USGS 41", "usgs41", "usgs 41", "USGS-41", "USGS_41"),
  NIST8540 = c("NIST8540"),
  NIST8542 = c("NIST8542"),
  NIST1547 = c("NIST1547", "NIST 1547", "Peach Leaves", "PL", "peach leaves", "pl", "nist1547", "nist 1547"),
  GA1 = c("GA1", "GA 1", "ga1", "ga 1"),
  GA2 = c("GA2", "GA 2", "ga2", "ga 2"),
  SAL = c("SAL", "sal", "Salmon", "salmon", "scokeye", "salmon standard", "Bristol Bay Sockeye"),
  MAL = c("MAL", "sediments", "seds"),
  DSM = c("DSM", "flies", "bugs", "droposhila"),
  ALA = c("ALA"),
  ASP = c("ASP"),
  GLU = c("GLU"),
  GLY = c("GLY"),
  HIS = c("HIS"),
  ILE = c("ILE"),
  LEU = c("LEU"),
  LYS = c("LYS"),
  MET = c("MET"),
  NLE = c("NLE"),
  PHE = c("PHE"),
  PRO = c("PRO"),
  SER = c("SER"),
  THR = c("THR"),
  TYR = c("TYR"),
  VAL = c("VAL"),
  FA_C13_0 = c("FA_C13_0", "C13:0", "C13"),
  FA_C15_0 = c("FA_C13_0", "C15:0", "C15"),
  FA_16_1n7 = c("FA_16_1n7", "C16:1n7", "C16:1w7", "FA_C16:1n7", "Palmitoleic Acid", "palmitoleic acid", "PalmitoleicAcid", "Palmitoleic_Acid", "palmitoleic_acid"),
  FA_18_1n6 = c("FA_18_1n6", "C18:1n6", "C18:1w6", "FA_C18:1n6"),
  FA_18_1trans9 = c("FA_18_1trans9", "C18:1trans9", "C18:1n9 trans", "C18:1n9_trans", "C18:1n9trans"),
  FA_C19_0 = c("FA_C19_0", "C19:0"),
  FA_18_2n6 = c("FA_18_2n6", "18:2n6"),
  FA_18_3n3 = c("FA_18_3n3", "18:3n3"),
  FA_20_4n6 = c("FA_20_4n6", "20:4n6"),
  FA_22_6n3 = c("FA_22_6n3", "22:6n3"),
  FA_24_1n9 = c("FA_24_1n9", "24:1n9"),
  FA_22_1n9 = c("FA_24_1n9", "22:1n9"),
  FA_18_1cis9 = c("FA_18_1cis9", "18:1cis9", "C18:1n9 cis", "C18:1n9_cis", "C18:1n9cis"),
  Cholestane = c("Cholestane","5a-Cholestane", "cholestane"),
  FA_C13_0ME = c("FA_C13_0ME", "C13:0ME"),
  FA_C19_0ME = c("FA_C19_0ME", "C19:0ME"),
  KD = c("KD", "kd", "kona deep", "Kona Deep"),
  SW = c("SW", "sw", "seattle water", "Seattle Water"),
  BW = c("BW", "bw", "Beth Water", "beth water")
)
save(isotope.standard.names, file = "data/isotope.standard.names.RData")

isotope.standard.names <- isotope.standards.names