R/lookup_brk_99.R

In bcgov/BCForestGroundSample: BC forest ground sample compilation

lookup_brk_99 <- function(){
  lookuptable <- data.table(SP0 = c("AC","AC","AC","AC","AC","AC","AC","AC","AC","AC","AC","AC",
                                    "AC","AC","AC","AC","AC","AC","AT","AT","AT","AT","AT","AT",
                                    "AT","AT","AT","AT","AT","AT","AT","AT","AT","AT","AT","AT",
                                    "B","B","B","B","B","B","B","B","B","B","B","B","B","B","B","B",
                                    "B","B","C","C","C","C","C","C","C","C","C","C","C","C","C","C",
                                    "C","C","C","C","D","D","D","D","D","D","D","D","D","D","D","D","D",
                                    "D","D","D","D","D","E","E","E","E","E","E","E","E","E","E","E","E",
                                    "E","E","E","E","E","E","F","F","F","F","F","F","F","F","F","F","F",
                                    "F","F","F","F","F","F","F","H","H","H","H","H","H","H","H","H","H","H",
                                    "H","H","H","H","H","H","H","L","L","L","L","L","L","L","L","L","L","L",
                                    "L","L","L","L","L","L","L","MB","MB","MB","MB","MB","MB","MB","MB","MB",
                                    "MB","MB","MB","MB","MB","MB","MB","MB","MB","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PA","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PL","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PW","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","PY","S","S","S","S","S","S","S","S","S","S","S","S","S","S","S","S","S","S","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y","Y"),
                            RISK_V3 = c("1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3","1","1","1","2","2","2","3","3","3"),
                            PCT_BRK = c(5,7,7,5,7,7,5,7,7,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,5,4,4,6,4,4,6,2,2,2,2,2,2,2,2,3,5,5,7,5,5,7,5,5,7,4,4,8,4,4,8,4,4,8,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,4,4,4,4,4,4,4,4,4,4,5,4,4,5,4,4,5,2,2,2,2,2,3,2,2,3,4,4,5,4,4,6,4,4,6,3,3,3,3,3,3,3,3,4,3,3,3,3,3,4,3,3,4,3,3,3,3,3,4,3,3,4,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,5,5,4,4,5,4,4,5,4,4,5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,5,4,4,5,4,4,5,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,4,4,5,4,4,5,4,4,5,2,2,2,2,2,2,2,2,2,5,5,7,5,5,7,5,5,7,5,5,7,5,5,7,5,5,7),
                            BEC_I_C = c("C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I","C","C","C","C","C","C","C","C","C","I","I","I","I","I","I","I","I","I"),
                            AGE40 = c(40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160,40,120,160))
  return(lookuptable)
}