Simple CGE in R