R/fun.test.R

In rogerjms/tmcmbc: semi text clustering

#' A search Function
#'
#' This function allows you to match the seedwords to specific article.
#' @param x Any string.
#' @keywords removeNumbers
#' @export
#' @examples
#' fun.test()


fun.test <- function(seedwords,originalTextFile = originalTextFile,listname=NULL){
for(i in 1:length(originalTextFile)){
if(grepl(seedwords, originalTextFile[i])){
listname <- c(listname,i)
}
}
return(listname)
}