A undergraduate problem

[anjalimishra9893]

Compute P(45 < X < 55) for X Binomial(100,0.5)

sum(dbinom(46:54, 100, 0.5))

Using "log = TRUE" for an extended range :

n <- 2000
k <
plot (k, dbinom(k, n, pi/10, log = TRUE), type = "l", ylab = "log density",
UE
lines(k, log(dbinom(k, n, pi/10)), col

[williaml]

You should explain your problem, rather than just dumping code here. Also add the error messages. You can't expect people to work out your problem.

@anjalimishra9893

x[i]<-

But anyway, change this:

x[i]<- # from this

x[i] # to this (remove the arrow)

and it works. Though I assume that this is not what you want, though you haven't explained it.

[anjalimishra9893]

that line and the above two lines are missing codes,
in this problem we have a normal distribution and we need to fill lower and upper bound with qnorm() function(which I am confused about)
and the prove in x[i] mean is between upper and lower bound

[StatSteph]

Please take a look at the homework policy: FAQ: Homework Policy Update your question or delete it if you can't meet the criteria to post a homework question.

[Palantir_Han]

Delete <- in X[i] line