powered by
normalize.freqs(freqs)
data(freqsNLsgmplus) fr0 <- normalize.freqs(freqsNLsgmplus) stopifnot(all.equal(sapply(fr0,sum),setNames(rep(1,length(fr0)),names(fr0))))
Run the code above in your browser using DataLab