Generates clean data sets about wearable technology using R.