psychro:

#' Function to pull stored psychrometirc chart data

#' @examples
#' data.chart <- GetData()



GetData <- function(){
  temp.32 <- data.frame(
    hr = c(0, 0.0004, 0.0008, 0.0012, 0.0015, 0.0019, 0.0022, 0.0026, 0.003, 0.0034, 0.0038),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.33 <- data.frame(
    hr = c(0, 0.0004, 0.0008, 0.0012, 0.0016, 0.0020, 0.0024, 0.0028, 0.0032, 0.0036, 0.0040),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.34 <- data.frame(
    hr = c(0, 0.0004, 0.0008, 0.0012, 0.0016, 0.0020, 0.0024, 0.0029, 0.0033, 0.0037, 0.0041),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.35 <- data.frame(
    hr = c(0, 0.0004, 0.0008, 0.0013, 0.0017, 0.0021, 0.0026, 0.0030, 0.0034, 0.0038, 0.0042),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.36 <- data.frame(
    hr = c(0, 0.0004, 0.0009, 0.0014, 0.0018, 0.0022, 0.0026, 0.0031, 0.0036, 0.0040, 0.0044),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.37 <- data.frame(
    hr = c(0, 0.0004, 0.0009, 0.0014, 0.0018, 0.0023, 0.0028, 0.0032, 0.0037, 0.0042, 0.0046),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.38 <- data.frame(
    hr = c(0, 0.0005, 0.001, 0.0014, 0.0019, 0.0024, 0.0029, 0.0034, 0.0038, 0.0044, 0.0048),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.39 <- data.frame(
    hr = c(0, 0.0005, 0.001, 0.0015, 0.002, 0.0025, 0.003, 0.0035, 0.004, 0.0045, 0.005),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.40 <- data.frame(
    hr = c(0, 0.0005, 0.001, 0.0016, 0.0021, 0.0026, 0.0032, 0.0036, 0.0042, 0.0047, 0.0052),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.41 <- data.frame(
    hr = c(0, 0.0006, 0.0011, 0.0016, 0.0022, 0.0027, 0.0032, 0.0038, 0.0044, 0.0048, 0.0054),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.42 <- data.frame(
    hr = c(0, 0.0006, 0.0011, 0.0017, 0.0023, 0.0029, 0.0034, 0.0039, 0.0045, 0.0051, 0.0056),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.43 <- data.frame(
    hr = c(0, 0.0006, 0.0012, 0.0018, 0.0024, 0.0029, 0.0035, 0.0041, 0.0047, 0.0053, 0.0059),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.44 <- data.frame(
    hr = c(0, 0.0006, 0.0012, 0.0018, 0.0024, 0.003, 0.0036, 0.0042, 0.0048, 0.0055, 0.0061),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  temp.45 <- data.frame(
    hr = c(0, 0.0006, 0.0013, 0.0019, 0.0025, 0.0032, 0.0038, 0.0044, 0.005, 0.0057, 0.0063),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.46 <- data.frame(
    hr = c(0, 0.0006, 0.0013, 0.002, 0.0026, 0.0033, 0.004, 0.0046, 0.0052, 0.006, 0.0066),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.47 <- data.frame(
    hr = c(0, 0.0007, 0.0014, 0.002, 0.0027, 0.0034, 0.0041, 0.0048, 0.0054, 0.0062, 0.0068),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.48 <- data.frame(
    hr = c(0, 0.0007, 0.0014, 0.0021, 0.0028, 0.0036, 0.0042, 0.005, 0.0056, 0.0064, 0.0071),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.49 <- data.frame(
    hr = c(0, 0.0007, 0.0015, 0.0022, 0.003, 0.0037, 0.0044, 0.0052, 0.0059, 0.0066, 0.0074),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.50 <- data.frame(
    hr = c(0, 0.0008, 0.0015, 0.0023, 0.003, 0.0038, 0.0046, 0.0054, 0.0062, 0.0068, 0.0076),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.51 <- data.frame(
    hr = c(0, 0.0008, 0.0016, 0.0024, 0.0032, 0.004, 0.0048, 0.0056, 0.0064, 0.0072, 0.008),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.52 <- data.frame(
    hr = c(0, 0.0008, 0.0016, 0.0024, 0.0033, 0.0041, 0.005, 0.0058, 0.0066, 0.0074, 0.0082),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.53 <- data.frame(
    hr = c(0, 0.0008, 0.0017, 0.0026, 0.0034, 0.0042, 0.0051, 0.006, 0.0068, 0.0077, 0.0086),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.54 <- data.frame(
    hr = c(0, 0.0009, 0.0018, 0.0026, 0.0036, 0.0044, 0.0053, 0.0062, 0.0071, 0.008, 0.0089),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.55 <- data.frame(
    hr = c(0, 0.0009, 0.0018, 0.0027, 0.0036, 0.0046, 0.0055, 0.0064, 0.0074, 0.0083, 0.0092),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.56 <- data.frame(
    hr = c(0, 0.001, 0.0019, 0.0028, 0.0038, 0.0048, 0.0057, 0.0067, 0.0076, 0.0086, 0.0096),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.57 <- data.frame(
    hr = c(0, 0.001, 0.002, 0.003, 0.004, 0.005, 0.006, 0.0069, 0.008, 0.009, 0.0099),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.58 <- data.frame(
    hr = c(0, 0.001, 0.002, 0.003, 0.0041, 0.0052, 0.0062, 0.0072, 0.0082, 0.0093, 0.0103),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.59 <- data.frame(
    hr = c(0, 0.001, 0.0021, 0.0032, 0.0042, 0.0053, 0.0064, 0.0075, 0.0086, 0.0096, 0.0106),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.60 <- data.frame(
    hr = c(0, 0.0011, 0.0022, 0.0033, 0.0044, 0.0055, 0.0066, 0.0078, 0.0088, 0.01, 0.011),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.61 <- data.frame(
    hr = c(0, 0.0011, 0.0023, 0.0034, 0.0045, 0.0056, 0.0068, 0.008, 0.0092, 0.0104, 0.0115),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.62 <- data.frame(
    hr = c(0, 0.0012, 0.0024, 0.0035, 0.0047, 0.0059, 0.0071, 0.0083, 0.0095, 0.0106, 0.0119),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.63 <- data.frame(
    hr = c(0, 0.0012, 0.0025, 0.0036, 0.0049, 0.0061, 0.0074, 0.0086, 0.0098, 0.0111, 0.0124),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.64 <- data.frame(
    hr = c(0, 0.0012, 0.0026, 0.0038, 0.005, 0.0064, 0.0076, 0.0089, 0.0102, 0.0115, 0.0128),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.65 <- data.frame(
    hr = c(0, 0.0013, 0.0026, 0.0039, 0.0053, 0.0066, 0.0079, 0.0093, 0.0106, 0.0119, 0.0132),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.66 <- data.frame(
    hr = c(0, 0.0013, 0.0027, 0.004, 0.0054, 0.0068, 0.0082, 0.0096, 0.011, 0.0124, 0.0137),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.67 <- data.frame(
    hr = c(0, 0.0014, 0.0028, 0.0042, 0.0056, 0.007, 0.0085, 0.0099, 0.0114, 0.0128, 0.0142),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.68 <- data.frame(
    hr = c(0, 0.0014, 0.0029, 0.0044, 0.0058, 0.0073, 0.0089, 0.0102, 0.0118, 0.0132, 0.0147),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.69 <- data.frame(
    hr = c(0, 0.0015, 0.003, 0.0045, 0.006, 0.0076, 0.009, 0.0106, 0.0122, 0.0138, 0.0152),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.70 <- data.frame(
    hr = c(0, 0.0016, 0.0031, 0.0047, 0.0063, 0.0078, 0.0094, 0.011, 0.0126, 0.0142, 0.0158),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.71 <- data.frame(
    hr = c(0, 0.0016, 0.0032, 0.0048, 0.0064, 0.008, 0.0098, 0.0114, 0.013, 0.0147, 0.0164),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.72 <- data.frame(
    hr = c(0, 0.0017, 0.0033, 0.005, 0.0067, 0.0084, 0.01, 0.0118, 0.0135, 0.0152, 0.017),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.73 <- data.frame(
    hr = c(0, 0.0017, 0.0034, 0.0052, 0.0069, 0.0087, 0.0104, 0.0122, 0.014, 0.0158, 0.0176),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.74 <- data.frame(
    hr = c(0, 0.0018, 0.0036, 0.0054, 0.0072, 0.009, 0.0108, 0.0126, 0.0144, 0.0164, 0.0182),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.75 <- data.frame(
    hr = c(0, 0.0018, 0.0037, 0.0056, 0.0074, 0.0093, 0.0112, 0.013, 0.015, 0.0169, 0.0188),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.76 <- data.frame(
    hr = c(0, 0.0019, 0.0038, 0.0057, 0.0076, 0.0096, 0.0116, 0.0135, 0.0155, 0.0175, 0.0195),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.77 <- data.frame(
    hr = c(0, 0.002, 0.0039, 0.0059, 0.0079, 0.0099, 0.0119, 0.014, 0.016, 0.0181, 0.0202),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.78 <- data.frame(
    hr = c(0, 0.002, 0.0041, 0.0061, 0.0082, 0.0103, 0.0124, 0.0145, 0.0166, 0.0187, 0.0208),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.79 <- data.frame(
    hr = c(0, 0.0021, 0.0042, 0.0064, 0.0084, 0.0106, 0.0128, 0.015, 0.0172, 0.0194, 0.0216),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.80 <- data.frame(
    hr = c(0, 0.0022, 0.0044, 0.0065, 0.0088, 0.011, 0.0132, 0.0154, 0.0177, 0.02, 0.0223),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.81 <- data.frame(
    hr = c(0, 0.0022, 0.0045, 0.0068, 0.009, 0.0114, 0.0137, 0.016, 0.0184, 0.028, 0.0231),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.82 <- data.frame(
    hr = c(0, 0.0023, 0.0046, 0.007, 0.0094, 0.0117, 0.0141, 0.0165, 0.019, 0.0214, 0.0238),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.83 <- data.frame(
    hr = c(0, 0.0024, 0.0048, 0.0072, 0.0096, 0.0121, 0.0146, 0.017, 0.0196, 0.0222, 0.0246),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.84 <- data.frame(
    hr = c(0, 0.0025, 0.005, 0.0075, 0.01, 0.0126, 0.0151, 0.0177, 0.0203, 0.0229, 0.0256),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.85 <- data.frame(
    hr = c(0, 0.0025, 0.0051, 0.0077, 0.0103, 0.0129, 0.0156, 0.0183, 0.021, 0.0237, 0.0264),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.86 <- data.frame(
    hr = c(0, 0.0026, 0.0053, 0.008, 0.0106, 0.0134, 0.0162, 0.0189, 0.0216, 0.0245, 0.0273),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.87 <- data.frame(
    hr = c(0, 0.0027, 0.0054, 0.0082, 0.011, 0.0138, 0.0166, 0.0195, 0.0224, 0.0253, 0.0282),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.88 <- data.frame(
    hr = c(0, 0.0028, 0.0056, 0.0083, 0.0114, 0.0143, 0.0172, 0.0202, 0.0232, 0.0262, 0.0292),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  temp.89 <- data.frame(
    hr = c(0, 0.0029, 0.0058, 0.0088, 0.0117, 0.0147, 0.0178, 0.0208, 0.0239, 0.027, 0.03),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90, 100)
  )
  
  
  ## Note: do not have anything above 0.03
  temp.90 <- data.frame(
    hr = c(0, 0.003, 0.006, 0.0091, 0.0121, 0.0152, 0.0184, 0.0215, 0.0247, 0.0279),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90)
  )
  
  temp.91 <- data.frame(
    hr = c(0, 0.0031, 0.0062, 0.0094, 0.0125, 0.0157, 0.019, 0.0222, 0.0255, 0.0289),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90)
  )
  
  temp.92 <- data.frame(
    hr = c(0, 0.0032, 0.0064, 0.0096, 0.0129, 0.0162, 0.0196, 0.0229, 0.0264, 0.0298),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80, 90)
  )
  
  temp.93 <- data.frame(
    hr = c(0, 0.0033, 0.0066, 0.01, 0.0133, 0.0168, 0.0202, 0.0237, 0.0273),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80)
  )
  
  temp.94 <- data.frame(
    hr = c(0, 0.0034, 0.0068, 0.0103, 0.0138, 0.0173, 0.0208, 0.0245, 0.0282),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80)
  )
  
  temp.95 <- data.frame(
    hr = c(0, 0.0035, 0.007, 0.0106, 0.0142, 0.0179, 0.0215, 0.0252, 0.0291),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80)
  )
  
  temp.96 <- data.frame(
    hr = c(0, 0.0036, 0.0072, 0.0109, 0.0146, 0.0184, 0.0222, 0.0261, 0.03),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70, 80)
  )
  
  temp.97 <- data.frame(
    hr = c(0, 0.0037, 0.0075, 0.0113, 0.0151, 0.019, 0.023, 0.027),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70)
  )
  
  temp.98 <- data.frame(
    hr = c(0, 0.0038, 0.0077, 0.0116, 0.0156, 0.0196, 0.0236, 0.0278),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70)
  )
  
  temp.99 <- data.frame(
    hr = c(0, 0.004, 0.008, 0.012, 0.0161, 0.0202, 0.0245, 0.0287),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70)
  )
  
  temp.100 <- data.frame(
    hr = c(0, 0.0041, 0.0082, 0.0124, 0.0166, 0.0209, 0.0253, 0.0297),
    rh = c(0, 10, 20, 30, 40, 50, 60, 70)
  )
  
  temp.101 <- data.frame(
    hr = c(0, 0.0042, 0.0084, 0.0128, 0.0171, 0.0215, 0.026),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.102 <- data.frame(
    hr = c(0, 0.0043, 0.0087, 0.0132, 0.0176, 0.0222, 0.0269),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.103 <- data.frame(
    hr = c(0, 0.0045, 0.009, 0.0136, 0.0182, 0.0229, 0.0277),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.104 <- data.frame(
    hr = c(0, 0.0046, 0.0092, 0.014, 0.0188, 0.0236, 0.0286),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.105 <- data.frame(
    hr = c(0, 0.0047, 0.0095, 0.0145, 0.0194, 0.0244, 0.0295),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.106 <- data.frame(
    hr = c(0, 0.0049, 0.0098, 0.0148, 0.02, 0.0251, 0.03),
    rh = c(0, 10, 20, 30, 40, 50, 60)
  )
  
  temp.107 <- data.frame(
    hr = c(0, 0.005, 0.0101, 0.0153, 0.0206, 0.0259),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.108 <- data.frame(
    hr = c(0, 0.0052, 0.0104, 0.0158, 0.0212, 0.0267),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.109 <- data.frame(
    hr = c(0, 0.0053, 0.0107, 0.0162, 0.0218, 0.0276),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.110 <- data.frame(
    hr = c(0, 0.0055, 0.011, 0.0167, 0.0225, 0.0284),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.111 <- data.frame(
    hr = c(0, 0.0056, 0.0114, 0.0172, 0.0232, 0.0292),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.112 <- data.frame(
    hr = c(0, 0.0058, 0.0117, 0.0178, 0.0239, 0.03),
    rh = c(0, 10, 20, 30, 40, 50)
  )
  
  temp.113 <- data.frame(
    hr = c(0, 0.006, 0.012, 0.0183, 0.0246),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.114 <- data.frame(
    hr = c(0, 0.0061, 0.0124, 0.0188, 0.0254),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.115 <- data.frame(
    hr = c(0, 0.0063, 0.0128, 0.0194, 0.0261),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.116 <- data.frame(
    hr = c(0, 0.0065, 0.0132, 0.0199, 0.0269),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.117 <- data.frame(
    hr = c(0, 0.0067, 0.0136, 0.0206, 0.0277),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.118 <- data.frame(
    hr = c(0, 0.0069, 0.014, 0.0212, 0.0285),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.119 <- data.frame(
    hr = c(0, 0.0071, 0.0144, 0.0218, 0.0294),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.120 <- data.frame(
    hr = c(0, 0.0073, 0.0148, 0.0224, 0.03),
    rh = c(0, 10, 20, 30, 40)
  )
  
  temp.list <- list("32" = temp.32, "33" = temp.33, "34" = temp.34, "35" = temp.35,
                    "36" = temp.36, "37" = temp.37, "38" = temp.38, "39" = temp.39,
                    "40" = temp.40, "41" = temp.41, "42" = temp.42, "43" = temp.43,
                    "44" = temp.44, "45" = temp.45, "46" = temp.46, "47" = temp.47,
                    "48" = temp.48, "49" = temp.49, "50" = temp.50, "51" = temp.51,
                    "52" = temp.52, "53" = temp.53, "54" = temp.54, "55" = temp.55,
                    "56" = temp.56, "57" = temp.57, "58" = temp.58, "59" = temp.59,
                    "60" = temp.60, "61" = temp.61, "62" = temp.62, "63" = temp.63,
                    "64" = temp.64, "65" = temp.65, "66" = temp.66, "67" = temp.67,
                    "68" = temp.68, "69" = temp.69, "70" = temp.70, "71" = temp.71,
                    "72" = temp.72, "73" = temp.73, "74" = temp.74, "75" = temp.75,
                    "76" = temp.76, "77" = temp.77, "78" = temp.78, "79" = temp.79,
                    "80" = temp.80, "81" = temp.81, "82" = temp.82, "83" = temp.83,
                    "84" = temp.84, "85" = temp.85, "86" = temp.86, "87" = temp.87,
                    "88" = temp.88, "89" = temp.89, "90" = temp.90, "91" = temp.91,
                    "92" = temp.92, "93" = temp.93, "94" = temp.94, "95" = temp.95,
                    "96" = temp.96, "97" = temp.97, "98" = temp.98, "99" = temp.99,
                    "100" = temp.100, "101" = temp.101, "102" = temp.102, "103" = temp.103,
                    "104" = temp.104, "105" = temp.105, "106" = temp.106, "107" = temp.107,
                    "108" = temp.108, "109" = temp.109, "110" = temp.110, "111" = temp.111,
                    "112" = temp.112, "113" = temp.113, "114" = temp.114, "115" = temp.115,
                    "116" = temp.116, "117" = temp.117, "118" = temp.118, "119" = temp.119,
                    "120" = temp.120)
  return(temp.list)
}