R/nr_ag_res_use.R

In pik-piam/nitrogen: Nitrogen Library

#' nr_ag_res_use
#'
#' @param fulldata data to perform actions on
#'
#' @author Jan-Philipp Dietrich
nr_ag_res_use<-function(fulldata) {
    dm<-collapseNames(readGDX(fulldata, "ov_res_supply", format="first_found")[,,"level"])
    nr<-collapseNames(readGDX(fulldata, "fm_attributes_residue_ag", format="first_found")[,,"nr"])
    return(dm*nr)
}