adf_func <- function(x){
  t <- diff(x,lag=4,diff=1)
  my_adf_none<- ur.df(t,type="trend",lags=4,selectlags="BIC")
  print(summary(my_adf_none))
  my_adf_trend<- ur.df(t,type="drift",lags=4,selectlags="BIC")
  print(summary(my_adf_trend))
  my_adf_drift<- ur.df(t,type="none",lags=4,selectlags="BIC")
  print(summary(my_adf_drift))

}
sink("finland_adf.txt",append=F)
lapply(finland,adf_func)
sink();shell.exec("finland_adf.txt")
这是数据finland的单位根检验，怎么把它改成数据denmark的单位根检验