Create polity.R

Ingests Polity data and generates some useful transformations of them.