Syllabus.Rmd

---
title: "Syllabus"
subtitle: "ECON 3535: Natural Resource Economics"
author: "Kyle Butts"
date: "`r format(Sys.time(), '%B %d, %Y')`"
output:
  xaringan::moon_reader:
    css: ['default']
    ## No title slide
    seal: false
    self_contained: true
    nature:
      ratio: '8.5:11'
      highlightStyle: github
      highlightLines: true
      countIncrementalSlides: false
---

```{r preamble, child=here::here("document-preamble.Rmd")}
```

```{r, echo = F}
library(icons)
library(tidyverse)
library(gt)
```

<h1 class="hi text-2xl center coral">ECON 3070: Intermediate Microeconomics</h1>

This course introduces the theoretical framework for analyzing the economic behavior of individual decision-makers, such as consumers, workers, and firms. This theoretical framework will be referenced throughout your undergraduate economics education. The aim of this course is to teach you to be able to think about **incentives** and **trade-offs** like an economist.

The course will be divided into 6 sections. The first section will be an introduction to microeconomics, along with a review of supply/demand and calculus. Section 2 will discuss consumer behavior and market demand. We will look at how a consumer chooses how to allocate their scare resources. Section 3 will cover producer behavior and market supply. We will consider how a producing firm chooses the number of inputs it uses, and the amount of output it produces for the market. Section 4 will deal with markets in which individual firms have no market power, and we will learn how prices are set in these markets. In Section 5 we consider different market structures, such as monopolies and oligopolies.


## Course Info

<div style="min-height: 1rem;"></div>

```{r info-table, echo = F}
table <- tribble(
  ~Icon, ~Name, ~Time, ~Location,
  as.character(icons::fontawesome("chalkboard-teacher")), "Instructor", "Kyle Butts", "<a href = 'emailto:kyle.butts@colorado.edu'>kyle.butts@colorado.edu</a>",
  as.character(icons::fontawesome("school")), "Lecture", "MWF 9:05-9:55am", "Hellems 241",
  as.character(icons::fontawesome("laptop-house")), "Office Hours", "M 11am-12:30pm and W 2-3:30pm", "<a href = 'https://cuboulder.zoom.us/j/3975335005'>Zoom</a>",
  as.character(icons::fontawesome("chalkboard-teacher")), "TA", "Ben.Zhang@colorado.edu", "<a href = 'emailto:Ben.Zhang@colorado.edu'>ben.zhang@colorado.edu</a>",
  as.character(icons::fontawesome("book")), "Textbook", "Microeconomics by Besanko and Braeutigam", "",
)

table %>%
  mutate(
    Icon = map(Icon, gt::html),
    Location = map(Location, gt::html),
    Time = map(Time, gt::html),
    Name = paste0("<i>", Name, "</i>"),
    Name = map(Name, gt::html)
  ) %>%
  gt::gt(table) %>%
  gt::cols_label(Icon = "") %>%
  gt::cols_width(
    Icon ~ px(40)
  ) %>%
  gt::cols_align(columns = c(Name, Time, Location), align = "left") %>%
  gt::tab_options(
    data_row.padding = px(4),
    column_labels.hidden = TRUE,
    table.font.size = px(10)
  )
```

---

## Grading

<div style="min-height: 2rem;"></div>

```{r grading-summary, echo = F}
grades <- tribble(
  ~Assignment, ~Percentage,
  "<b>Assignments</b>", .30, 
  "<b>Midterms</b>", .3,
  "<b>Final</b>", .40
) %>%
  mutate(
    Assignment = map(Assignment, gt::html)
  )

gt(grades) %>%
  fmt_percent(columns = c("Percentage"), decimals = 0) %>%
  gt::cols_width(
    Assignment ~ px(80),
    Percentage ~ px(30),
  ) %>%
  gt::cols_align(align = "left") %>%
  gt::tab_options(
    data_row.padding = px(2),
    table.font.size = px(10),
    column_labels.hidden = TRUE,
    column_labels.border.bottom.width = px(1)
  )
```

<div style="min-height: 2rem;"></div>

We will have two midterms in the class. The final exam will be cumulative, but more more heavily weighted towards the most recent material. I will curve each midterm separately. After the final exam I will curve the final grades so that the average grade for the whole class is an 81 (B-). The curve follows a strict formula, and I will not manually adjust grades for any reason. Letter grades are assigned according to the standard numerical formula used at CU:

