R/upstream.R

In gvc: Global Value Chains Tools

#' Upstreamness
#' 
#' @name upstream
#' @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 upstream
#'  upstream( l )

upstream <- function ( x ) {
  
  solve( diag(x$GN) - (t(t(x$A)*x$X)/x$X) ) %*% matrix(1, nrow=x$GN)
  
}