Scripts I generate for R for my thesis