> (f_terms <- findFreqTerms (tdm, lowfreq = 56))
character(0)
> (f_terms <- findFreqTerms (tdm, lowfreq = 5))
 [1] "artifici"      "car"           "goal"          "human"        
 [5] "intellig"      "mani"          "research"      "task"         
 [9] "becom"         "control"       "expert"        "might"        
[13] "superintellig" "system"        "will"         
> ?plot
starting httpd help server ... done
> plot (tdm, term = f_terms)
> plot (tdm, term = f_terms, corThreshold = 0.05, weighting = T,
+ attrs = list (node = list (shape = "circle", fontsize = 20, fontcolor = "black", color = "gold")))
> library(plotrix)
Warning message:
package ‘plotrix’ was built under R version 3.5.3 
> plot (0, xlim = c (0,6), ylim = c (0,6), main = "This is a test for FARADARS",
+ xlab = "", ylab = "", type = "n")
> arctext ("Text Mining with R", center = c (3,3), col = "gold")
> arctext ("Text Mining", center = c (2,4), radius = 0.6, stretch = 1.9)
> 
