# NOT RUN {
library(dplyr)
library(markovifyR)
data("linneman_lessons")
df <- linneman_lessons
lessons <-
df %>%
pull(textLesson)
markov_model <-
generate_markovify_model(
input_text = lessons,
markov_state_size = 3L,
max_overlap_total = 15,
max_overlap_ratio = .8
)
markov_model
# }
Run the code above in your browser using DataLab