created a first stable version v0.2.1

Author: SOloo15

.Rhistory

@@ -0,0 +1,61 @@
+knitr::opts_chunk$set(echo = TRUE)
+library(pse)
+library(cleaned)
+library(jsonlite)
+library(tidyverse)
+library(pse)
+library(jsonlite)
+library(tidyverse)
+knitr::opts_chunk$set(echo = TRUE)
+# factors <- c("annual_milk", "time_non_roofed_enclosure", "time_spent_grazing_on_farm", "manure_collected_non_roofed_enclosure", "manure_used_pennisetum", "wet_ischaemum_feed", "wet_brachiaria_feed",
+#              "dry_pennisetum_feed", "dry_ischaemum_feed", "dry_brachiaria_feed")
+factors <- c("annual_milk", "time_non_roofed_enclosure", "manure_collected_non_roofed_enclosure", "manure_used_pennisetum", "wet_ischaemum_feed",
+"dry_pennisetum_feed", "dry_ischaemum_feed")
+#q <- c("qnorm", "qunif", "qunif", "qunif", "qunif", "qunif", "qunif", "qunif", "qunif", "qunif")
+q <- c("qnorm", "qunif", "qunif", "qunif", "qunif", "qunif", "qunif")
+q.arg <- list( list(mean=567, sd=250), list(min=0.10, max=0.5), list(min=0.05, max=0.5), list(min=0, max=1), list(min=20, max=80), list(min=20, max=50), list(min=10, max=30))
+para <- fromJSON("C:/Users/Soloo/OneDrive - CGIAR/Documents/ILRI work/Projects/CLEANED-XtRa/gui_test/VLA-Med-LB_local_cow.json",
+flatten = TRUE, simplifyDataFrame = TRUE)
+ghg_ipcc_data <- fromJSON("C:/Users/Soloo/OneDrive - CGIAR/Documents/ILRI work/Projects/CLEANED-XtRa/cleaned_tool/cleaned/inst/extdata/ghg_parameters.json",
+flatten = TRUE, simplifyDataFrame = TRUE)
+energy_parameters <- fromJSON("C:/Users/Soloo/OneDrive - CGIAR/Documents/ILRI work/Projects/CLEANED-XtRa/cleaned_tool/cleaned/inst/extdata/energy_parameters.json",
+flatten = TRUE, simplifyDataFrame = TRUE)
+stock_change_parameters <- fromJSON("C:/Users/Soloo/OneDrive - CGIAR/Documents/ILRI work/Projects/CLEANED-XtRa/cleaned_tool/cleaned/inst/extdata/stock_change_parameters.json",
+flatten = TRUE, simplifyDataFrame = TRUE)
+feed_basket_quality <- feed_quality(para)
+energy_required <- energy_requirement(para,feed_basket_quality,energy_parameters)
+land_required <- land_requirement(feed_basket_quality, energy_required, para)
+soil_erosion <- soil_health(para, land_required)
+water_required <- water_requirement(para, land_required)
+nitrogen_balance <- n_balance(para, land_required, soil_erosion)
+livestock_productivity <- land_productivity(para)
+economics <- economics_payback(para, energy_required, livestock_productivity)
+biomass <- biomass_calculation(para, land_required)
+soil_carbon <- soil_organic_carbon(para, stock_change_para, land_required, biomass)
+ghg_emissions <- ghg_emission(para,energy_required,ghg_ipcc_data,land_required,nitrogen_balance)
+View(land_required)
+View(land_required[[1]])
+View(land_required[[2]])
+View(water_required)
+View(water_required[[1]])
+View(water_required[[2]])
+View(ghg_emissions)
+devtools::install_github("ciat/cleaned@v0.2")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+devtools::install_github("ciat/cleaned@v0.2")
+devtools::install_github("ciat/cleaned")
+library("cli")
+devtools::install_github("ciat/cleaned")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")
+install.packages("cli")

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: cleaned
 Title: Comprehensive Livestock Environmental Assessment for Improved Nutrition, a Secured Environment, and Sustainable Development along Livestock and Fish Value Chains
-Version: 0.1.0
-Date: 2020-11-19
+Version: 0.2.1
+Date: 2021-12-07
 Authors@R: c(person("John", "Mutua", 
         email = "ymutua@gmail.com", 
         role = c("aut", "cre"),