<div style="min-height: 2rem;"></div>


```{r letter-grades, echo = F}
grades <- tribble(
  ~Grade, ~Percentage, ~Blank, ~Grade2, ~Percentage2,
			"A ", "\\(93 \\leq x\\)",      "", "C", "\\(73 \\leq x < 77\\)",
			"A-", "\\(90 \\leq x < 93\\)", "", "C-", "\\(70 \\leq x < 73\\)",
			"B+", "\\(87 \\leq x < 90\\)", "", "D+", "\\(67 \\leq x < 70\\)",
			"B ", "\\(83 \\leq x < 87\\)", "", "D ", "\\(63 \\leq x < 67\\)",
			"B-", "\\(80 \\leq x < 83\\)", "", "D-", "\\(60 \\leq x < 63\\)",
			"C+", "\\(77 \\leq x < 80\\)", "", "F ", "\\(x < 60\\)",        
)

gt(grades) %>%
  gt::cols_width(
    Grade ~ px(30),
    Grade2 ~ px(30),
    Percentage ~ px(80),
    Percentage2 ~ px(70),
    Blank ~ px(20)
  ) %>%
  gt::cols_align(align = "left") %>%
  gt::tab_style(
    style = list(cell_borders(
      sides = c("left"),
      color = "#D3D3D3",
      weight = px(2)
    )),
    locations = list(cells_body(columns = Blank))
  ) %>%
  gt::tab_options(
    data_row.padding = px(2),
    table.font.size = px(10),
    column_labels.hidden = TRUE,
    column_labels.border.bottom.width = px(1)
  )
```

<div style="min-height: 2rem;"></div>


### Assignments

For each chapter of material we cover, you will be assigned a problem set that works through the chapter's material. These are essential for practicing the material and learning the techniques you will use throughout your undergraduate career. For grading these assignments, I will select a subset of questions to grade for correctness. Assignments should be scanned (high-quality) pdfs. You can use an app such as Adobe Scan, and I will start to take off points if you turn in inelligible pdfs. 

You may work alone or in groups of 2. Each group will turn in a single assignment on Canvas and include your partner's name on your submission so you both receive the same grade.



---

## Course Policies

<br/>
### Attendance

I will not be taking attendance, so skip class at your own risk. Lecture slides will be posted on Canvas. The slides are a valuable study tool for the exams, but it will be hard to do well without regular attendance.

### Makeups

There will be no makeup tests, even if your reason for missing the test is very good. If a test conflicts with a mandatory CU event, we can arrange to have you take it before the test day, but not after. Similarly, assignments are given well ahead of their due date, so late assignments will not receive credit.

### Exams

There will be two midterms throughout the semester. They will consist of multiple choice questions along with a couple of free response questions. You may have a single piece of paper for the exams. There will be no make-up exams, unless there is documentation of a medical or family emergency. If you miss an exam, the weight of that exam will be added to the final exam. The final exam is cumulative, but the midterms are not.

### Email

Feel free to email me with questions about the course. However, if you want to talk about why you got a particular grade, you must come to office hours. Please give me 24 hours to respond before sending another email.

### Office Hours

If you have a schedule conflict during my office hours, you may email me to set up a different time to meet.

### Cheating

Don’t do it, you will automatically get a zero.

---

## Tentative Course Calendar


