Тест adf и график acf на нескольких столбцах

Question

Я пытаюсь применить adf.test ко всем столбцам данных. Некоторые столбцы имеют значения NA. Я хотел бы сохранить выходные данные в векторе /list/dataframe.

H<-data.frame(replicate(10,sample(0:20,10,rep=TRUE))) 
H[c(2,3,7,9),9]<-NA
H[c(1,4,8),2]<-NA
H[c(1,2,3,4,8),4]<-NA

Я получаю ошибки, как показано ниже

oi<-adf.test(H,alternative="stationary")
Error in adf.test(H, alternative = "stationary") : 
  x is not a vector or univariate time series

lapply(na.omit(H),adf.test)
Error in res.sum$coefficients[2, 1] : subscript out of bounds

Пакет: цери

Помощь приветствуется

Answer 1

Вы могли бы попробовать

lapply(H, function(x) adf.test(x[!is.na(x)], 
           alternative='stationary', k=0))