Вторая строка приведенного выше кода будет работать, только если наборы данных находятся в форме data.table или фрейма данных. Если наборы данных имеют формат xts / zoo, то нужно сделать небольшое улучшение, используя функцию do.call ().
## First make a list of all your data sets as suggested above
list_xts <- lapply(ls(pattern="^test"), function(x) get(x))
## then use do call and rbind()
xts_results<-do.call(rbind,list_xts)