The variables are x-SP500 market monthly log return and y = monthly return of Coca Cola for 48 months beginning in January 2010. For input into R, the data vectors for monthly market return and monthl