Rによる関数の微分

equation<-"2*sin(2*x)+3*cos(4*x)"
xRange<-c(-2,2,0.01)
yRange<-c(-20,20)
cols<-c("blue","black")
ltys<-c(1,1)
##############################################
x<-seq(xRange[1],xRange[2],by=xRange[3])
y<-eval(parse(text=equation))
plot(x,y,ylim=yRange,type="l",col=cols[1],lty=ltys[1])
tmp<-deriv(eval(parse(text=paste("~",equation))),"x",func=T)
yD<-attr(tmp(x),"gradient")
lines(x,yD,col=cols[2],lty=ltys[2])
abline(h=0,v=0,col="red")
labels<-c(paste("y=",equation,sep=""),"dy/dx")
legend("topleft",legend=labels,col=cols,lty=ltys,cex=1.0)
#Reference - http://cse.naro.affrc.go.jp/takezawa/r-tips/r/38.html

2016年03月29日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第4週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月22日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第3週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移

2016年03月15日分 シカゴIMM筋ポジション・ロング・ショート・ネットポジション数の時系列推移

2016年03月第2週 対外及び対内証券売買契約等の状況・株式投資ファンド持分・中長期債・合計のネット額時系列推移