## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  eval = FALSE
)

## -----------------------------------------------------------------------------
# # install.packages("remotes")
# remotes::install_github("mmukaigawara/leadeR")

## -----------------------------------------------------------------------------
# library(leadeR)
# library(data.table)
# 
# spacyr::spacy_initialize()
# 
# set.seed(02138)

## -----------------------------------------------------------------------------
# head(jfk19571101)

## -----------------------------------------------------------------------------
# jfk1 <- clean_text(jfk19610120)
# jfk2 <- clean_text(jfk19610925)
# jfk3 <- clean_text(jfk19630610)