R/nr_pasture_budget.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_pasture_budget
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_pasture_budget<-function(fulldata){
    out1<- setNames(-nr_grazing_pasture(fulldata),"grazing")
    in1<- setNames(nr_atm_dep_pasture(fulldata),"atm_dep")
    in2<- setNames(dimSums(nr_manure(fulldata)[,,c("fuel","grazing_pasture")],dim=c(3.1,3.2)),"manure_grazing")
    in3<- setNames(nr_manure_recycl_past(fulldata),"manure_conf")
    in4<- setNames(nr_fix_pasture(fulldata),"fix")
    budget<-mbind(out1,in1,in2,in3,in4)
    return(budget)
}