R script for analysing Smartphones Dataset