R/readHHS_USDA.R

In pik-piam/moinput: Model Operations Input Data Library

#' @title readHHS_USDA
#' @description reads calory requirement for a standardized population from 
#' HHS & USDA. 2015. "2015-2020 Dietary Guidelines for Americans." 
#' 8. Dietary Guidelines for Americans. 
#' https://health.gov/dietaryguidelines/2015/resources/2015-2020_Dietary_Guidelines.pdf.
#' Appendix 2
#'
#' @return Magpie object with results on global level.
#' @author Benjamin Leon Bodirsky
#' @seealso
#' \code{\link{convertLassaletta2014}},
#' \code{\link{readSource}}
#' @examples
#' 
#' \dontrun{ 
#' readSource("Lassaletta2014",subtype="budget",convert=FALSE)
#' }


readHHS_USDA<-function(){
  a<-read.csv("appendix2.csv",sep = ";",header = T)
  
  a<-as.magpie(a)
  getSets(a)=c("region","year","sex","age","activity")
  return(a)
}