[SOLVED] MATH 4753 Assignment 4

1. MS 7.118 pg 364
2. MS 7.120 pg 365
3. MS 7.128 pg 3674. MS 8.24 pg 390
5. MS 8.28 pg 392
6. MS 8.44 pg 4017. MS 8.84 pg 425 This refers to 8.39 NOT 8.33!
8. MS 8.99 pg 4389. MS 8.104 pg 439
10. Please be careful to complete all the parts of this problem. The question is not simply about
reproducing my graph but to adjust the code so that when any sample is placed into the function
it will create a correct plot with cis automatically made. set.seed(35); sam<-round(rnorm(30,mean=20,sd=3),3). Copy the data to your answers.
Adjust the code I have placed on CANVAS myboot() to output the following on ONE
graphical device! remember you will be using a resampling method, the above vector sam
will be resampled (it does not change).Since the seed has been set all in the class will have
exactly the same data. Recreate the plot shown in figure 1 (All cis are to be MADE in the
function so that this function will work for any sample). The blue interval is a theoretical
interval using only the sample information. The red interval is the bootstrap interval and the
black number is the sample point estimate.Histogram of Bootstrap sample statistics
alpha=0.05 iter=10000
Density
19 20 21 22 23
0.0
0.1
0.2
0.3
0.4
0.5
0.6
0.7
(20.07 22.27)
21.16
(20.04 22.28)
Figure 1: Bootstrapping the sampleIt must also return the following
$fun
[1] mean
$x
[1] 23.195 20.399 19.898 19.865 30.014 18.821 21.232 18.313
23.574 21.047 21.535 21.336 17.695 18.497 14.274 14.664 22.593
18.963 25.515 25.019 22.053 22.871 23.006[24] 23.829 19.038 21.735 21.461 21.659 21.703 21.049
$t
[1] 2.04523
$ci
2.5% 97.5%
20.06700 22.26845
$cit
[1] 20.04155 22.28199