# NOT RUN {
# }
# NOT RUN {
## Simulate some allele frequencies:
freqs <- replicate(10, { g = rgamma(n=10,scale=4,shape=3); g/sum(g)},
simplify=FALSE)
## Compute the expected number for a DB with 10000 profiles:
dbExpect(freqs,theta=0,n=10000)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab