Доступ к различным столбцам в объекте xts в R

Как я могу получить доступ к отдельным столбцам в R?

Мой объект xts:

> glimpse(`prod`)
Observations: 2,341
Variables: 3
$ DL_prod     (dbl) 301.50, 303.75, 308.50, 311.00, 319.00, 318.25, 320.00, 320.75, 318.00, 319.00, 315.00, 313.50, 313.00,...
$ MWF_prod     (dbl) 301.500, 309.000, 311.250, 319.750, 354.563, 322.000, 324.000, 321.500, 320.065, 730.000, 316.160, 315....
$ MA_prod      (dbl) 301.500, 302.688, 304.946, 308.750, 316.500, 315.500, 318.500, 315.250, 313.000, 215.500, 311.500, 310....

> str(`prod`)
An ‘xts’ object on 2007-01-01/2016-01-08 containing:
  Data: num [1:2341, 1:6] 302 304 308 311 319 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr [1:3] "DL_prod" "MWF_prod" "MA_prod"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:  
List of 2
 $ src    : chr "yahoo"
 $ updated: POSIXct[1:1], format: "2016-01-11 17:26:06"

Я хочу рассчитать простые скользящие средние для столбца DL_prod.

Но я не могу выбрать этот столбец, например:

prod$DL_prod

Я хочу рассчитать SMA примерно так:

SMA(prod$DL_prod)

Это также поможет мне использовать пакет quantmod для анализа timeseries. Например, я хотел бы использовать метод chartSeries(prod) для построения столбца DL_prod. Везде искал, но не нашел никакой информации по этому поводу. Это возможно?