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

## ----timing_Computer_Capacity, eval = FALSE, warning=FALSE, message=FALSE-----
#  
#  library(text)
#  # Save starting time
#  T1 <- Sys.time()
#  textEmbed(Language_based_assessment_data_8_10[1,1],
#            layers = 12,
#            decontexts = FALSE)
#  # Save stoping time
#  T2 <- Sys.time()
#  
#  # Compute time taken to run above function
#  T2-T1