R scripts to reproduce my writing project