inst/snippet/multinom-mle.R
In rpruim/fastR2: Foundations and Applications of Statistics Using R (2nd Edition)
loglik.multinom <- function(theta, x) {
probs <- c(theta, 1 - sum(theta))
if (any (probs < 0)) return(NA)
dmultinom(x, size = 100, prob = probs, log = TRUE)
}
maxLik(loglik.multinom, start = rep(0.25, 3), x = c(10, 20, 30, 40)) -> ml;
coef(ml)
rpruim/fastR2 documentation built on Nov. 11, 2023, 7:32 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
loglik.multinom <- function(theta, x) {
probs <- c(theta, 1 - sum(theta))
if (any (probs < 0)) return(NA)
dmultinom(x, size = 100, prob = probs, log = TRUE)
}
maxLik(loglik.multinom, start = rep(0.25, 3), x = c(10, 20, 30, 40)) -> ml;
coef(ml)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.