The previous one was giving errors in reading the data into R,this new version is corrected