# 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 = 2L,
max_overlap_total = 15,
max_overlap_ratio = .8)
markovify_text(
markov_model = markov_model,
count = 100,
maximum_sentence_length = 1500L,
output_column_name = 'linnemanBotText',
tries = 100,
only_distinct = TRUE,
return_message = TRUE
)
# }
Run the code above in your browser using DataLab