# NOT RUN {
FAREPRIM <- fareprim(data = usagri, id.var = "States", time.var = "Years",
x.vars = c("q.capital", "q.land","q.labor","q.materials"), y.vars = c("q.livestock",
"q.crop", "q.other"), w.vars = c("p.capital", "p.land", "p.labor", "p.materials"),
p.vars = c("p.livestock", "p.crop", "p.other"))
Fareprim.change <- Changes(FAREPRIM)
head(Fareprim.change)
# }
Run the code above in your browser using DataLab