") r> plot(exrates$date[-1], ret, type = "l", main = "demeaned yes, you can be black and wear sperrys ") r> plot(exrates$date[-1], ret, type = "l", main = "demeaned ") r> plot(exrates$date[-1], ret, type = "l", main = "demeaned ") r> plot(exrates$date[-1], ret, type = "l", main = "demeaned