update input variable name "production" to "planting"

R/GPKGTools.R

@@ -128,7 +128,7 @@ GPKGAddTables <- function(gpkgfile) {
                                                      yield_L REAL NOT NULL CHECK(yield_L >= 0),
                                                      yield_I REAL NOT NULL CHECK(yield_I >= 0),
                                                      yield_R REAL NOT NULL CHECK(yield_R >= 0),
-                                                     production_cost REAL NOT NULL CHECK(production_cost >= 0),
+                                                     planting_cost REAL NOT NULL CHECK(planting_cost >= 0),
                                                      market_value REAL NOT NULL CHECK(market_value >= 0));"
   )
 

R/demo_landsepi.R

@@ -128,7 +128,7 @@ demo_landsepi <- function(seed = 12345, strat = "MO", Nyears = 20, nTSpY = 120,
   #                         yield_L =           rep(0.0, 3),
   #                         yield_I =           rep(0.0, 3),
   #                         yield_R =           rep(0.0, 3),
-  #                         production_cost =   rep(225, 3),
+  #                         planting_cost =   rep(225, 3),
   #                         market_value =      rep(200, 3),
   #                         stringsAsFactors = FALSE)
   simul_params <- setCultivars(simul_params, cultivars)