[SOLVED] CS代写 STAT340 Lecture 12: Resampling and the Bootstrap’

title: ‘STAT340 Lecture 12: Resampling and the Bootstrap’
author: ”and Wu”
date: “Fall 2021”
output: html_document

Copyright By PowCoder代写加微信 assignmentchef

“`{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

require(ggplot2)

__Readings:__ ISLR Section 5.2

In previous lectures throughout the semester, we have looked at different ways of quantifying uncertainty in our data and our resulting estimates.
Among the most fundamental tools in statistics for quantifying uncertainty is the bootstrap.
Ultimately, the bootstrap amounts to resampling our data as though it were the population itself.
Rather surprisingly, this can actually help us estimate certain quantities related to variances (i.e., uncertainty).

## Learning objectives

After this lecture, you will be able to

– Explain the bootstrap and its applicability.
– Implement and apply the bootstrap to estimate variance in simple models.

## Estimating Variance

In a wide range of applications, we need to estimate the variance of our data.

__Example: confidence intervals__

Given data $X_1,X_2,dots,X_n$ drawn iid from some distribution, we are often interested in constructing a confidence interval for some parameter $theta$.
If an estimator $hat{theta}$ is approximately normal about $theta$, we could construct an approximate CI for $theta$ if only we knew the standard deviation of $hat{theta}$,
sigma_{hat{theta}} = sqrt{ operatorname{Var} hat{theta} }.
We have seen in our lectures on estimation and confidence intervals that there are ways to estimate this variance, but sometimes it is a lot more complicated (e.g., more computationally expensive or more mathematically complicated).

__Example: errors in linear regression__

Recall that in linear regression we observe $(X_i,Y_i)$ pairs where
Y_i = beta_0 + beta_1 X_i + epsilon_i,~~~i=1,2,dots,n
where $epsilon_1,epsilon_2,dots,epsilon_n$ are drawn iid according to a normal with mean zero and unknown variance $sigma^2 > 0$.

During our discussions of linear regression in the last few weeks, we saw situations where we were interested in the sampling distribution of the estimated coefficients $hat{beta}_0, hat{beta}_1$ (e.g., in adjusted $R^2$ or in interpreting the p-values associated to different coefficients).
Often, we need to know $sigma^2$ or at least have a good estimate of it.

### Tricky variance computations

In situations like the above, we had central limit theorems or similar results that allowed us to estimate the variance of the quantities we cared about.
Unfortunately, this isn’t always the case.
Here’s a simple example, adapted from ISLR (beginning of Section 5.2):

__Example: allocating investments__

Suppose that we have two different stocks we can invest in, which yield returns $X$ and $Y$.
So, we invest a single dollar (just to keep things simple!), and we need to split between these two different stocks.
Let’s say we put $alpha$ dollars into the first stock (with return $X$) and $1-alpha$ (i.e., the rest) into the second stock (with return $Y$).

Then we get back and amount $alpha X+ (1-alpha) Y$.

Now, this amount of money that we get back on our investment is random, because it is based on the (random) stock yields $X$ and $Y$.
An obvious thing to do is to try and maximize this, but this can result in us making risky bets.

Most investment strategies instead aim to minimize the “risk” (note: in statistics, *risk* means something very different from this– this is the “finance” meaning of the term “risk”):
begin{aligned}
operatorname{Var}left( alpha X + (1-alpha) Y right)
&= alpha^2 operatorname{Var} X
+ (1-alpha)^2 operatorname{Var} Y
+ 2alpha(1-alpha) operatorname{Cov}(X,Y) \
&= alpha^2 sigma_X^2
+ (1-alpha)^2 sigma_Y^2
+ 2alpha(1-alpha) sigma_{XY}
end{aligned}
begin{aligned}
sigma_X^2 &= operatorname{Var} X \
sigma_Y^2 &= operatorname{Var} Y \
sigma_{XY} &= operatorname{Cov}( X, Y ).
end{aligned}
One can prove that $operatorname{Var}left( alpha X + (1-alpha) Y right)$ is minimized by taking
alpha = frac{ sigma_Y^2 – sigma_{XY} }{ sigma_X^2 + sigma_Y^2 -2sigma_{XY} }.
Unfortunately, we don’t know the variance and covariance terms (i.e., $sigma_X^2$, $sigma_Y^2$, $sigma_{XY}$)…

But suppose we have observations $(X_i,Y_i)$, $i=1,2,dots,n$ of, say, the performance of these two stocks on prior days.
We could use this data to estimate $sigma_X^2$, $sigma_Y^2$ and $sigma_{XY}$.

If we denote the estimates $hat{sigma}_X^2$, $hat{sigma}_Y^2$ and $hat{sigma}_{XY}$, then we could plug these into the above equation and obtain an estimator for $alpha$,
hat{alpha}
= frac{ hat{sigma}_Y^2 – hat{sigma}_{XY} }
{ hat{sigma}_X^2 + hat{sigma}_Y^2 -2hat{sigma}_{XY} }.

Now, here’s where things get tricky.
What if we want to quantify our uncertainty about $alpha$?

After all, $hat{alpha}$ is a function of the (random) data, so it is itself a random variable, and it is reasonable to ask about, for example, its variance.

But $hat{alpha}$ depends on the data ${ (X_i,Y_i) : i=1,2,dots,n }$ in a fairly complicated way, so it’s not obvious what $operatorname{Var} hat{ alpha}$ should actually be.

## Refresher: simulation-based methods

In our discussion of estimation and confidence intervals earlier in the semester, we obtained simulation-based confidence intervals by

1. Assuming a model for our data (e.g., assuming the data came from a Poisson distribution)
2. Estimating the parameter(s) of that model from the data (e.g., estimating $lambda$ under the Poisson)
3. Generating new random samples from the model with the estimated parameter(s) (e.g., drawing from $operatorname{Pois}(hat{lambda})$)
4. Using these “fake” data samples to approximate the sampling distribution of our statistic of interest (e.g., $hat{lambda}(X_1,X_2,dots,X_n)$).

If we had a model for our $(X_i,Y_i)$ pairs, we could use the observed pairs to estimate the parameter(s) of that model and generate new samples $(X’_i,Y’_i), i=1,2,dots,n$ and compute
hat{alpha}’ =
hat{alpha}left( (X’_1,Y’_1),(X’_2,Y’_2),dots,(X’_n,Y’_n) right).
Doing this many times, we would get multiple random variables that approximate the distribution of $hat{alpha}$ (i.e., the statistic computed on our original data).

## What if we don’t have a model?

Simulation-based approaches like the one discussed above work because we have made a model assumption about our data.
If we assumed our data came from a Poisson distribution, then we could just estimate the Poisson parameters and generate new samples.

But often we don’t want to make such assumptions about our data.
Because, for example

– Our parameter(s) may be expensive to estimate
– The distribution may be expensive to draw from
– We don’t want to make model assumptions in the first place!

This last concern gives rise to what we call *non-parametric statistics*.
That is, doing statistics while avoiding assumptions of the form “We assume that the data are generated according to a normal (or Poisson or Binomial or…)”.

The details of non-parametric statistics will have to wait for your later courses, but these concerns lead us to try and come up with a different way to “resample” copies of our statistic.

## Introducing the Bootstrap

So, let’s try something a little weird.

What we want to do is to draw new samples from the same population (i.e., distribution) as our data came from.
In the simulation-based approach, we estimate the parameter(s) to get an approximation to that true distribution.

The bootstrap takes a different tack.
The data, $X_1,X_2,dots,X_n$ is a sample from the *actual* population that we care about (i.e., not an approximation!).
The bootstrap says, “let’s just sample from $X_1,X_2,dots,X_n$.”

Said another way, in the bootstrap, we sample *with replacement* from the observed data
X_1, X_2, dots, X_n,
obtaining the sample
X^*_1, X^*_2, dots, X^*_n.
The $X^*_i$ notation is convention in statistics– the asterisk ($*$) denotes that the variable is resampled from the original data.

__Important note:__ $X^*_i$ does *not* necessarily equal $X_i$. It is just the $i$-th resampled data point. $X^*_i$ is equal to *some* $X_j$, $j=1,2,dots,n$, with each of the $n$ different data points being equally likely. Each $X_i^*$ is a sample with replacement from the data $X_1,X_2,dots,X_n$.

Now, having resampled our data, we can compute our estimator on the bootstrap sample $X^*_1,X^*_2,dots,X^*_n$, say,
hat{theta}left(X^*_1,X^*_2,dots,X^*_n right).
Repeating this many times (say, $B$ times), we can use these resampled replicates of our original estimator, say
hat{theta}_1, hat{theta}_2, dots, hat{theta}_B.
The intuition is that these $B$ random variables, each based on a sample with replacement from the original data, are a good approximation to the true distribution of our estimate $hat{theta}(X_1,X_2,dots,X_n)$, and we can use them to do things like estimating the variance.

### Wait, how can this possibly work?!

Yes, this is just as crazy as it sounds, and yet, it works (for certain problems, anyway).

The intuition is something like this: when $n$ is suitably large, the “point cloud” formed by $X_1,X_2,dots,X_n$ looks a lot like the true population distribution.

As a result, resampling from the observed sample $X_1,X_2,dots,X_n$ and resampling from the true population distribution are not actually so different!

The careful mathematical proof of this intuition is beyond the scope of this course.
But I agree that on a first glance this should not work at all.
And yet it does!

I have been studying statistics for more than 15 years, and I am still pretty sure the bootstrap is magic…

### Example: estimating the Poisson rate parameter

Let’s start by illustrating on a simple data example that we have seen multiple times before.
Let’s suppose that $X_1,X_2,dots,X_n$ are drawn iid from a Poisson distribution with rate parameter $lambda = 5$.

Our goal is to estimate the rate parameter $lambda$.

Now, we’ve already seen ways to do this– we could construct a CLT-based confidence interval or use a simulation-based approach.
The point here is just to illustrate how the bootstrap applies in a setting that we are already familiar with.
The claim is *not* that this the bootstrap is the best solution to this particular problem.

lambdatrue <- 5;data <- rpois(n=n, lambda=5); # Generate a sample of 25 iid RVslambdahat <- mean(data); # Estimate lambda.# Now, let’s do the bootstrap.# We’ll repeatedly (B times)resample n=25 observations from the data.# On each resample, compute lambdahat (i.e., take the mean).B <- 200; # Number of bootstrap replicates.replicates <- rep(NA,B); # We’ll storefor( i in 1:B ) {resample <- sample(data, n, replace=TRUE);replicates[i] <- mean(resample);Now, `replicates` is a vector of (approximate) replicates of our estimate for $lambda$.Let’s visualize the replicates– we’ll indicate the true $lambda$ in blue and our estimate (`lambdahat`) in red.hist(replicates)abline(v=lambdahat, lwd=2, col=’red’)abline(v=lambdatrue, lwd=2, col=’blue’)Now, we’re going to use those bootstrap replicates to estimate the standard deviation of $hat{lambda} = n^{-1} sum_i X_i$, and then we’ll use that to get a 95% CI for $lambda$.sd_lambda <- sd( replicates );CI <- c( lambdahat-1.96*sd_lambda, lambdahat+1.96*sd_lambda);# And check if our CI contains lambda = 5.CI[1] < lambdatrue & lambdatrue < CI[2];Well, about 95% of the time, we should catch $lambda=5$.Let’s run that same experiment a bunch of times, just to verify.That is, we are going to:1. Generate data $X_1,X_2,dots,X_n$ iid from Poisson with $lambda=5$.2. Compute $hat{lambda} = bar{X}$3. Repeatedly resample from $X_1,X_2,dots,X_n$ *with replacement*, compute the mean of each resample (i.e., compute our estimator on each resample)4. Compute the standard deviation of these resampled copies of $hat{lambda}$.5. Use that SD to compute a 95% CI, under the assumption that $hat{lambda}$ is approximately normal about its expectation $lambda$.Okay, let’s do that in code.It will be useful to have a command that runs all of the bootstrap machinery for us.run_pois_bootstrap_expt <- function( lambdatrue, n, B ) {# lambdatrue is the true value of lambda to use in generating our data.# n is the sample size.# B is the number of bootstrap replicates to use.# First things first, generate data.data <- rpois( n=n, lambda=lambdatrue );lambdahat = mean( data ); # Our point estimate for lambda.# Generate B bootstrap replicates.replicates <- rep(NA,B);# Each replicate draws n data points, with replacement, from data# and computes its mean (i.e., estimates lambda from the resampled data)for( i in 1:B ) {# resample n elements of the data, with replacement.resampled_data <- sample( data, n, replace=TRUE )replicates[i] <- mean( resampled_data );# Now use those replicates to estimate SD of and construct a 95% CI.sd_boot <- sd( replicates ); # estimate of the std dev of alphahatCI <- c(lambdahat-1.96*sd_boot, lambdahat+1.96*sd_boot);# Finally, check if this CI caught lambda successfully.# Return TRUE/FALSE accordingly.return( (CI[1] < lambdatrue) & (lambdatrue < CI[2]) );Now, let’s repeat this experiment a few hundred times, and see how often our CI contains the true $lambda$.N_expt <- 500; # number of CIs to construct.successes <- rep(NA,N_expt); # Keep track of whether or not each CI caught alpha.for( i in 1:N_expt ) {# Repeat the experiment N_expt times.# lambdatrue=5, B=200 bootstrap replicates, n=25 observations in the data sample.successes[i] <- run_pois_bootstrap_expt( 5, 200, 25 );mean(successes)That number should be between 0.93 and 0.97 (of course, we are always subject to randomness in our experiments…).### Recap: general recipe for the bootstrapJust to drive things home, let’s walk through the “recipe” for the bootstrap again, this time at a slightly more abstract level.Then we’ll come back and do a more complicated example.Suppose that we have data $X_1,X_2,dots,X_n$ drawn iid from some unknown distribution.We wish to estimate a parameter $theta$, and we have an estimator $hat{theta} = hat{theta}(X_1,X_2,dots,X_n)$ for $theta$.The purpose of the bootstrap is to resample from the data $X_1,X_2,dots,X_n$ with replacement, evaluate $hat{theta}$ on each resample, and use those *replicates* of $hat{theta}(X_1,X_2,dots,X_n)$ to approximate its true distribution (usually we are specifically interested in variance, but we’ll come back to this point).So, given data $X_1,X_2,dots,X_n$, we:1. Repeatedly ($B$ times) sample $n$ observations *with replacement* from $X_1,X_2,dots,X_n$, to obtain samples $X_{b,1}^*,X_{b,2}^*,dots,X_{b,n}^*$, for $b=1,2,dots,B$. Note that putting the asterisk (*) on the resampled data points is a common notation in statistics to indicate bootstrap samples.2. For each of these $B$ resamples, compute the estimator on that sample, to obtainhat{theta}_b = hat{theta}(X_{b,1}^*,X_{b,2}^*,dots,X_{b,n}^*) ~~~ text{ for } b=1,2,dots,B.3. Compute the standard deviation of our bootstrap replicates,operatorname{SE}_{text{boot}}= sqrt{ frac{1}{B-1} sum_{b=1}^B left( hat{theta}_b – frac{1}{B}sum_{r=1}^B hat{theta}_r right)^2 }.4. Use this standard deviation estimate to construct an (approximate) confidence interval, under the assumption that $hat{theta}$ is normally distributed about its mean $theta$.(hat{theta} – 1.96operatorname{SE}_{text{boot}},hat{theta} + 1.96operatorname{SE}_{text{boot}} )## Bootstrapping for more complicated statisticsNow, our example above is kind of silly– we already know multiple different ways to construct confidence intervals for the Poisson parameter!But what about more complicated functions of our data?That is often where the bootstrap really shines.To see this, let’s return to our example of financial returns $(X_i,Y_i)$The bootstrap says that we should sample *with replacement* from the observed data(X_1,Y_1), (X_2,Y_2), dots, (X_n, Y_n),obtaining the sample(X^*_1,Y^*_1), (X^*_2,Y^*_2), dots, (X^*_n, Y^*_n).Again, the $X^*_i$ notation is the conventional way to show that the variable is resampled from the original data.Having resampled from our data in this way, we could then computealpha^* = hat{alpha}left( (X^*_1,Y^*_1), (X^*_2,Y^*_2), dots, (X^*_n, Y^*_n)right).Repeating this, say, $B$ times, we would obtain *bootstrap replicates*alpha^*_1, alpha^*_2, dots, alpha^*_B,from which we can estimate the variance of $hat{alpha}$ ashat{sigma}^2_{alpha}frac{1}{B-1}sum_{r=1}^B left( alpha^*_r – frac{1}{B} sum_{b=1}^B alpha^*_b right)^2.Notice that this *looks* like a variance, except that we are using $hat{alpha}$, the statistic computed on the original data sample, as our estimate of the mean.### Demo: applying the bootstrap to financial dataThe file `boot_demo.R` contains code for generating $(X_i,Y_i)$ pairs like those discussed in our financial example above.source(‘boot_demo.R’);fin_pairs <- generate_pairs( 100 ); # Generate 100 (X,Y) pairs.head(fin_pairs)Always look at your data first.Here is a scatter plot.pp <- ggplot(data=fin_pairs, aes(x=X, y=Y)) + geom_point()Now, let’s compute $hat{alpha}$ on this data.Remember, $hat{alpha}$ is just a function of the (estimated) variances of $X$ and $Y$, along with their covariance:hat{alpha}= frac{ hat{sigma}_Y^2 – hat{sigma}_{XY} }{ hat{sigma}_X^2 + hat{sigma}_Y^2 -2hat{sigma}_{XY} }.So, let’s just compute those three quantities and plug them in.The `cov` function gets us the whole sample covariance matrix of our data:Sigmahat <- cov( fin_pairs ); #Sigma is the common symbol for a covariance matrix.Now we can just pluck our three estimates out of theresigma2hatXX <- Sigmahat[1,1];sigma2hatYY <- Sigmahat[2,2];sigmahatXY <- Sigmahat[1,2];and we can plug these into our formula for $hat{alpha}$ above.alphahat <- (sigma2hatYY – sigmahatXY)/(sigma2hatXX + sigma2hatYY -2*sigmahatXY);Now, in truth, the covariances that generated our data are:sigma^2_X = 1,~~~sigma^2_Y = 2, ~~~sigma_{XY} = -0.25,so the true optimal choice of $alpha$ isalpha = frac{ sigma_Y^2 – sigma_{XY} }{ sigma_X^2 + sigma_Y^2 -2sigma_{XY} }= frac{2 – (-0.25) }{ 1 + 2 + 2*0.25}= frac{ 2.25 }{3.5 } approx 0.64Let’s store the true value of alpha while we’re thinking of it.sigma2XX <- 1;sigma2YY <- 2;sigmaXY <- -0.25alpha_true <-(sigma2YY – sigmaXY)/(sigma2XX + sigma2YY -2*sigmaXY);alpha_trueNow, again, we’re going to resample *with replacement* from our data, and compute our statistic $hat{alpha}$ on each resample.The hope is that these resampled versions of the statistic will resemble the distribution of the statistic evaluated on the original data.It will be convenient to just have a function to compute alphahat from a given data set.compute_alphahat <- function( data ) {# We’re assuming that data is a data frame with two columns.Sigmahat <- cov( data );# Extract the variance and covariance estimates from the sample covariancesigma2hatXX <- Sigmahat[1,1];sigma2hatYY <- Sigmahat[2,2];sigmahatXY <- Sigmahat[1,2];# plug these into the definition of alpha.alphahat <- (sigma2hatYY – sigmahatXY)/(sigma2hatXX + sigma2hatYY -2*sigmahatXY);return(alphahat);alphahat <- compute_alphahat( fin_pairs );Okay, we’re ready to go.Let’s resam程序代写 CS代考加微信: assignmentchef QQ: 1823890830 Email: [email protected]