R/setN.multinomial.R

In alexsanchezpla/goProfiles: goProfiles: an R package for the statistical analysis of functional profiles

`setN.multinomial` <-
function(distri, n)
{
# changes the n parameter of a multinomial distribution
        if (n < 0) stop("Negative size (n) binomial parameter")
        distri$n <- n
        return(distri)
}