---
title: "Final Course Evaluation report for 36-617, Fall 2021"
author: "Brian Junker"
date: "12/03/2021"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

Here is a summary of students' ratings for 36-617. 

```{r echo=F}
library(stringr)
library(kableExtra)

data <- read.csv("BJEvals.csv",header=T)

names(data)[1] <- "Understanding"  
## Seems necessary for 12-03-2021, but I don't know why...

attach(data)

par(mfrow=c(3,2))

myplot <- function(x,title=deparse(substitute(x))) {
    tab <- rep(0,5)
    names(tab) <- paste(1:5)
    raw <- table(x)
    for (i in names(raw)) {
        tab[i] <- tab[i] + raw[i]
    }
    barplot(tab,xlab=title)
}


myplot(Understanding)

myplot(Interest)

myplot(hard.easy.number,title="Not too hard or too easy")

myplot(slow.fast.number,title="Not too slow or too fast")

myplot(Useful,title="Useful")
```

On the next two pages are student comments about the class. Here are my initial reactions:

* I think the projects are, and should be, challenging, but I can make the homeworks a little less onerous.  

* Feeling a little lost aobut Project 02 was due in part to the fact that it was a 14 week semester and not a 15 week semester, so the project got assigned a little earlier, relative to where we were in the course content, than it usually would be.

* I will move nonparametric regression earlier in the course to address some of the requests for "more modern material".

```{r echo=F}
com <- Comments

for (i in 1:length(com)) {
    loc <- str_locate_all(com[i],"PP ")[[1]][,1]
    if (length(loc)>0) {
        for (j in 1:length(loc)) {
            substr(com[i],loc[j],loc[j]+3) <- "\n\n\n"
        }
    }
    com[i] <- paste(com[i],"\n\n")
##    com[i] <- paste(com[i],"\n\n---------------------------------------\n\n")
##    if (str_length(com[i])>0) {
##        cat(com[i],"\n\n---------------------------------------\n\n")
##    }
}

set.seed(143256)

com <- com[str_length(com)!=0]
com <- com[!is.na(com)]
com <- data.frame(text=sample(com))
n <- dim(com)[1]
m <- floor(n/2)
com[1:m,] %>% kbl(col.names="Comments") %>% column_spec(1,width="6in") %>% kable_styling()
com[(m+1):n,] %>% kbl(col.names="Comments") %>% column_spec(1,width="6in") %>% kable_styling()

detach(data)



```

