data(freqsNLsgmplus)
set.seed(123)
# sample a small reference db
x <- sample.profiles(N = 1e3,freqs=freqsNLsgmplus)
# estimate frequencies
fr0 <- est.freqs(x,labels = lapply(get.freqs(x),names))
# mean absolut difference between fr0 and freqsNLsgmplus is small
mean(abs(c(fr0,recursive = TRUE)-c(freqsNLsgmplus,recursive=TRUE)))
Run the code above in your browser using DataLab