schedule.Rmd

---
  title: "Schedule"
---
  
  **Click on the text like "Week 1: Sep 02 -- Sep 06" to expand or collapse the items we covered in that week.**
  
  I will fill in more detail and provide links to lecture notes and labs as we go along.  Items for future dates are tentative and subject to change.

```{r, echo = FALSE}
make_week_box <- function(id, open, title, contents) {
  cat('
<div class="panel panel-default">
<div class="panel-heading" role="tab" id="headingOne">
<h5 class="mb-0">
<a data-toggle="collapse" href="#',
id,
'" aria-expanded="true" aria-controls="collapseOne">
',
title,
'</a>
</h5>
</div>

<div id="',
id,
'" class="collapse',
ifelse(open, " in", ""),
'">
<div class="panel-body">
',
contents,
'
</div>
</div>
</div>',
      sep = "")
}
```

```{r, echo = FALSE, results='asis'}
make_week_box("week1", FALSE, "Week 1: Sep 02 -- Sep 06", "

#### Wed, Sep 04
 * **In class**, we will work on:
    * Overview of course and syllabus (syllabus linked to from main course website landing page)
    * Introductory activity/lab: [pdf](materials/20190904_intro/foundations_inference.pdf)
 * **After class**, please:
    * Fill out this poll about when my office hours should be held: [http://whenisgood.net/4gx9jzb](http://whenisgood.net/4gx9jzb)
    * Sign up for our class at Piazza (anonymous question and answer forum): [https://piazza.com/mtholyoke/fall2019/stat242](https://piazza.com/mtholyoke/fall2019/stat242)
    * Read Chapter 1 of The Statistical Sleuth 3rd Edition.

#### Fri, Sep 06
 * **In class**, we will work on:
    * Finish R lab on permutation tests
    * Review quizzes on material from Chapter 1 (possible quizzes and their solutions are posted on the Quizzes/Exams page on the course website)
 * **After class**, please:
    * Read Sections 2.1, 2.2, and 2.5 of The Statistical Sleuth 3rd Edition
    * Do optional Homework 0; I won't be checking for completion but you should do this if you're less comfortable with R.
    * Start on Homework 1; due Fri, Sep 13
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week2", FALSE, "Week 2: Sep 09 -- Sep 13", "
#### Mon, Sep 09
 * **In class**, we will work on:
    * Quiz on material from Chapter 1
    * Review of t-based tests and confidence intervals:
        * Concepts overview: [pdf](materials/20190909_t/t_summary.pdf)
        * Examples (corrected version): [pdf](materials/20190909_t/t.pdf)
 * **After class**, please:
    * Work on Homework 1; due Fri, Sep 13
    * Read Sections 2.3, 5.2, and 6.2 of The Statistical Sleuth 3rd Edition


#### Wed, Sep 11
 * **In class**, we will work on:
    * Quiz on material from Chapter 1
    * Lab about t-based inference
 * **After class**, please:
    * Work on Homework 1; due Fri, Sep 13
    * Read Sections 2.3, 5.2, and 6.2 of The Statistical Sleuth 3rd Edition


#### Fri, Sep 13
 * **In class**, we will work on:
    * Overview of degrees of freedom: [pdf](materials/20190913_anova/degrees_of_freedom.pdf)
        * All you really need to know is that the degrees of freedom is the sample size minus the number of parameters for means.
    * ANOVA: [pdf](materials/20190913_anova/anova_pairwise.pdf)
        * We only talked about the set up and plots
 * **After class**, please:
    * Work on Homework 2; due Fri, Sep 20
    * Read Sections 2.3, 5.2, and 6.2 of The Statistical Sleuth 3rd Edition
    * Review quizzes on material from Chapter 2 (possible quizzes and their solutions are posted on the Quizzes/Exams page on the course website)
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week3", FALSE, "Week 3: Sep 16 -- Sep 20", "
#### Mon, Sep 16
 * **In class**, we will work on:
    * Quiz on material from Chapter 2
    * Continue ANOVA:
        * Based on the handout from Fri, Sep 13:
            * Discuss formulating hypothesis tests in terms of the means $\\mu_1, \\mu_2, \\ldots, \\mu_I$ for each group.
            * Discuss using `fit.contrasts` to conduct the test or find a confidence interval
        * Discuss another way of setting up the ANOVA model in terms of $\\beta$'s: [pdf](materials/20190916_lm_summary/lm_summary.pdf)
 * **After class**, please:
    * Work on Homework 2; due Fri, Sep 20
    * Read Sections 2.3, 5.2, and 6.2 of The Statistical Sleuth 3rd Edition


#### Wed, Sep 18
 * **In class**, we will work on:
    * Quiz on material from Chapter 1 or Chapter 2
    * More on $t$ tests for ANOVA.  No new handouts.
    * We developed a set of solutions to all the questions we asked related to stuff in Lab 2: [https://github.com/mhc-stat242-f2019/Lab2-solutions.git](https://github.com/mhc-stat242-f2019/Lab2-solutions.git)
 * **After class**, please:
    * Work on Homework 2; due Fri, Sep 20
    * Read Sections 2.3, 5.2, and 6.2 of The Statistical Sleuth 3rd Edition


#### Fri, Sep 20
 * **In class**, we will work on:
    * Concepts behind t-based inference and F tests for ANOVA: [pdf](materials/20190920_anova_t_F/20190920_anova_t_F.pdf)
    * R code for F tests for ANOVA: [pdf](materials/20190920_anova_t_F/anova_F_R_code.pdf)  (note: this is a first look at this that we will expand on next class)
    * Lab 3: [https://github.com/mhc-stat242-f2019/Lab3.git](https://github.com/mhc-stat242-f2019/Lab3.git)
 * **After class**, please:
    * Review all quizzes!
    * Work on Homework 3; due Fri, Sep 27.  Will be assigned by Saturday.
    * Read Sections 5.3 and 5.4 of The Statistical Sleuth 3rd Edition
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week4", FALSE, "Week 4: Sep 23 -- Sep 27", "
#### Mon, Sep 23
 * **In class**, we will work on:
    * Quiz on Sections 5.2 and 6.2
    * More on F tests for ANOVA models.
        * slides illustrating how p-value calculations for F tests work: [pdf](materials/20190923_F/F_Test_p-values.pdf)
        * p-values for nested models: [pdf](materials/20190923_F/anova_F.pdf)
        * Finish Lab 3
 * **After class**, please:
    * Read Sections 6.3, 6.4.3, and the paragraph headed \"Bonferroni\" in 6.4.4.

#### Wed, Sep 25
 * **In class**, we will work on:
    * Quiz on any material up through Sections 5.2 and 6.2
    * Multiple comparisons.
        * Concepts: [pdf](materials/20190925_multiple_comparisons/Concepts_multiple_comparisons.pdf)
        * R: [pdf](materials/20190925_multiple_comparisons/R_multiple_comparisons.pdf)
    * Lab 4: https://github.com/mhc-stat242-f2019/Lab4.git
 * **After class**, please:


#### Fri, Sep 27
 * **In class**, we will work on:
    * Multiple Comparisons:
        * Lab 5: https://github.com/mhc-stat242-f2019/Lab5.git (does not need to be submitted)
        * Finish Lab 4
    * Review quizzes on F tests and multiple comparisons.
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week5", FALSE, "Week 5: Sep 30 -- Oct 04", "
#### Mon, Sep 30
 * **In class**, we will work on:
    * Conditions for t and F based inference with the ANOVA model. [pdf](materials/20190930_conditions/anova_conditions.pdf)
 * **After class**, please:


#### Wed, Oct 02
 * **In class**, we will work on:
    * Transformations for ANOVA models.
        * Concepts: [pdf](materials/20190930_conditions/concepts_anova_transformations.pdf)
        * Examples with R code: [pdf](materials/20190930_conditions/example_anova_transformations.pdf)
        * If time, Lab 6: https://github.com/mhc-stat242-f2019/Lab6.git
 * **After class**, please:


#### Fri, Oct 04
 * **In class**, we will work on:
    * Time to work on Lab 6
    * Review quizzes on conditions for ANOVA
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week6", FALSE, "Week 6: Oct 07 -- Oct 11", "
#### Mon, Oct 07
 * **In class**, we will work on:
    * Simple Linear Regression:
        * Concepts: [pdf](materials/20191004_SLR/20191004_slr.pdf)
        * R code and examples: [pdf](materials/20191004_SLR/20191004_slr_examples.pdf)
 * **After class**, please:


#### Wed, Oct 09
 * **In class**, we will work on:
    * Midterm!
 * **After class**, please:


#### Fri, Oct 11
 * **In class**, we will work on:
    * Alternative approaches to inference; bootstrap
    * Confidence intervals for the mean for simple linear regression:
        * Lecture notes: [pdf](materials/20191011_mean_CI/lecture_notes.pdf)
        * R code and examples: [pdf](materials/20191011_mean_CI/20191011_mean_CI.pdf)
        * Lab 7: https://github.com/mhc-stat242-f2019/Lab7.git
 * **After class**, please:
    * Have a great break!
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week7", FALSE, "Week 7: Oct 14 -- Oct 18", "
#### Mon, Oct 14
 * **No Class**: Midsemester Break.  Safe travels!


#### Wed, Oct 16
 * **In class**, we will work on:
    * **No Quiz**
    * Residuals and Prediction Intervals for Simple Linear Regression: [pdf](materials/20191016_SLR_residuals/20191016_residuals.pdf)
 * **After class**, please:


#### Fri, Oct 18
 * **In class**, we will work on:
    * Conditions and Transformations for Simple Linear Regression: [pdf](materials/20191018_SLR_conditions_transformations/20181018_Transformations.pdf)
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week8", FALSE, "Week 8: Oct 21 -- Oct 25", "
#### Mon, Oct 21
 * **In class**, we will work on:
    * Quiz
    * Miscellaneous topics from simple linear regression: [pdf](materials/20191021_more_slr_conditions/slr_conditions_misc.pdf)
    * Start Lab 9
 * **After class**, please:


#### Wed, Oct 23
 * **In class**, we will work on:
    * Quiz
    * Work on Lab 9
 * **After class**, please:


#### Fri, Oct 25
 * **In class**, we will work on:
    * Quadratic Regression: [pdf](materials/20191025_quadratic_reg/20191025_quadratic_reg.pdf)
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week9", TRUE, "Week 9: Oct 28 -- Nov 01", "
#### Mon, Oct 28
 * **In class**, we will work on:
    * Quiz
    * Regression with both a quantitative and a categorical explanatory variable: [pdf](materials/20191028_two_lines/20191028_two_lines.pdf)
 * **After class**, please:


#### Wed, Oct 30
 * **In class**, we will work on:
    * Quiz
    * Regression with both a quantitative and a categorical explanatory variable: [pdf](materials/20191030_gt2_categories/20191030_gt2_categories.pdf)
 * **After class**, please:


#### Fri, Nov 01
 * **In class**, we will work on:
    * Lab 11
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week10", TRUE, "Week 10: Nov 04 -- Nov 08", "
#### Mon, Nov 04
 * **In class**, we will work on:
    * Two-way ANOVA:
        * hand out: [pdf](materials/20191104_2_way_anova/20191104_2_way_anova.pdf)
 * **After class**, please:


#### Wed, Nov 06
 * **In class**, we will work on:
    * Two-way ANOVA, continuing hand out from last class
 * **After class**, please:


#### Fri, Nov 08
 * **In class**, we will work on:
    * Lab 12, on 2-way anova
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week11", TRUE, "Week 11: Nov 11 -- Nov 15", "
#### Mon, Nov 11
 * **In class**, we will work on:
    * Overview of Lab 12 solutions
    * Quiz
    * Diagnostics for outliers and high leverage observations: [pdf](materials/20191111_regression_diagnostics/20191111_residual_diagnostics.pdf)
    * Start on multiple regression: [pdf](materials/20191111_regression_diagnostics/20191111_mult_reg.pdf)
    * If time, worksheet on multiple regression and diagnostics? [pdf](materials/20191111_regression_diagnostics/worksheet_multiple_reg.pdf)
    * Overview of projects
 * **After class**, please:


#### Wed, Nov 13
 * **In class**, we will work on:
    * Quiz
    * Multiple Regression, added variable plots:
        * [pdf](materials/20191113_multicollinearity_added_variables/20191115_multicollinearity_added_variables.pdf)
 * **After class**, please:


#### Fri, Nov 15
 * **In class**, we will work on:
    * Multiple Regression
        * [pdf](materials/20191113_multicollinearity_added_variables/20191115_variable_selection.pdf)
        * The original article in case you're curious: [pdf](materials/20191113_multicollinearity_added_variables/Ericksen.pdf)
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week12", TRUE, "Week 12: Nov 18 -- Nov 22", "
#### Mon, Nov 18
 * **In class**, we will work on:
    * Multiple Regression
        * worksheet: [pdf](materials/20191118_var_selection/worksheet_multiple_reg_var_selection.pdf)
        * See also lab on variable selection
 * **After class**, please:


#### Wed, Nov 20
 * **In class**, we will work on:
    * Review
 * **After class**, please:


#### Fri, Nov 22
 * **In class**, we will work on:
    * Logistic Regression
        * lecture notes: [pdf](materials/20191122_logistic/lecture_notes.pdf)
        * hand out: [pdf](materials/20191122_logistic/20191122_logistic_reg.pdf)
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week13", TRUE, "Week 13: Nov 25 -- Nov 29", "
#### Mon, Nov 25
 * **In class**, we will work on:
    * Midterm 2
 * **After class**, please:


#### Wed, Nov 27
 * **No Class**: Thanksgiving Break.  Safe travels!


#### Fri, Nov 29
 * **No Class**: Thanksgiving Break.  Safe travels!
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week14", TRUE, "Week 14: Dec 02 -- Dec 06", "
#### Mon, Dec 02
 * **In class**, we will work on:
    * Logistic regression
 * **After class**, please:


#### Wed, Dec 04
 * **In class**, we will work on:
    * **Evan is away at a conference.**
    * Time to work on your projects in groups.
 * **After class**, please:


#### Fri, Dec 06
 * **In class**, we will work on:
    * **Evan is away at a conference.**
    * Time to work on your projects in groups.
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("week15", TRUE, "Week 15: Dec 09 -- Dec 13", "
#### Mon, Dec 09
 * **In class**, we will work on:
    * Something?
 * **After class**, please:
")
```

```{r, echo = FALSE, results='asis'}
make_week_box("finals", TRUE, "Final Exams: Dec 16 -- Dec 20", "We will have a cumulative final exam.")
```