incomplete corr.r

need to change data list to dataframe