Use R programming
2. Normal distribution
For values of a ∈(14,22) plot the true value of P(X ≥a) and the Markovs bound on the same plot (x-axis
will be (14,22)) when X ∼N(μ = 18,σ = 1.5).
For values of k ∈(0,5) plot the true value of P(|X −μX|≥k) and the Chebychev’s bound, on the same plot
(x-axis will be (0,5)) when X ∼N(μ = 18,σ = 1.5).
I have already made the function for the two bounds which were
>markov<-function(a,mu)
{
op<-mu/a
op
}
>chebychev<-function(k,sig2)
{
op<-sig2/(k^{2})
op
}