メモ 保存量 library(rgl) library(sphere) n<-4 # 種の数 us<-sample(1:10,n) # それぞれの種の単位Pあたり個体数 us<-rep(1,n) # 捕食・被捕食関係の数Nrは種の数と同じ Nr<-n # 捕食・被捕食効率 ks<-runif(Nr) ks<-rep(1,n) # Inは被捕食種。１度の出会…