script.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
# set seed for reproducibility
set.seed
(
123
)
# attach the package `mvtnorm`
# set the number of sampling iterations
N
<-
# initialize the vector `beta_hats`
beta_hats
<-
# conduct the simulation using `for()`
for
(
i
in
1
:
N
)
{
}
# compute the sample mean of the estimates
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
R Console
1
>
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX