R/lookup_sp_cost.R

In bcgov/BCForestGroundSample: BC forest ground sample compilation

lookup_sp_cost <- function(){
  lookuptable <- data.table::data.table(GRD_SPC = c("BF", "CAC", "CF", "DB", "DC", "DF", "DH", "DP", 
                                                    "DS", "DY", "FB", "FC", "FF", "FH", "FP", "FS", "FY", "GS", "HB", 
                                                    "HC", "HF", "HH", "HP", "HS", "HY", "IAC", "IB", "IC", "ID", 
                                                    "IF", "IH", "IM", "IP", "IS", "IY", "JB", "JC", "JF", "JH", "JP", 
                                                    "JS", "JY", "KC", "LC", "MC", "PAC", "PB", "PC", "PD", "PF", 
                                                    "PH", "PM", "PP", "PS", "PY", "QAC", "QB", "QC", "QD", "QF", 
                                                    "QH", "QM", "QP", "QS", "QY", "RAC", "RB", "RC", "RD", "RF", 
                                                    "RH", "RM", "RP", "RS", "RY", "UAC", "UB", "UC", "UD", "UF", 
                                                    "UH", "UM", "UP", "US", "UY", "XB", "XC", "XF", "XH", "XP", "XS", 
                                                    "XY", "YAC", "YB", "YC", "YD", "YF", "YH", "YM", "YP", "YS", 
                                                    "YY"),
                                        COST = c("00240.00", "00060.00", "00150.00", "00205.00", "00350.00", 
                                                 "00520.00", "00205.00", "00080.00", "00395.00", "00525.00", "00135.00", 
                                                 "00310.00", "00310.00", "00135.00", "00095.00", "00310.00", "00350.00", 
                                                 "00195.00", "00090.00", "00190.00", "00155.00", "00090.00", "00080.00", 
                                                 "00110.00", "00220.00", "00035.00", "00070.00", "00130.00", "00060.00", 
                                                 "00110.00", "00070.00", "00045.00", "00050.00", "00075.00", "00135.00", 
                                                 "00060.00", "00115.00", "00085.00", "00060.00", "00065.00", "00070.00", 
                                                 "00085.00", "00150.00", "00130.00", "00090.00", "00020.00", "00020.00", 
                                                 "00025.00", "00030.00", "00020.00", "00020.00", "00020.00", "00010.00", 
                                                 "00020.00", "00025.00", "00020.00", "00020.00", "00015.00", "00025.00", 
                                                 "00010.00", "00020.00", "00020.00", "00010.00", "00020.00", "00010.00", 
                                                 "00020.00", "00020.00", "00005.00", "00025.00", "00010.00", "00020.00", 
                                                 "00020.00", "00010.00", "00020.00", "00005.00", "00035.00", "00045.00", 
                                                 "00050.00", "00060.00", "00045.00", "00045.00", "00045.00", "00025.00", 
                                                 "00045.00", "00050.00", "00045.00", "00030.00", "00025.00", "00045.00", 
                                                 "00025.00", "00045.00", "00020.00", "00035.00", "00045.00", "00010.00", 
                                                 "00050.00", "00025.00", "00045.00", "00040.00", "00020.00", "00045.00", 
                                                 "00015.00"))
  return(lookuptable)
}