Write an R program to plot quKurt for the t-distribution as a function of ν. Use p1 = 0.025 and p2 = 0.25. Let ν take values from 1 to 10, incremented by 0.25. If you want to get fancy while labeling...

Write an R program to plot quKurt for the t-distribution as a function of ν. Use p1 = 0.025 and p2 = 0.25. Let ν take values from 1 to 10, incremented by 0.25. If you want to get fancy while labeling the axes, xlab=expression(nu) in the call to plot will put a “ν” on the x-axis.

 Run the following code, which defines a function to compute quKurt and bootstraps this function on the BMW returns. Note that p1 and p2 are given default values that are used in the bootstrap and that both model-free and model-based bootstrap samples are taken.