Adde R analysis and csv