N <- 10 L <- 4 poly<-c() for(i in 1:L){poly[i]<-sample(2:4,1)} A<-array(0,c(2,L,N)) for(n in 1:N){ for(i in 1:2){ for(l in 1:L){ A[i,l,n]<-sample(1:poly[l],1) }}} #A[,,N] while(N < 100){ hap1<-hap2<-c() select<-sample(1:N,2) for(l in 1:L){…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。