Section #: 01
Students must abide by UVic academic regulations and observe standards of scholarly integrity (i.e. no plagiarism or cheating). Therefore, this assignment must be taken individually and not with a friend, classmate, or group. You are also prohibited from sharing any information about the assignment with others. I affirm that I will not give or receive any aid on this assignment and that all work will be my own. put your name here
What the subjects saw: (page 1)
If the total effort is 45, the probability there is enough fish is .25.
The expected profit function for player 1 is:
\[\begin{equation} E[\pi_1]=\left[\alpha e_1+\frac{1-\alpha}{3}(e_1+e_2+e_3)\right]\left(\frac{60-e_1-e_2-e_3}{60}\right)-\frac{e_1}{3} \end{equation}\]
The treatments:
With a bit of a stretch this game would also apply to the issue of fossil fuel extraction. In this case, the threat is not the extinction of some species we have over-harvested, but our own extinction. A feature of both interpretations is an unknown tipping point beyond which we can not recover. Regarding climate change, a tipping point may be the result of positive feedback loops such as methane being released from permafrost as it thaws, and a lowering of the planet’s Albedo as we lose snow and ice cover. In both cases if extraction stays below the tipping point the species in question will survive, otherwise extinction. The temptation to extract more comes from the fact that our material well being is increasing in extraction, as long as we stay below the tipping point.
Unfortunately there was a bug in the code, so the feedback that subjects received after each round did not make much sense. Because of this we are going to create a partition of the data allowing us to compare the behaviour of subjects on the basis of how much profit they earned, with the conjecture that some of you figured out what was wrong with the feedback provided, and some of you did not.
Take the derivative of player 1’s expected profit function with respect to \(e_1\) and set the derivative equal to zero. Solve for the symmetric equilibrium where \(e_i=e^{\star}~\forall~i\). What is the equilibrium prediction for catch size for a group of size 3 for the three treatments? i.e. \(\forall \alpha\in\{0,.5,1\}\)
| \(\alpha\) | \(e^{\star}\) |
|---|---|
| 0.0 | 0.00 |
| 0.5 | 6.67 |
| 1.0 | 10.00 |
Suppose that a social planner chooses the total amount of effort \(E=e_1+e_2+e_3\). Recall that player i’s consumption (if there are enough fish) is \(\left[\alpha e_1+\frac{1-\alpha}{3}(e_1+e_2+e_3)\right]\). What do you get if you add up the consumption for all three players (again, this is assuming there are enough fish)? Thus, what is the expected welfare in terms of \(E\)? Differentiate expected welfare in terms of \(E\) and set the derivative to zero. Solve for \(E^{\star\star}\), the socially optimal level of total effort. If all players exert the same effort level, what is the socially optimal level of effort per person? Why does the socially optimal level of effort not depend on \(\alpha\)?
If you add up the consumption of the three players (conditional on there being enough fish) you get \(E\), which is the sum of the individual effort levels \(e_1+e_2+e_3\). Recall that one unit of effort results in one unit of fish being caught, assuming there are enough fish.
Optimal effort maximizes the size of the “pie” that is created. Conditional on this optimal level of effort, \(\alpha\) just determines how the pie is shared.
Explain when and why the equilibrium catch size is different from the socially optimal individual catch size.
In the communism treatment(\(\alpha=0\)) the equilibrium is to free ride on the effort of others. In the laissez-faire treatment(\(\alpha=1\)) the equilibrium is to over-exploit the common pool resource. In the Universal Basic Income treatment(\(\alpha=.5\)) these two perverse incentives balance out, resulting in an equilibrium that is socially optimal.
Create a new dataframe called subjects using mydf THEN group_by() variables oneid and alpha THEN summarize() creating variables mean_profit by taking the mean() of profit with option na.rm=TRUE and mean_choice by taking the mean() of choice THEN filter keeping only the rows where it is not true that mean_profit is.na() THEN ungroup() THEN mutate() creating variable top_half by testing mean_profit>median(mean_profit). Include a copy of your code below: note eval=FALSE, so the code must be in your .R file as well.
subjects <- mydf%>%
group_by(oneid,alpha)%>%
summarize(mean_choice=round(mean(choice),2),
mean_profit=round(mean(profit,na.rm=TRUE),2))%>%
filter(!is.na(mean_profit))%>%
ungroup()%>%
mutate(top_half=mean_profit>median(mean_profit,na.rm=TRUE))%>%
arrange(desc(mean_profit))
Use the function datatable() from the library DT to show the dataframe subjects below. Set rownames=FALSE and include options = list(columnDefs = list(list(className = 'dt-center', targets = "_all"))) in your call to datatable().
Add the information from subjects to mydf by performing a left_join() of mydf and subjects THEN get rid of missing values with function na.omit(). Include a copy of your code below: note eval=FALSE, so the code must be in your .R file as well.
mydf <- left_join(mydf,subjects)%>%
na.omit()
Create boxplots of choice for the three levels of alpha. Add the underlying data with some jittering, and a horizontal white line at the equilibrium level of effort. Facet the plot by variable top_half. Give the y axis a more descriptive name.
Describe the results from the plot above.
Note that the equilibrium predicts that effort should be increasing in \(\alpha\) (the proportion of your catch you get to keep). This appears to be only true for the students where their average profit was in the top half of the class. It is my belief that these are the students that “figured out” the problem with the feedback, whereas for the students in the bottom half behaved the way that they did because they were not getting proper feedback on their choices.
Using dataframe subjects, create a scatterplot of mean_choice vs. mean_profit. Use geom_smooth() with method="lm" and formula=y ~ poly(x, 2) to emphasize the relationship, and facet_wrap() the plot by variable alpha.
Describe the results from the plot above.
In the communism treatment (\(\alpha=0\)) the highest payoffs are associated with freeriding. In the laissez-faire treatment (\(\alpha=1\)) the highest payoffs are associated with over-exploitation. In the Universal Basic Income treatment (\(\alpha=\frac12\)) the highest payoffs are associated with intermediate effort levels.