Analysis Scripts in R