```{r echo = F}
link_classes <- function(col) {
	col <- replace_na(col, " ")

	# Add githack link
	lecture_nums <- as.numeric(str_match(col, "Lecture ([:digit:]{1,2})")[,2])
	col <- dplyr::case_when(
	  lecture_nums <= 12 ~ str_replace(col, "Lecture ([:digit:]{1,2})", "<a href = 'https://raw.githack.com/kylebutts/ECON3535_S2022/master/Slides/Topic_1.html' style = 'color: #107895;'>Lecture \\1</a>"),
	  lecture_nums <= 21 ~ str_replace(col, "Lecture ([:digit:]{1,2})", "<a href = 'https://raw.githack.com/kylebutts/ECON3535_S2022/master/Slides/Topic_2.html' style = 'color: #107895;'>Lecture \\1</a>"),
	  lecture_nums <= 26 ~ str_replace(col, "Lecture ([:digit:]{1,2})", "<a href = 'https://raw.githack.com/kylebutts/ECON3535_S2022/master/Slides/Topic_3.html' style = 'color: #107895;'>Lecture \\1</a>"),
	  lecture_nums >  26 ~ str_replace(col, "Lecture ([:digit:]{1,2})", "<a href = 'https://raw.githack.com/kylebutts/ECON3535_F2022/master/Slides/Topic_4.html' style = 'color: #107895;'>Lecture \\1</a>"),
	  TRUE ~ col
	)

	col <- str_replace(
		col, "Syllabus",
		"<a href = '#' style = 'color: #107895;'>Syllabus</a>"
	)

	# color No Class, Midterm, and Topic
	col <- str_replace(
		col, "No Class",
		"<span style = 'color: #F26D21;'>No Class</span>"
	)
	col <- str_replace(
		col, "Midterm",
		"<span style = 'color: #9A2515;'>Midterm</span>"
	)
	col <- str_replace(
	  col, "Topic ([1-4]) - (.*?)<br/>",
	  "<span style = 'color: #829356;'>Topic \\1</span><br/>"
	)
	col
}

link_assignments <- function(col) {
	col <- replace_na(col, " ")
	col <- str_replace(
		col, "Final Exam",
		"<span style = 'color: #9A2515;'>Final Exam</span>"
	)
	col
}

cal <- read_csv(here("schedule.csv")) %>%
	pivot_wider(., names_from = "name", values_from = "value") %>%
	mutate(
		Monday = link_classes(Monday),
		Wednesday = link_classes(Wednesday),
		Friday = link_classes(Friday),
		Assignments = link_assignments(Assignments),
		Monday = map(Monday, gt::html),
		Wednesday = map(Wednesday, gt::html),
		Friday = map(Friday, gt::html),
		Assignments = map(Assignments, gt::html),
		Dates = map(Dates, gt::html)
	)

(cal_tbl <- cal %>%
	gt() %>%
		# kfbmisc::gt_theme_kyle() %>%
		tab_options(
		  table.font.size = px(8),
			data_row.padding = px(6)
		) %>%
		tab_spanner(
			label = "Classes",
			columns = c("Monday", "Wednesday", "Friday")
		) %>%
		cols_align(
			align = "left",
			columns = c("Week", "Dates", "Monday", "Wednesday", "Friday", "Assignments")
		)
)

```


---

## University Policies

<div style="height: 0px;"></div>

### Students with Disabilities:

If you qualify for accommodations
because of a disability, please submit to me a letter from disability
services in a timely manner so that your needs can be addressed.
Disability services determine accommodations based on documented
disabilities. Contact: 303-492-8671, Center for Community N200.

### Religious Observance Policy:

Campus policy regarding religious
observances requires that faculty make every effort to reasonably and
fairly deal with all students who, because of religious obligations,
have conflicts with scheduled exams, assignments, or required
attendance. If you have a conflict, please contact me at the beginning
of the term so we can make proper arrangements.

### Honor Code:

All students of the University of Colorado at Boulder
are responsible for knowing and adhering to the academic integrity
policy of this institution. Violations of this policy may include:
cheating, plagiarism, aid of academic dishonesty, fabrication, lying,
bribery, and threatening behavior. All incidents of academic misconduct
shall be reported to the Honor Code Council (<honor@colorado.edu>;
303-725-2273). Students who are found to be in violation of the academic
integrity policy will be subject to both academic sanctions from the
faculty member and non-academic sanctions (including but not limited to
university probation, suspension, or expulsion). Other information on
the Honor Code can be found at:
<http://www.colorado.edu/policies/honor.html> and at
<http://www.colorado.edu/academics/honorcode/>

### Discrimination & Harassment Policy:

The University of Colorado
Policy on Sexual Harassment applies to all students, staff and faculty.
Sexual harassment is unwelcome sexual attention. It can involve
intimidation, threats, coercion, or promises or create an environment
that is hostile or offensive. Harassment may occur between members of
the same or opposite gender and between any combinations of members in
the campus community: students, faculty, staff, and administrators.
Harassment can occur anywhere on campus, including the classroom, the
workplace, or a residence hall. Any student, staff or faculty member who
believes s/he has been sexually harassed should contact the Office of
Discrimination and Harassment (ODH) at 303-492-2127 or the Office of
Judicial Affairs at 303-492-5550. Information about the ODH and the
campus resources available to assist individuals who believe they have
been sexually harassed can be obtained at:
<http://www.colorado.edu/odh/>