[问答] 有个问题请教一下大家！谢谢 [推广有奖]

0关注
0粉丝

本科生

33%

还不是VIP/贵宾

威望: 0 级
论坛币: 3088 个
通用积分: 83.1644
学术水平: 0 点
热心指数: 0 点
信用等级: 0 点
经验: 3649 点
帖子: 4
精华: 0
在线时间: 176 小时
注册时间: 2015-7-28
最后登录: 2025-3-26

楼主

胶子动力学 发表于 2016-5-19 16:46:15 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

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的单位根检验