parameters <- structure(list(
  T_min = 10, T_opt1 = 9, T_opt2 = 23, T_max = 33,
  W_min = 0.01, W_opt1 = 0.375, W_opt2 = 0.5, W_max = 0.625,
  W_0 = 0.2, k1 = 0.45, k2 = 0.14, k3 = 0.095, PMax = 40, rd = 0.005,
  a1 = 2, a2 = 0.0145, vcr = 0.05, vcrDayCount = 2, lr = 650,
  T_temperatureSumToStartGrow = 90, T_periodToSumTemperature = 10),
  .Names = c("T_min",
        "T_opt1", "T_opt2", "T_max", "W_min", "W_opt1", "W_opt2", "W_max",
      "W_0", "k1", "k2", "k3", "PMax", "rd", "a1", "a2", "vcr", "vcrDayCount",
      "lr", "T_temperatureSumToStartGrow", "T_periodToSumTemperature"
))