> tapply(d$DBH.cm, d$Sp, function(x) sum(x * x * pi * 0.25)) Am Ap Cac Mk Mo Qc Tj 3426.14 1220.24 942.21 601.10 837.45 38863.24 3959.88ほかならぬミズナラのことだ. こいつだけは「同樹種の大木」に parasitoid を「吸いとられる」 ような推定結果になっている.
exp(-0.01 * density)
から
exp(-0.02 * density)
と変更してみる.