A small R script for Environmental Input-Output analysis