markovifyR_yc.r

devtools::install_github("abresler/markovifyR")

library(dplyr)
library(markovifyR)

df_yc <- fundManageR::get_data_ycombinator_alumni()

companies <- df_yc %>% pull(descriptionCompany)


mk_yc <-
  generate_markovify_model(
    input_text = companies,
    markov_state_size = 3L,
    max_overlap_total = 15,
    max_overlap_ratio = .8
  )

mk_yc %>%
  markovifyR::markovify_text(maximum_sentence_length = NULL, output_column_name = 'fakeCompanyDescription', 
                             count = 50)