# NOT RUN {
# Example 1: Term extraction from titles
data(scientometrics)
# vector of compound words
keep.terms <- c("co-citation analysis","bibliographic coupling")
# term extraction
scientometrics <- termExtraction(scientometrics, Field = "TI",
remove.numbers=TRUE, remove.terms=NULL, keep.terms=keep.terms, verbose=TRUE)
# terms extracted from the first 10 titles
scientometrics$TI_TM[1:10]
#Example 2: Term extraction from abstracts
data(scientometrics)
# vector of terms to remove
remove.terms=c("analysis","bibliographic")
# term extraction
scientometrics <- termExtraction(scientometrics, Field = "AB", stemming=TRUE,language="english",
remove.numbers=TRUE, remove.terms=remove.terms, keep.terms=NULL, verbose=TRUE)
# terms extracted from the first abstract
scientometrics$AB_TM[1]
# Example 3: Term extraction from keywords with synonyms
data(scientometrics)
# vector of synonyms
synonyms <- c("citation; citation analysis", "h-index; index; impact factor")
# term extraction
scientometrics <- termExtraction(scientometrics, Field = "ID",
synonyms=synonyms, verbose=TRUE)
# }
Run the code above in your browser using DataLab