---
title: "Midsemester Course Evaluation report for 36-617, Fall 2021"
author: "Brian Junker"
date: "10/20/2021"
output: pdf_document
---

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

Here is a summary of your ratings for 36-617.  This part looks good!

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

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

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 your comments about the class.  I'm happy that you like the teaching and how accessible Lorenzo and I are for answering your questions, etc.  

On the other hand, everyone seem horribly overworked!  Let's talk about what can get you through the next couple of weeks, and then I will also try to adjust my hw's for the remainder of the semester.

```{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)



```

