Nothing
if(getRversion() >= "2.15.0") utils::globalVariables("common_words_new")
xmlword_atomizations = function (m)
{
tempb = unlist(lapply(m@Abstract, function(x) {tempa = strsplit(x, ".", fixed = T); return(tempa)}))
tempc = unlist(strsplit(tempb, ",", fixed = T))
tempd = unlist(strsplit(tempc, ":", fixed = T))
tempe = unlist(strsplit(tempd, ";", fixed = T))
tempe1 = unlist(strsplit(tempe, "'", fixed = T))
tempf = unlist(strsplit(tempe1, " ", fixed = T))
tempg = tolower(tempf)
tempi = as.data.frame(table(tempg))
tempj = unlist(lapply(common_words_new, function(x) {
tempoo = which(as.character(tempi[, 1]) == x)
if (length(tempoo) != 0)
return(tempoo)
}))
tempk = tempi[-tempj, ]
tempk2 = tempk[order(as.numeric(tempk$Freq), decreasing = T),
]
colnames(tempk2) = c("words", "Freq")
write.table(tempk2, file = "word_table.txt", sep = "\t",
row.names = F)
return(tempk2)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.