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

## -----------------------------------------------------------------------------
# library(leadeR)
# 
# spacyr::spacy_initialize()
# set.seed(02138)
# 
# own_ent <- "United States"
# B <- 1000
# 
# jfk <- clean_text(jfk19571101)

## -----------------------------------------------------------------------------
# res_oca <- get_oca(own_entity = own_ent, text = jfk, bootstrap = TRUE, B = B)
# print(res_oca)