From 1965 to 1974, in U.S. there were M= 17,857,857 male livebirths and F= 16,974,194 female livebirths. We model the number of male livebirth as a binomial distribution withparameterssize = M+F and prob = p. The following code computes the maximum likelihood estimator for p. male = 17857857 female = 16974194 ll <-function(p){dbinom(male, size = male+female, prob=p, log=TRUE) } ps <-seq(0.01, 0.99, by = 0.001) ll.ps <-ll(ps) plot(ps, ll.ps, type='l') phat <- ps[which.max(ll.ps)] abline(v = phat, col='blue') QUESTION: For this problem, can you give a theoretical formula for the maximum likelihood estimator,ˆp, usingMandF? (No need to compute the numerical value.)
ANY help would be greatly appreciated.
From 1965 to 1974, in U.S. there were M= 17,857,857 male livebirths and F= 16,974,194 female livebirths. We model the number of male livebirth as a binomial distribution withparameterssize = M+F and prob = p. The following code computes the maximum likelihood estimator for p.
male = 17857857
female = 16974194
ll <-function(p){dbinom(male, size = male+female, prob=p, log=TRUE) }
ps <-seq(0.01, 0.99, by = 0.001)
ll.ps <-ll(ps)
plot(ps, ll.ps, type='l')
phat <- ps[which.max(ll.ps)]
abline(v = phat, col='blue')
QUESTION: For this problem, can you give a theoretical formula for the maximum likelihood estimator,ˆp, usingMandF? (No need to compute the numerical value.)


Trending now
This is a popular solution!
Step by step
Solved in 2 steps









