Create a new code chunk and use the pairs function to create scatter plots for

numeric variables only in the baseball data set:

pairs$($Filter$($is$.$numeric,baseball$))$

Which variables appear most strongly related to Wins? Are the relationships positive

or negative? Describe these relationships below the code chunk.