Создайте объект XTS с отметками даты, но без столбцов изначально

x - объект xts, заполненный данными; Давайте для примера возьмем данные OHLC. Я хочу создать еще один объект xts с тем же размером и отметками даты, но с другими столбцами (например, с некоторыми индикаторами).

Мой нынешний подход кажется грубым:

a = x$close
for(nn in 1:10){
    z = analysis(x,nn) #Returns an enhanced version of x
    z2 = z$result   #Get out just the data I want, so I can rename the column
    colnames(z2) = paste("result",nn,sep="_")
    a = cbind(a,z2) #Merge in each result
    }
a$close = NULL  #Tidyup

То есть. Я беру только один столбец из x, любой старый столбец, просто чтобы получить структуру, а затем выбрасываю его в конце. (Это работает, так что я счастлив, но мне кажется, что должен быть способ получше.)

Я пробовал несколько идей вроде этого:

a = xts(index(x))
a = xts(orderby=index(x))
a = as.xts(index(x))
a = as.xts(orderby=index(x))

Но они дают мне пустые объекты XTS. Например. когда я затем пытаюсь это сделать, я получаю сообщение об ошибке:

a$dummy = 1