R/downstream.R

In bquast/gvc: Global Value Chains Tools

#' Downstreamness
#' 
#' @name downstream
#' @param x an object of class "decompr" as created using the load_tables_vectors() function from the decompr package.
#' @export
#' @import decompr
#' @examples 
#' # load the decompr package
#' library(decompr)
#' 
#' # load example data
#' data(leather)
#' attach(leather)
#' 
#' # create a leontief decomposed data set
#' l <- load_tables_vectors(x = inter,
#'                          y = final,
#'                          k = countries,
#'                          i = industries,
#'                          o = out        )
#'  
#'  # apply downstream
#'  downstream( l )

downstream <- function ( x ) {

  solve( diag(x$GN)-t(x$A) ) %*% matrix(1, nrow=x$GN)
  
}