Please answer the question with the Data provided and using R programming language. Thank you. Please provide detailed explanation.

Leader Assassination as a Natural Experiment One longstanding debate in the study of international relations concerns the question of whether individual political leaders can make a difference. Some argue that leaders with different ideologies and personalities can significantly affect the course of a nation. Others argue that political leaders are severely constrained by historical and institutional forces. Did individuals like Hitler, Mao, Roosevelt, and Churchill make a big difference? The difficulty of empirically testing these arguments stems from the fact that changes in leadership are not generally random. In this exercise, we consider a natural experiment in which the success or failure of assassination attempts may be essentially random, at least with respect to the outcomes in which we are interested. This exercise is based on: Jones, Benjamin F, and Benjamin A Olken. 2009. "Hit or Miss? The Effect of Assassinations on Institutions and War." American Economic Journal: Macroeconomics 1(2): 55-87. Each observation of the CSV dataset leaders.csv contains information about an assassination attempt. The variables are: The polity variables represent "Polity scores" from the Polity Project. The Polity Project assigns an annual Polity score to all countries in the world from 1800 to the present as a measure of each country's political institutions. The Polity score is a 21-point scale ranging from -10 (hereditary monarchy) to 10 (consolidated Many researchers collapse the Polity scores to create binary autocracy/democracy indicators, because it is not clear that the Polity scores can or should be interpreted as measuring linear variation from autocracy to democracy. We will do that, too. First, create a new binary pre-assassination democracy variable in the dataset that is equal to 1 if politybefore is greater than 0, and equal to 0 otherwise (hint: the ifelse command will be helpful here). Next, create a new binary post-assassination democracy variable in the dataset that is equal to 1 if polityafter is greater than 0 , and equal to 0 otherwise. What proportion of countries in which assassination attempts occurred were democracies in the three years prior to the attempt, as measured by your new democracy variable? What proportion of countries in which assassination attempts occurred were democracies in the three years after the attempt, as measured by your new democracy variable