install.packages('topicmodels')
library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\LSI-Matlab\\trunk\\Eclipse3.0")
inputFile <- "D:\\Implementations\\Experiments\\Eclipse3.0\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_Eclipse.csv")



install.packages('topicmodels')
library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\ArgoUML")
inputFile <- "D:\\Implementations\\Experiments\\ArgoUML\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_ArgoUML.csv")





library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\iBatis")
inputFile <- "D:\\Implementations\\Experiments\\iBatis\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_iBatis.csv")





library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\Mylyn")
inputFile <- "D:\\Implementations\\Experiments\\Mylyn\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_Mylyn.csv")





library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\ArgoUML0.22")
inputFile <- "D:\\Implementations\\Experiments\\ArgoUML0.22\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_ArgoUML0.22.csv")





library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\jEdit4.3")
inputFile <- "D:\\Implementations\\Experiments\\jEdit4.3\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_jEdit4.3.csv")




library(tm)

#load text mining library
library(topicmodels)
setwd("D:\\Implementations\\Baseline implementations\\EclipseWorkspace\\VSM-Matlab\\trunk\\JabRef2.6")
inputFile <- "D:\\Implementations\\Experiments\\JabRef2.6\\Source\\SourceAndQueriesNonP.txt"
con  <- file(inputFile, open = "r")

files <- list()

while (length(oneLine <- readLines(con, n = 1, warn = FALSE)) > 0) {
    files <- c(files,oneLine)
  } 

close(con)
docs <- Corpus(VectorSource(files))
 
#inspect a particular document in corpus
writeLines(as.character(docs[[3]]))

toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern," \\1", x))})
docs <- tm_map(docs, toSpace, "([A-Z]{1,1})")

#start preprocessing
#remove potentially problematic symbols
toSpace <- content_transformer(function(x, pattern) { return (gsub(pattern,' ' , x))})
#docs <- tm_map(docs, toSpace, "[^[:alnum:] ]")
docs <- tm_map(docs, toSpace, "'")
docs <- tm_map(docs, toSpace, ",")
docs <- tm_map(docs, toSpace, "\\.")
docs <- tm_map(docs, toSpace, "\"")
docs <- tm_map(docs, toSpace, "_")
docs <- tm_map(docs, toSpace, "@")
docs <- tm_map(docs, toSpace, "-")
writeLines(as.character(docs[[3]]))



#Transform to lower case
docs <-tm_map(docs,content_transformer(tolower))
writeLines(as.character(docs[[3]]))

#remove punctuation
docs <- tm_map(docs, removePunctuation)
#Strip digits
#docs <- tm_map(docs, removeNumbers)
#remove stopwords
docs <- tm_map(docs, removeWords, stopwords("english"))
#remove whitespace
docs <- tm_map(docs, stripWhitespace)
#Good practice to check every now and then
writeLines(as.character(docs[[3]]))


#define and eliminate all custom stopwords
myStopwords <- c("a", "about", "above", "across", "after", "afterwards", "again", "against", "all", "almost", "alone", "along", "already", "also", "although", "always", "am", "among", "amongst", "amoungst", "amount", "an", "and", "another", "any", "anyhow", "anyone", "anything", "anyway", "anywhere", "are", "around", "as", "at", "back", "be", "became", "because", "become", "becomes", "becoming", "been", "before", "beforehand", "behind", "being", "below", "beside", "besides", "between", "beyond", "bill", "both", "bottom", "but", "by", "call", "can", "cannot", "cant", "co", "computer", "con", "could", "couldnt", "cry", "de", "describe", "detail", "do", "done", "down", "due", "during", "each", "eg", "eight", "either", "eleven", "else", "elsewhere", "empty", "enough", "etc", "even", "ever", "every", "everyone", "everything", "everywhere", "except", "few", "fifteen", "fify", "fill", "find", "fire", "first", "five", "for", "former", "formerly", "forty", "found", "four", "from", "front", "full", "further", "get", "give", "go", "had", "has", "hasnt", "have", "he", "hence", "her", "here", "hereafter", "hereby", "herein", "hereupon", "hers", "herself", "him", "himself", "his", "how", "however", "hundred", "i", "ie", "if", "in", "inc", "indeed", "interest", "into", "is", "it", "its", "itself", "keep", "last", "latter", "latterly", "least", "less", "ltd", "made", "many", "may", "me", "meanwhile", "might", "mill", "mine", "more", "moreover", "most", "mostly", "move", "much", "must", "my", "myself", "name", "namely", "neither", "never", "nevertheless", "next", "nine", "no", "nobody", "none", "noone", "nor", "not", "nothing", "now", "nowhere", "of", "off", "often", "on", "once", "one", "only", "onto", "or", "other", "others", "otherwise", "our", "ours", "ourselves", "out", "over", "own", "part", "per", "perhaps", "please", "put", "rather", "re", "same", "see", "seem", "seemed", "seeming", "seems", "serious", "several", "shall", "she", "should", "show", "side", "since", "sincere", "six", "sixty", "so", "some", "somehow", "someone", "something", "sometime", "sometimes", "somewhere", "still", "such", "take", "ten", "than", "that", "the", "their", "them", "themselves", "then", "thence", "there", "thereafter", "thereby", "therefore", "therein", "thereupon", "these", "they", "thick", "thin", "third", "this", "those", "though", "three", "through", "throughout", "thru", "thus", "to", "together", "too", "top", "toward", "towards", "twelve", "twenty", "two", "un", "under", "until", "up", "upon", "us", "very", "via", "was", "we", "well", "were", "what", "whatever", "when", "whence", "whenever", "where", "whereafter", "whereas", "whereby", "wherein", "whereupon", "wherever", "whether", "which", "while", "whither", "who", "whoever", "whole", "whom", "whose", "why", "will", "with", "within", "without", "would", "yet", "you", "your", "yours", "yourself", "yourselves")
docs <- tm_map(docs, removeWords, myStopwords)

#Stem document
docs <- tm_map(docs,stemDocument)
writeLines(as.character(docs[[3]]))
dtm <- DocumentTermMatrix(docs)

write.csv(as.matrix(dtm), file="DTM_Eclipse3.0.csv")





