R adf测试和acf多列绘图

我正在尝试将adf.test应用于数据帧的所有列。某些列具有NA值。我想将输出存储在vector/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

H你可以试试

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

akrun，我在用tseries做adf测试
lapply(H, function(x) adf.test(x[!is.na(x)], 
           alternative='stationary', k=0))