量化论文数据summary的全自动代码数据丢入文件夹即可

最新推荐文章于 2021-11-03 21:16:21 发布

原创最新推荐文章于 2021-11-03 21:16:21 发布 · 311 阅读

0 ·

CC 4.0 BY-SA版权

博客介绍了用于量化论文数据summary的全自动代码，只需将数据丢入文件夹即可使用，体现了代码在处理论文数据方面的便捷性和高效性，与信息技术领域的数据处理相关。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

#clear
	rm(list=ls())
#import package
	library(readxl)
	library(fBasics)
	library(tseries)
#import data
	dir<-dir("C:\\Users\\User\\Desktop\\data")
	L=length(dir)
#allocate memory
	return=matrix(0,nrow=L,ncol=7)
	colnames(return)=c("name","n","mean","sd","skewness","kurtosis","JBstatistic")
	for(i in 1:L)
	{
		d=read_excel(paste("C:\\Users\\User\\Desktop\\data\\",dir[i],sep=""))
		price_close_old=d[["close"]]
#missing value
		price_close=as.numeric(na.omit(price_close_old))
#caculate return
		return_close=diff(log(price_close))
		tail(return_close,-1)
#caculate parameter
		return[i,1]=dir[i]
		return[i,2]=length(return_close)
		return[i,3]=mean(return_close)
		return[i,4]=sd(return_close)
		return[i,5]=skewness(return_close) 
		return[i,6]=kurtosis(return_close)
		return[i,7]=jarque.bera.test(return_close)$p.value
	}
#write
	file=("C:\\Users\\User\\Desktop\\summary.csv")
	res <- write.csv(return, file)