Initial commit, r scripts and data