4/25のセミナーの続き。 記事が前後したがスクリプトはこちらを使う。 3人の取引を考える。 N<- 100 M<- 100 team<- 3 cycles<- 1000*5 ylim<- c(0,N*M) Res<- lapply(mapply(rep,0,1:3),unique) for(i in 1:3){ Res[[i]]<- trademodel(N,M,team,cycles,i) }…