my first r script about correlation matrix