UsefulRcodeForDataAnalysis