Description Details Value Note Author(s) References See Also Examples
The package helps generate Chinese Tang poems automatically.
We created our poems dataset from Three Hundred Tang Poems:
#import the file "Three Hundred Tang Poems"
fileName <-"Three Hundred Tang Poems.txt"
SC <- readChar(fileName, file.info(fileName)$size)
#the process of text segmentation
library(jiebaR)
cc = worker()
analysis <- as.data.frame(table(cc[SC]))
names(analysis) <- c("word","freq")
analysis$word <- as.character(analysis$word)
#set the example poems sp5, sp7
tagger <- worker("tag")
sp5_2 <- tagger <= sp5
sp7_2 <- tagger <= sp7
example <- subset(analysis, freq >1 & nchar(word) <3 & freq < 300)
#extract the examples' parts of speech
cixing5 <- attributes(sp5_2)$names
cixing7 <- attributes(sp7_2)$names
#get the dataset
example_2 <- tagger <= example$word
Now, with our dataset, this package can automatically generate Chinese Tang poems of our specified length(5 or 7).
no return
The package helps people experience Chinese ancient poetry culture with R.
Yanni Li, Yongyuan Liang
nothing
nothing
1 |
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.