r - Rのzeroinflオブジェクトから予測されるゼロはありませんか?

Question

ゼロ膨張負の二項モデルを作成し、サンプリングまたは構造ゼロに分割されたゼロの数を調査したいと考えています。R でこれを実装するにはどうすればよいですか。zeroinfl ページのサンプル コードは明確ではありません。

data("bioChemists", package = "pscl")

fm_zinb2 <- zeroinfl(art ~ . | ., data = bioChemists, dist = "negbin")

table(round(predict(fm_zinb2, type="zero"))) 
>   0   1 
> 891  24 

table(round(bioChemists$art))
    >   0   1   2   3   4   5   6   7   8   9  10  11  12  16  19 
    > 275 246 178  84  67  27  17  12   1   2   1   1   2   1   1 

これは何を言っているのですか？

データに対して同じことを行うと、1 の下にリストされているサンプル サイズだけが読み取られます。ありがとう