Sqoop при экспорте в teradata выдает ошибку, когда содержимое имеет разделитель запятой

Попробуйте что-то вроде этого:

x<-rnorm(100)
y<-rnorm(100)
rollapply(data.frame(x,y), 21 ,function(x) cor(x[,1],x[,2]), by.column=FALSE)

Другими словами, я думаю, вам может понадобиться аргумент by.column=FALSE. Также работает с объектом zoo

rollapply(zoo(cbind(x,y),Sys.Date()-1:100), 21 ,function(x) cor(x[,1],x[,2]), by.column=FALSE)

Редактировать, чтобы задать вопрос из комментария о добавлении другого столбца.

Вы можете указать столбцы, которые вы хотите использовать в cor Функция

z<-rnorm(100)
rollapply(zoo(cbind(x,y,z),Sys.Date()-1:100), 21 ,function(x) cor(x[,1],x[,3]), by.column=FALSE)
rollapply(zoo(cbind(x,y,z),Sys.Date()-1:100), 21 ,function(x) cor(x[,2],x[,3]), by.column=FALSE)

by.column=FALSE указывает, что функция не должна применяться к каждому столбцу отдельно. Если by.column=TRUE, то функция будет применяться к каждому столбцу отдельно, и это поведение по умолчанию.