# NOT RUN {
obj1 <- makeDbdpars(alpha=2,beta=3,ntop=20,zeta=TRUE,ndata=500)
obj2 <- makeDbdpars(alpha=0.2,beta=0.25,ntop=20,zeta=FALSE,ndata=30*(1:10))
sdat1 <- simulate(obj1,nsim=100)
sdat2 <- simulate(obj2,nsim=100)
sdat3 <- simulate(obj2,nsim=10)
sdat4 <- simulate(obj2,nsim=100,ndata=100*(2:6)) # The ndata component of
# obj2 is ignored.
# }
Run the code above in your browser using DataLab