conn <- lbsConnect("Bibliometrics.db");
## ...
listdoc <- lbsFindDuplicateTitles(conn,
ignoreTitles.like=c("%In this issue%", "%Editorial", "%Introduction",
"Letter to %", "%Preface"),
aggressiveness=2);
lbsDeleteDocuments(conn, listdoc);
dbCommit(conn);
## ...
Run the code above in your browser using DataLab