# 新建文本文档.rar

• 我是大宝呀
了解作者
• R language
开发工具
• 1KB
文件大小
• rar
文件格式
• 0
收藏次数
• 1 积分
下载积分
• 9
下载次数
• 2019-12-10 15:33
上传日期

• 新建文本文档.txt
2.2KB

packageurl <- "https://cran.rproject.org/bin/windows/contrib/3.1/ccgarch_0.2.3.zip" install.packages(packageurl, repos=NULL, type="source") plot(xt, plot.type = "single",col=c("red","black"),lty=1:2); leg.names<-c("上证指数收益","日经指数收益"); legend(locator(1),leg.names,lty=c(1,2), col=c("red","black")); y=xt[,1]; z=xt[,2]; data_outline <- function(x){ n <- length(x) m <- mean(x) v <- var(x) s <- sd(x) me <- median(x) cv <- 100*s/m css <- sum((x-m)^2) uss <- sum(x^2) R <- max(x)-min(x) R1 <- quantile(x,3/4)-quantile(x,1/4) sm <- s/sqrt(n) g1 <- n/((n-1)*(n-2))*sum((x-m)^3)/s^3 g2 <- ((n*(n+1))/((n-1)*(n-2)*(n-3))*sum((x-m)^4)/s^4- (3*(n-1)^2)/((n-2)*(n-3))) data.frame(N=n, Mean=m, Var=v, std_dev=s, Median=me, std_mean=sm, CV=cv, CSS=css, USS=uss, R=R, R1=R1, Skewness=g1, Kurtosis=g2, row.names=1) } data_outline(y); data_outline(z); jarque.bera.test(y); jarque.bera.test(z); c(ucv(y,length(y)),bcv(y,length(y))); plot(density(y,width=0.006),lty=3,ylim=c(0,80)); hist(y,prob=T,col=0,add=T); a<-seq(-0.1,0.1,0.001); lines(a,dnorm(a,mean(y),sqrt(var(y))),lty=1); leg.names<-c("Kernel Density","Normal Density"); legend(locator(1),leg.names,lty=c(3,1)); c(ucv(z,length(z)),bcv(z,length(z))); plot(density(z,width=0.005),lty=3,ylim=c(0,80)); hist(z,prob=T,col=0,add=T); lines(a,dnorm(a,mean(z),sqrt(var(z))),lty=1); leg.names<-c("Kernel Density","Normal Density"); legend(locator(1),leg.names,lty=c(3,1)); adf.test(y, alternative = c("stationary", "explosive"),k = trunc((length(y)-1)^(1/3))); adf.test(z, alternative = c("stationary", "explosive"),k = trunc((length(z)-1)^(1/3))); ArchTest(y,lags=3,demean=T); #最后一项是为了去掉均值。 ArchTest(z,lags=3,demean=T); garch.y=garch(y,order=c(1,1)); summary(garch.y); garch.z=garch(z,order=c(1,1)); summary(garch.z); inia=c(3.266e-07 , 1.436e-07); iniA=diag(c( 5.791e-02 ,5.125e-02)); iniB=diag(c(9.403e-01, 9.469e-01)); nobs=535; dcc.para<-c(0.01,0.97); inicor=cor(y,z); uncR=matrix(c(1,inicor,inicor,1),2,2); dcc.results <- dcc.estimation(inia, iniA, iniB, dcc.para, dvar=xt, model="diagonal"); out<-dcc.results\$out; DCC<-dcc.results\$DCC[,2]; ts.plot(DCC);

相关推荐
• EmpiricalResearchofVolatilitySpillover.rar
论文首先介绍了行为金融学对完全信息假设的摒弃。接着利用启发式判断准 则推断了波动传递的起源。同时跨市交易者无意中造成了波动的传递...阐述了羊群行为的产生机理和市场表现，分析了羊群行为对波动溢出的放大效应。
• Realized-GAS.zip
Realized-Wizard GAS的代码
• GaussDB_100_1.0.1-DATABASE-REDHAT-64bit.tar.gz
guassdb100在redhat上安装包，单机部署的包，安装步骤请看我的文中介绍，经过大量实验搭建总结出来的文档
• 卷积神经网络
这是卷积神经网络的一个实际用例，已经调试好了，能够在matlab上成功运行，适合从事卷积神经网络（CNN）研究的人员学习使用。
• SIM800C_MQTT.rar
使用SIM800C模块，使用MQTT协议，连接中国移动onenet平台，能实现数据的订阅、发布、存储等