Duh! Not... > S.x <- as.xts(SMA(W.x), A) But.... > S.x <- as.xts(SMA(W.x, A) ) Excuse my incoherent babbling! Worik -- I am immensely proud of the young people who are driving the Occupy movement. Outrage at the dominant paradigm is the appropriate response when one understands what has happened. God Bless the Occupation