Sys.setlocale (locale = "Persian", category = "LC_ALL")
F_txt <- readLines ("mytext.txt", encoding = "UTF-8")
library(tm)
txt <- Corpus (VectorSource (F_text))
tdm_F <- TermDocumentMatrix (txt)
View (as.matrix(tdm_F))
