r 在R中生成带有马尔可夫链的文本

Posted 2021-05-24

library(markovchain)

text <- readLines('text.txt')
text <- text[nchar(text) > 0]

text <- gsub('.', ' .', text, fixed = TRUE)
text <- gsub(',', ' ,', text, fixed = TRUE)
text <- gsub('!', ' !', text, fixed = TRUE)
text <- gsub('(', '( ', text, fixed = TRUE)
text <- gsub(')', ' )', text, fixed = TRUE)

terms <- unlist(strsplit(text, ' '))

fit <- markovchainFit(data = terms)

plot(fit$estimate)

paste(markovchainSequence(n=50, markovchain=fit$estimate), collapse=' ')

#s <- createSequenceMatrix(terms, sanitize=FALSE)
#fit2 <- fitHigherOrder(s)