Create extractSub.R

script to extract particular subset of columns of a given data frame. This script is called by the run_analysis script