摘要： library(pdftools) pdf_subset("D:/R Document/xinghua3.pdf", pages = 79:85, output = "D:/R Document/xinghua3_1.pdf") 阅读全文

摘要： szcode=read.table("clipboard",header=T)#上证代码 sccode=read.table("clipboard",header=T)#深证代码 zxcode=read.table("clipboard",header=T)#中小代码 code=paste0(szc 阅读全文

摘要： dplyr中有五个核心函数：filter(按值筛选观测)、arrange(对行进行重新排序)、select(按照名称选取变量)、mutate(使用现有变量的函数创建新变量)、summarize(将多个值总结为一个摘要统计量),它们的第一个参数是数据框，第二个参数（使用变量名称）描述在数据框上进行的操 阅读全文

摘要： library(stringr) szcode=read.table("clipboard",header=T)#上证代码 sccode=read.table("clipboard",header=T)#深证代码 zxcode=read.table("clipboard",header=T)#中小代 阅读全文

摘要： library(tidyquant)library(tidyverse)library(timetk)dd=tk_tbl(d) regr_fun <- function(data) { coef(lm(data[,1] ~ data[,2], data = dd)) } m=dd %>% tq_mu 阅读全文

摘要： getsheets <- function(symbol,type,file){ pre="http://money.finance.sina.com.cn/corp/go.php/vDOWN_"; mid="/displaytype/4/stockid/"; end="/ctrl/all.phtm 阅读全文

摘要： 首先从上交所和深交所整理股票代码和上市时间，整理为下图： 上交所：产品-股票-股票列表-下载(http://www.sse.com.cn/assortment/stock/list/share/) 深交所：市场数据-股票-股票列表-下载(http://www.szse.cn/market/stock 阅读全文

摘要： ## Econometric Analysis ## install.packages("wooldridge") library(wooldridge); library(glm2); library(mlogit);library(MASS) # 2. Basic method ##### ## 阅读全文

摘要： #构建VAR模型 library(sandwich) library(strucchange) library(vars) data.new<-data.frame(S1,S2) VARselect(data.new,lag.max=20,type="trend") #选择最优的滞后阶数 var<- 阅读全文

摘要： （一）协整检验 library(urca) r6=lm(S1~S2) re=resid(r6) h=ur.df(re,type="trend",selectlags="AIC") summary(h) （二）建立误差修正模型（ECM） dd1=diff(data1) dd2=diff(data2) 阅读全文