In ml-e/ML-library: What the package does (short line)

knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='Figs/',
                      warning=FALSE, message=FALSE)
knitr::opts_knit$set(root.dir="../")

for (i in 1:length(joineds)) {
  joined <- joineds[[i]]
  name <- method_names[[i]]
  e <- filter(joined, grepl('ensemble', method) | method == "least_squares")
  p1 <- plot_swf_(e, GAMMA=3) + coord_cartesian(xlim=c(0, 0.4)) + labs(title=paste(name, 'swf'))
  plot(p1)
  p2 <- plot_reach_vs_waste_(e, THRESHOLD=0.4) + coord_cartesian(xlim=c(0, 0.4)) + labs(title=paste(name, 'reach'))
  plot(p2)
}