R语言 tsDyn包 IIPUs()函数中文帮助文档(中英文对照)

loveR

IIPUs(tsDyn)
IIPUs()所属R语言包：tsDyn

                                        US monthly industrial production from Hansen (1999)
                                         美国月度工业生产从汉森（1999）

                                         译者：生物统计家园网 机器人LoveR

描述----------Description----------

This data, used as example in Hansen (1999), contains the US monthly industrial production.
汉森（1999）为例，使用该数据，包含美国月度工业生产。


用法----------Usage----------


data(IIPUs)



格式----------Format----------

A monthly time series of class ts starting in January 1960 and ending in September 1997. Note that the series ends at 1997 and not 1998 as in the paper of Hansen, even if the data was taken from hi site and the graph is exactly the same.
每月一类TS时间序列在1960年1月和1997年9月结束。请注意，该系列在1997年结束，而不是1998与汉森的纸张，即使数据取自您好站点和图形是完全一样的。


源----------Source----------

Hansen (1999) Testing for linearity, Journal of Economic Surveys, Volume 13, Number 5, December 1999 , pp. 551-576(26) available at: http://www.ssc.wisc.edu/~bhansen/papers/cv.htm
汉森（1999年）的线性测试，中国经济统计调查，第13卷，第5号，1999年12月，页551-576（26）：http://www.ssc.wisc.edu/~bhansen /论文/ cv.htm


实例----------Examples----------


data(IIPUs)
end(IIPUs) #not same date as in the paper[不相同日期的文件]
plot(IIPUs)#exactly same graph as in the paper[如以纸张文件的图形完全相同]
sel<-selectSETAR(IIPUs, m=16, thDelay=5, criterion="SSR", trim=0.1, plot=FALSE)
sel #R function obtains a lower SSR with another thresold[R的功能获得了与其他初始价格较低的SSR]
plot(sel)
setar(IIPUs, m=16, thDelay=5, trim=0.1, th=sel$th)

sel2<-selectSETAR(IIPUs, m=16, thDelay=5, criterion="SSR", trim=0.1, plot=FALSE, nthresh=2)
sel2
#all results agree[所有的结果都同意]
set2<-setar(IIPUs, m=16, thDelay=5, th=sel2$th, trim=0.1)
#most of the results agree, except constant in the low regime which has opposed signs![大多数同意的结果，除了常数低的制度，反对的迹象！]
summary(set2)

#this is obviously a error in Hansen, see:[这显然是一个错误的Hansen，请参阅：]
XX<-embed(IIPUs, 17)
Y<-XX[,1]
X<-XX[,-1]
dummyDown<-ifelse(X[,6]<= -2.5, 1,0)
sum(dummyDown)
M<-cbind(1*dummyDown,X*dummyDown )
lm(Y~M-1)

setarTest(IIPUs, m=16, thDelay=5, nboot=1, check=TRUE)
#because of the discrepency. test1vs2 does not correspond, test 1vs3 conforms[因为discrepency。测试1vs3符合test1vs2不对应，]
setarTest(IIPUs, m=16, thDelay=5, nboot=1, check=TRUE, test="2vs3")
#test 2vs3 is also different of the version in the article (27)[测试，2vs3也是不同的版本中的文章（27）]

转载请注明:出自 生物统计家园网(http://www.biostatistic.net)。


注：
注1：为了方便大家学习，本文档为生物统计家园网机器人LoveR翻译而成，仅供个人R语言学习参考使用，生物统计家园保留版权。
注2：由于是机器人自动翻译，难免有不准确之处，使用时仔细对照中、英文内容进行反复理解，可以帮助R语言的学习。
注3：如遇到不准确之处，请在本贴的后面进行回帖，我们会逐渐进行修订。