ということで,
ばかばかしいが,
こういう BUGS coding にならざるをえない.
mz[park, year, ant] <- (
z[park, year - 1, ant]
+ log.r[ant]
+ r.year[year]
- alpha[ant, 1] * expz[park, year - 1, 1]
- alpha[ant, 2] * expz[park, year - 1, 2]
- alpha[ant, 3] * expz[park, year - 1, 3]
- alpha[ant, 4] * expz[park, year - 1, 4]
- alpha[ant, 5] * expz[park, year - 1, 5]
- alpha[ant, 6] * expz[park, year - 1, 6]
- alpha[ant, 7] * expz[park, year - 1, 7]
)
種数を 7 に増やしている理由のひとつは,
5 種のときに何かおかしなことが生じていなかったかを点検するため.
しかしこれでも alpha[,]
の個数は 25 個から 49 個に増えてしまった.
計算に時間かかりそう.