我正在尝试在每个循环中添加ad_trace广告,但我只得到一个图表,其中彼此相乘.
mean <- -0.0007200342 sd <- 0.3403711 N=10 T=1 Delta = T/N W = c(0,cumsum( sqrt(Delta) * rnorm(N, mean=mean, sd=sd))) t <- seq(0,T, length=N+1) p<-plot_ly(y=W, x=t) for(i in 1:5){ W <- c(0,cumsum( sqrt(Delta) * rnorm(N, mean=mean, sd=sd))) p<-add_trace(p, y=W) } print(p)
该plot_ly
和add_trace
功能有一个evaluation = FALSE
,你可以改变选择TRUE
,这应该可以解决问题的范围.
使用evaluate = TRUE
在add_trace
.