A bunch of scripts for R