# Compute a simple moving average (SMA) across 200 days
sma <- SMA(x = Cl(LQD), n = 200)

# Add the SMA line to your plot of LQD closing price
plot(Cl(LQD))
lines(sma, col = "red")