franknan 仔细看,LZ的fun1应该是有错的,for 循环里应该是VaR[i-1]吧? x=c(189.9390,206.5707,186.4814,210.9900,195.1849,200.6311,182.0851,200.5738,202.8953 ,210.8375); alpha=0.05; fun1=function(x,alpha){ n=length(x); VaR=rep(0,times=n-1); for(i in 2:n){ VaR=mean(x[1:i-1])-quantile(x[1:i-1],alpha); } VaR } fun1(x,alpha)
dengyishuo 回复 第17楼 的 dolphin232210: <br /> #装R<br /> #装PerformanceAnalytics包<br /> #载入包<br /> library(PerformanceAnalytics)<br /> #用法参考VaR函数的说明<br /> ?VaR<br /> </p>