[R] generate random sample from ZINB

[Haiyan Chen]

I want to generate 1,000 random samples of sample size=1,000 from ZINB.
I know there is a rnegbin() to generate random samples from NB, and I know
I can use
the following process:

do i=1 to 1000

n=0

do i=1 to 1000

 if runi(1)>0.1 then x(i) = 0; else
x(i)=rnegbin();

n=n+1;

if n>1000 then stop;

end;

output;
end;

Anybody can help me out with the R code?
Thanks very much ahead of time.
Heyen