added all my tenure and promotion material

tenure_promotion_packets/hill-teaching_evaluations-generate_teaching_evaluation_stats_figures-2021.R

@@ -0,0 +1,54 @@
+library(ggplot2)
+library(reshape2)
+library(readODS)
+
+d <- read_ods("teaching_evaluation_summary.ods")
+colnames(d) <- tolower(colnames(d))
+colnames(d) <- gsub("\\s+", ".", colnames(d))
+
+## center things in the quarters
+d$date <- as.Date(paste0(d$starting.month, "-01")) + as.difftime(6, units="weeks")
+
+ggplot(data=d) +
+    aes(x=date, y=combined.median, color=level, group=NA) +
+    geom_point(aes(shape=cotaught, size=credits)) + geom_smooth(method="lm") +
+    scale_y_continuous(limit=c(1,5))
+
+range.data <- data.frame(variable=c("cei", "cei", "combined.median", "combined.median"),
+                        value=c(1,7,1,5))
+
+grid.tmp <- melt(d[,c("combined.median", "cei")])
+
+grid.tmp$variable <- factor(grid.tmp$variable, levels=c("combined.median", "cei"))
+range.data$variable <- factor(range.data$variable, levels=c("combined.median", "cei"))
+
+
+p  <- ggplot(data=grid.tmp) +
+    aes(x=value, group=variable) +
+    facet_wrap(variable~., ncol=1, scales="free_x",
+               labeller=labeller(variable=c("combined.median"="Overall Median",
+                                            "cei"="Course Engagement Index"))) +
+    geom_boxplot() +
+    geom_blank(data=range.data) +
+    scale_x_continuous("", breaks=seq(1,7)) +
+    scale_y_continuous("", breaks=NULL) +
+    theme_bw()
+p
+
+pdf("course_evaluation_overview.pdf", width=3.5, height=2.4)
+p
+dev.off()
+
+## ggplot(data=grid.tmp) +
+##     aes(x=value, y=variable, group=variable) +
+##     geom_violin() +
+##     geom_blank(data=range.data)
+
+nrow(d)
+summary(d$combined.median)
+sd(d$combined.median, na.rm=TRUE)
+
+sum(d$total)
+
+summary(d$cei)
+sd(d$cei, na.rm=TRUE)

tenure_promotion_packets/hill-tenure_packet-README-2021.txt

@@ -0,0 +1 @@
+If you want the LaTeX source for any of these, just be in touch.