## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(agriPAM)

## -----------------------------------------------------------------------------
paddy <- pam(
  private_revenue = 150000,
  private_tradable_inputs = 42000,
  private_domestic_factors = 61000,
  social_revenue = 140000,
  social_tradable_inputs = 46000,
  social_domestic_factors = 55000,
  id = "Paddy",
  unit = "ha",
  currency = "INR"
)

pam_matrix(paddy)
pam_indicators(paddy)

## -----------------------------------------------------------------------------
budget <- agri_pam_example("budget")
head(budget)

crops <- pam_from_budget(
  budget,
  quantity = "quantity",
  private_price = "private_price",
  social_price = "social_price",
  category = "category",
  id = "crop",
  unit = "ha",
  currency = "INR"
)

pam_values(crops)

## -----------------------------------------------------------------------------
pam_indicators(crops)
pam_classify(crops)

## -----------------------------------------------------------------------------
parity_price(
  border_price = 300,
  exchange_rate = 83,
  transport = 1200,
  handling = 300,
  direction = "import"
)

## -----------------------------------------------------------------------------
groups <- c("Cereal", "Cereal", "Pulse", "Oilseed")
regional <- pam_aggregate(crops, groups)
pam_indicators(regional)