Add some R scripts and their respective figures