NA nateaff

	library(cranlogs)
	library(ctv)
	library(dplyr)

	view <- "Optimization"

	# Get Cran view packages
	views <- ctv::available.views()
	packages <- views[[view]]$packagelist

	# See https://twitter.com/_fruchtose/status/1271280300228632576?s=20 for
	# original twitter thread
	comments <- read_csv("https://gist.githubusercontent.com/nateaff/5539054d77aab5d2e02f6254e3782143/raw/6531d52d3647c1636303824f7d11da0141136f09/matchanmore-dr.csv")

	# Tokenize
	comment_words <-
	comments %>%
	unnest_tokens(word, comment)

	# Cretae custom stopwords for single word tokens

	position,comment
	deny, First caller says that the Planning Commission shouldn't even be dealing with this kind of issue.
	support," Second caller supports the DR applicant, who runs Garden Creamery."
	deny, Third caller supports project sponsor Matcha n' More.
	deny, Fourth caller is on board of Mission Merchants Association. This is a principally permitted use for the storefront. He supports the project sponsor.
	support, Fifth caller is a customer of Garden Creamery and asks they deny the application of the other ice cream shop—because they have not consulted the community [the ice cream community?]
	deny," Sixth caller supports Matcha n' More, saying we shouldn't deny their application for petty reasons."
	support," Seventh caller is a small business owner, asks they support the DR. ""Community is more important than ever."" MnM ""has made that impossible"" by serving ice cream topped w/ 24K gold"
	deny, Eighth caller supports MnM. They're serving an innovative style of ice cream.
	deny," Ninth caller supports MnM

	mpg,cyl,rot,disp,hp,drat,wt,qsec,vs,am,gear,carb
	21,0,2,160,110,3.9,2.62,16.46,0,1,4,4
	21,0,2,160,110,3.9,2.875,17.02,0,1,4,4
	22.8,4,0,108,93,3.85,2.32,18.61,1,1,4,1
	21.4,6,0,258,110,3.08,3.215,19.44,1,0,3,1
	18.7,8,0,360,175,3.15,3.44,17.02,0,0,3,2
	18.1,6,0,225,105,2.76,3.46,20.22,1,0,3,1
	14.3,8,0,360,245,3.21,3.57,15.84,0,0,3,4
	24.4,4,0,146.7,62,3.69,3.19,20,1,0,4,2
	22.8,4,0,140.8,95,3.92,3.15,22.9,1,0,4,2

	library(xgboost)
	library(xgboostExplainer)

	xgboost_example_models <- function(){
	# Return a list of all the examples from the xgboost() documentation

	data(agaricus.train, package='xgboost')
	data(agaricus.test, package='xgboost')

	dtrain <- xgb.DMatrix(agaricus.train$data, label = agaricus.train$label)