class: center, middle, inverse, title-slide # 1.6 — Income & Substitution Effects ## ECON 306 • Microeconomic Analysis • Spring 2022 ### Ryan Safner
Assistant Professor of Economics
safner@hood.edu
ryansafner/microS22
microS22.classes.ryansafner.com
--- class: inverse # Outline ### [The (Own) Price Effect](#4) ### [(Real) Income Effect](#10) ### [Substitution Effect](#15) ### [Putting the Effects Together](#18) ### [What About Inferior Goods?](#34) ### [On to Demand Curves](#49) --- # A Demand Function (Again) .pull-left[ .smallest[ - A consumer’s .hi[demand] (for good x) depends on .hi-turquoise[current prices & income]: `$$q_x^D = q_x^D(m, p_x, p_y)$$` - .hi-turquoise[How does demand (for x) change?] 1. .hi-purple[Income effects] `\(\left(\frac{\Delta q_x^D}{\Delta m}\right)\)`: how `\(q_x^D\)` changes with changes in income 2. .hi-purple[Cross-price effects] `\(\left(\frac{\Delta q_x^D}{\Delta p_y}\right)\)`: how `\(q_x^D\)` changes with changes in prices of *other* goods (e.g. `\(y)\)` 3. .hi-purple[(Own) Price effects] `\(\left(\frac{\Delta q_x^D}{\Delta p_x}\right)\)`: how `\(q_x^D\)` changes with changes in price (of `\(x)\)` ] ] .pull-right[ .center[ ![](../images/choices.jpg) ] ] --- class: inverse, center, middle # The (Own) Price Effect --- # The (Own) Price Effect .pull-left[ - .hi-purple[Price effect]: change in optimal consumption of a good associated with a change in its price, holding income and other prices constant `$$\frac{\Delta q_x^D}{\Delta p_x} < 0$$` .hi-purple[The law of demand]: as the price of a good rises, people will tend to buy less of that good (and vice versa) - i.e. **the price effect is negative!** ] .pull-right[ .center[ ![](../images/pricetag.jpg) ] ] --- # Decomposing the Price Effect The .hi-purple[price effect] (law of demand) is actually the **net result of two effects** -- 1. .hi-green[(Real) income effect]: change in consumption due to change in real purchasing power -- 2. .hi-orange[Substitution effect]: change in consumption due to change in relative prices -- .center[ .hi-purple[Price Effect] `\(=\)` .hi-green[Real income effect] `\(+\)` .hi-orange[Substitution Effect] ] --- class: inverse, center, middle # (Real) Income Effect --- # (Real) Income Effect: Demonstration .pull-left[ - Suppose there is only 1 good to consume, `\(x\)`. You have a $100 income, and the price of `\(x\)` is $10. You consume 10 units of `\(x\)` - Suppose the price of `\(x\)` rises to $20. You now consume 5 units of `\(x\)`. - This is the .hi-green[real income effect] ] .pull-right[ .center[ ![](../images/flations.png) ] ] --- # (Real) Income Effect: Demonstration .pull-left[ - .hi[Real income effect]: your consumption mix changes because of the change in the price of `\(x\)` changes your .hi-purple[real income] or .hi-purple[purchasing power] (the amount of goods you can buy) - Note your **_actual_ (nominal) income** ($100) **never changed!** ] .pull-right[ .center[ ![](../images/flations.png) ] ] --- # (Real) Income Effect: Size .pull-left[ - The *size* of the income effect depends on how large a *portion of your budget* you spend on the good - **Large-budget items**: - e.g. Housing/apartment rent, car prices - Price increase/decreases makes you much poorer/wealthier ] .pull-right[ .center[ ![](../images/rentapartments.jpg) ] ] --- # (Real) Income Effect: Size .pull-left[ - The *size* of the income effect depends on how large a *portion of your budget* you spend on the good - **Small-budget items**: - e.g. pencils, toothpicks, candy - Price changes don’t have much of an effect on your wealth or change your behavior much ] .pull-right[ .center[ ![:scale 100%](../images/pencil.png) ] ] --- class: inverse, center, middle # Substitution Effect --- # Substitution Effect: Demonstration .pull-left[ - Suppose there are 1000’s of goods, none of them a major part of your budget - So real income effect is insignificant - Suppose the price of good `\(x\)` increases - You would consume *less* of `\(x\)` relative to other goods because `\(x\)` is now *relatively* more expensive - That’s the .hi-orange[substitution effect] ] .pull-right[ .center[ ![](../images/groceryaisle.jpg) ] ] --- # Substitution Effect: Demonstration .pull-left[ - .hi-orange[Substitution effect]: consumption mix changes because of a change in **relative prices** - Buy more of the (now) relatively cheaper items - Buy less of the (now) relatively more expensive item `\((x)\)` ] .pull-right[ .center[ ![](../images/groceryaisle.jpg) ] ] --- class: inverse, center, middle # Putting the Effects Together --- # Putting the Effects Together - .hi-green[Real income effect]: change in consumption due to change in real purchasing power - **Different directions**: positive (**normal goods**) or negative (**inferior goods**) - Higher price of `\(x\)` means you must buy less `\(x\)`, `\(y\)`, or *both* (depending on your preferences) -- - .hi-orange[Substitution effect]: change in consumption due to change in relative prices - If `\(x\)` gets more expensive relative to `\(y\)`, consume `\(\downarrow x\)` (and `\(\uparrow y\)`) - Always the same direction: `\((\downarrow\)` relatively expensive goods, `\(uparrow\)` relatively cheaper goods) - This is why demand curves slope downwards! -- .center[ .hi-purple[Price Effect] `\(=\)` .hi-green[Real income effect] `\(+\)` .hi-orange[Substitution Effect] ] --- # Real Income and Substitution Effects, Graphically I .pull-left[ - Original optimal consumption `\((A)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-1-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically I .pull-left[ - Original optimal consumption `\((A)\)` - .purple[**(Total) price effect:** `\\(A \rightarrow C\\)`] - Let's decompose this into the two effects ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-2-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically II .pull-left[ - .orange[**Substitution effect:**] what you would choose under the **new exchange rate** to **remain indifferent** as before the change ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-3-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically II .pull-left[ - .orange[**Substitution effect:**] what you would choose under the **new exchange rate** to **remain indifferent** as before the change - Graphically: shift *new* budget constraint inwards until tangent with *old* indifference curve - `\(A \rightarrow B\)` on same I.C. `\((\udownarrow\)` `\(x\)`, `\(\uparrow\)` `\(y)\)` - .slate[Note: Point B *must* be a *different* point on the original curve! Why?] ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-4-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically III .pull-left[ - .green[**(Real) income effect:**] change in consumption due to the **change in purchasing power** from the change in price ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-5-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically III .pull-left[ - .green[**(Real) income effect:**] change in consumption due to the **change in purchasing power** from the change in price - `\(B \rightarrow C\)` to new budget constraint (can buy less of `\(x\)` and/or `\(y\)`) ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-6-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-7-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-8-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-9-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` - .green[**(Real) income effect:** `\\(B \rightarrow C\\)`] to new budget constraint (can buy less of `\(x\)` and/or `\(y\)`) ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-10-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` - .green[**(Real) income effect:** `\\(B \rightarrow C\\)`] to new budget constraint (can buy less of `\(x\)` and/or `\(y\)`) - .purple[**(Total) price effect:** `\\(A \rightarrow C\\)`] ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-11-1.png" width="504" style="display: block; margin: auto;" /> ] --- <img src="1.6-slides_files/figure-html/unnamed-chunk-12-1.png" width="576" style="display: block; margin: auto;" /> --- class: inverse, center, middle # What About Inferior Goods? --- # Real Income and Substitution Effects, Graphically I .pull-left[ - Original optimal consumption `\((A)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-13-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically I .pull-left[ - Original optimal consumption `\((A)\)` - .purple[**(Total) price effect:** `\\(A \rightarrow C\\)`] - Let's decompose this into the two effects ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-14-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically II .pull-left[ - .orange[**Substitution effect:**] what you would choose under the **new exchange rate** to **remain indifferent** as before the change ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-15-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically II .pull-left[ - .orange[**Substitution effect:**] what you would choose under the **new exchange rate** to **remain indifferent** as before the change - Graphically: shift *new* budget constraint inwards until tangent with *old* indifference curve - `\(A \rightarrow B\)` on same I.C. `\((\downarrow\)` `\(x\)`, `\(\uparrow\)` `\(y)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-16-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically III .pull-left[ - .green[**(Real) income effect:**] change in consumption due to the **change in purchasing power** from the change in price ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-17-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically III .pull-left[ - .green[**(Real) income effect:**] change in consumption due to the **change in purchasing power** from the change in price - `\(B \rightarrow C\)` to new budget constraint (can buy less of `\(x\)` and/or `\(y\)`) ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-18-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-19-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-20-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-21-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` - .green[**(Real) income effect:** `\\(B \rightarrow C\\)`] to new budget constraint (can buy less `\(x\)` and/or `\(y\)`) ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-22-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Real Income and Substitution Effects, Graphically IV .pull-left[ - Original optimal consumption `\((A)\)` - Price of `\(x\)` rises, new optimal consumption at `\((C)\)` - .orange[**Substitution effect:** `\\(A \rightarrow B\\)`] on same I.C. `\((\downarrow\)` more expensive `\(x\)` and `\(\uparrow\)` `\(y)\)` - .green[**(Real) income effect:** `\\(B \rightarrow C\\)`] to new budget constraint (can buy less `\(x\)` and/or `\(y\)`) - .purple[**(Total) price effect:** `\\(A \rightarrow C\\)`] ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-23-1.png" width="504" style="display: block; margin: auto;" /> ] --- <img src="1.6-slides_files/figure-html/unnamed-chunk-24-1.png" width="576" style="display: block; margin: auto;" /> --- # Violating the Law of Demand .bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ .green[**Example**]: What would it take to violate the law of demand? ] --- # A Giffen Good .pull-left[ - .hi-purple[Giffen good]: theoretical good that violates law of demand .smallest[ 1. Inferior good (negative .green[real income effect]) 2. .hi-green[real income effect] `\(>\)` .hi-orange[substitution effect] ] - Price increase (decrease) causes person to buy *more* (less) ] .pull-right[ .center[ ![](../images/questionmarkbox.jpg) ] ] --- # Recap: Real Income and Substitution Effects .center[ .hi-purple[Price Effect] `\(=\)` .hi-green[Real income effect] `\(+\)` .hi-orange[Substitution Effect] ] - .hi-orange[Substitution effect]: is always in the direction of the cheaper good - .hi-green[Real Income effect]: can be positive (normal) or negative (inferior) - .hi-purple[Law of Demand]/Demand curves slope downwards (.hi-purple[Price effect]) mostly because of the substitution effect - Even (inferior) goods with negative real income effects overpowered by substitution effect - Theoretical **Giffen good** exception: .green[negative R.I.E.] `\(>\)` .orange[S.E.] --- class: inverse, center, middle # On To Demand Curves --- # Deriving a Demand Curve Graphically .pull-left[ <img src="1.6-slides_files/figure-html/unnamed-chunk-26-1.png" width="504" style="display: block; margin: auto;" /> ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-27-1.png" width="504" style="display: block; margin: auto;" /> ] .smallest[ - Demand curve for `\(x\)` relates optimal consumption of `\(x\)` ("quantity") as price of `\(x\)` changes - At `\(p_x=4\)`, consumer buys 2 `\(x\)` ] --- # Deriving a Demand Curve Graphically .pull-left[ <img src="1.6-slides_files/figure-html/unnamed-chunk-28-1.png" width="504" style="display: block; margin: auto;" /> ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-29-1.png" width="504" style="display: block; margin: auto;" /> ] .smallest[ - Demand curve for `\(x\)` relates optimal consumption of `\(x\)` ("quantity") as price of `\(x\)` changes - At `\(p_x=4\)`, consumer buys 2 `\(x\)`; at `\(p_x=2\)`, consumer buys 5 `\(x\)` ] --- # Deriving a Demand Curve Graphically .pull-left[ <img src="1.6-slides_files/figure-html/unnamed-chunk-30-1.png" width="504" style="display: block; margin: auto;" /> ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-31-1.png" width="504" style="display: block; margin: auto;" /> ] .smallest[ - Demand curve for `\(x\)` relates optimal consumption of `\(x\)` ("quantity") as price of `\(x\)` changes - At `\(p_x=4\)`, consumer buys 2 `\(x\)`; at `\(p_x=2\)`, consumer buys 5 `\(x\)`; at `\(p_x=1\)`, consumer buys 10 `\(x\)` ] --- # Deriving a Demand Curve Graphically .pull-left[ <img src="1.6-slides_files/figure-html/unnamed-chunk-32-1.png" width="504" style="display: block; margin: auto;" /> ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-33-1.png" width="504" style="display: block; margin: auto;" /> ] .smallest[ - Demand curve for `\(x\)` relates optimal consumption of `\(x\)` ("quantity") as price of `\(x\)` changes - At `\(p_x=4\)`, consumer buys 2 `\(x\)`; at `\(p_x=2\)`, consumer buys 5 `\(x\)`; at `\(p_x=1\)`, consumer buys 10 `\(x\)` ] --- # From Individual Demand to Market Demand .pull-left[ - Note so far we have been talking about *an individual person’s* demand - In principles, you learned about the entire .hi-purple[market demand] ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-34-1.png" width="504" style="display: block; margin: auto;" /> ] --- # From Individual Demand to Market Demand .pull-left[ - Note so far we have been talking about *an individual person’s* demand - In principles, you learned about the entire .hi-purple[market demand] - This is simply the sum of all individuals’ demands ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-35-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Demand Schedule (For Individual Or Market) .pull-left[ - .hi[Demand schedule] expresses the quantity of good a person(s) would be willing to buy `\((q_D)\)` at any given price `\((p_x)\)` - Holding constant all other prices `\((p_y)\)` and income `\((m)\)`! (.hi[“ceterus paribus”]) - Note: .hi-purple[each of these is a consumer's optimum at a given price!] ] .pull-right[ .tiny[ <table> <thead> <tr> <th style="text-align:right;"> price </th> <th style="text-align:right;"> quantity </th> </tr> </thead> <tbody> <tr> <td style="text-align:right;"> 10 </td> <td style="text-align:right;"> 0 </td> </tr> <tr> <td style="text-align:right;"> 9 </td> <td style="text-align:right;"> 1 </td> </tr> <tr> <td style="text-align:right;"> 8 </td> <td style="text-align:right;"> 2 </td> </tr> <tr> <td style="text-align:right;"> 7 </td> <td style="text-align:right;"> 3 </td> </tr> <tr> <td style="text-align:right;"> 6 </td> <td style="text-align:right;"> 4 </td> </tr> <tr> <td style="text-align:right;"> 5 </td> <td style="text-align:right;"> 5 </td> </tr> <tr> <td style="text-align:right;"> 4 </td> <td style="text-align:right;"> 6 </td> </tr> <tr> <td style="text-align:right;"> 3 </td> <td style="text-align:right;"> 7 </td> </tr> <tr> <td style="text-align:right;"> 2 </td> <td style="text-align:right;"> 8 </td> </tr> <tr> <td style="text-align:right;"> 1 </td> <td style="text-align:right;"> 9 </td> </tr> <tr> <td style="text-align:right;"> 0 </td> <td style="text-align:right;"> 10 </td> </tr> </tbody> </table> ] ] --- # Demand Curve .pull-left[ - .hi[Demand curve] graphically represents the demand schedule - Also measures a person's .hi-purple[maximum willingness to pay (WTP)] for a given quantity - .hi[Law of Demand (price effect)] `\(\implies\)` demand curves always slope downwards ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-37-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Demand Function .pull-left[ - .hi[Demand function] relates quantity to price .bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ .green[**Example**]: `$$q=10-p$$` ] - Not graphable (wrong axes)! ] .pull-right[ ] --- # Inverse Demand Function .pull-left[ - .hi[*Inverse* demand function] relates price to quantity - Take demand function and solve for `\(p\)` .bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ .green[**Example**]: `$$p=10-q$$` ] - Graphable (price on vertical axis)! ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-38-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Inverse Demand Function .pull-left[ - .hi[*Inverse* demand function] relates price to quantity - Take demand function and solve for `\(p\)` .bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ .green[**Example**]: `$$p=10-q$$` ] - Vertical intercept (.hi["Choke price"]): price where `\\(q_D=0\\)` ($10), just high enough to discourage *any* purchases ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-39-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Inverse Demand Function .pull-left[ - Read two ways: - Horizontally: at any given price, how many units person wants to buy - Vertically: at any given quantity, the .hi[maximum willingness to pay (WTP)] for that quantity - This way will be very useful later ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-40-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Shifts in Demand I .pull-left[ - Note a simple (inverse) demand function only relates (own) **price** and **quantity** .bg-washed-green.b--dark-green.ba.bw2.br3.shadow-5.ph4.mt5[ .green[**Example**]: `\(q=10-p\)` or `\(p=10-q\)` ] - What about all the other .hi-purple["determinants of demand"] like income and other prices? - They are captured in the vertical intercept (choke price)! ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-41-1.png" width="504" style="display: block; margin: auto;" /> ] --- # Shifts in Demand II .pull-left[ - A change in one of the .hi-purple["determinants of demand"] will **shift** demand curve! 1. Change in **income** `\(m\)` 2. Change in **price of other goods** `\(p_y\)` 3. Change in **preferences** or **expectations** about good `\(x\)` - Shows up in (inverse) demand function by a **change in intercept (choke price)**! - See my [Visualizing Demand Shifters](https://ryansafner.shinyapps.io/Demand/) ] .pull-right[ <img src="1.6-slides_files/figure-html/unnamed-chunk-42-1.png" width="504" style="display: block; margin: auto;" /> ]