Time Series and MCHT

[This article was first published on R – Curtis Miller's Personal Website, and kindly contributed to R-bloggers]. (You can report issue about the content on this page here)
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Introduction

Over the past few weeks I’ve published articles about my new package, MCHT, starting with an introduction, a further technical discussion, demonstrating maximized Monte Carlo (MMC) hypothesis testing, bootstrap hypothesis testing, and last week I showed how to handle multi-sample and multivariate data. This is the final article where I explain the capabilities of the package. I show how MCHT can handle time series data.

I should mention that I’m not focused on the merits of the procedures I use as examples in these posts, and that’s going to be the case here. It’s possible (perhaps even likely) that there’s a better way to decide between the hypotheses than what I show here. In these articles, I’m more interested in showing what can be done rather than what should be done. In particular, I like simple examples that many can understand, even if they may not be the best tool for the task at hand.

So far I don’t think this has been a serious issue; that is, I don’t think the procedures I’ve shown so far could be considered controversial (I think the most controversial would be the permutation test example). But the example I want to use here could be argued with; I personally would not use it. That said, I’m still willing to demonstrate it because it doesn’t take much to understand what’s going on and it does demonstrate how time series data can be handled.

Context

Suppose we want to perform a test for the location of the mean, and thus decide between the hypotheses

H_0: \mu = \mu_0

H_A: \mu \neq \mu_0

There is the usual t-statistic, which is \frac{\bar{X} - \mu_0}{\frac{S}{\sqrt{n}}}, and as mentioned before the statistic assumes that the data came from a Normal distribution. That’s not all the test assumes, though. It also assumes that the data is independent and identically distributed.

In cross-sectional contexts this is fine, but it’s not okay when the data could depend on time and thus is not independent and identically distributed. Suppose instead that our data was generated according to a first-order autoregressive process (AR(1)), described below:

X_t = \mu + \epsilon_t

\epsilon_t = \rho \epsilon_{t - 1} + \sigma w_t

In this context, assume w_t \sim N(0, 1) and is independent and identically distribution. It’s no longer given that the conventional t-test will work as marketed since the data is no longer independent or identically distributed. Additionally, we have two nuisance parameters, \rho and \sigma, that need to be accounted for.

Monte Carlo Testing with Time Series

We will view \rho and \sigma as nuisance parameters and use MMC testing to handle them. That leaves the question of how to simulate an AR(1) process. With MCHT, if you can simulate a process, you can test with it.

The time series model above has a stationary solution when |\rho| < 1 and when t ranges between -\infty and \infty. It's not possible to simulate a series of infinite length but one can get close by simulating a series that is very long. In particular, one can simulate, say, 500 terms of the series starting at a fixed number, then the actual number of terms of the series wanted, then throw away the first 500 terms. This is known as burn-in and it's very common practice in time series simulation.

Fortunately MCHTest() allows for burn-in. Suppose that the sample size of the actual dataset is n and we've decided that we want a burn-in period of B. Then we can do the following:

  1. Generate n + B random numbers to represent w_t (except possibly for the scaling factor, as we're treating that as a nuisance parameter).
  2. Apply the recursive formula described above to the w_t series after scaling the series by \sigma and using a chosen \rho, and add \mu to it.
  3. Keep only the last n terms of the series; throw away the rest. This is your simulated dataset.
  4. After having obtained the simulated dataset, proceed with the Monte Carlo test as usual.

With MMC, the unscaled series w_t is fixed after we generate it and we use optimization to adversarially choose \rho and \sigma so that we maximize the p-value of the test.

When using MCHTest(), the rand_gen function does not need to produce a dataset of the same length as the original dataset; this allows for burning it. However, if you're going to do this, then the stat_gen function needs to know what the sample size of the dataset is, but all you need to do is give the stat_gen function the parameter n; this will be given the sample size of the original dataset. And of course the test_stat function won't care whether the data came from a time series or not.

Putting this all together, we create the following test.

library(MCHT)
library(doParallel)

registerDoParallel(detectCores())

ts <- function(x, mu = 0) {
  sqrt(length(x)) * (mean(x) - mu)/sd(x)
}

rg <- function(n) {
  rnorm(n + 500)  # Extra terms for a burn-in period
}

sg <- function(x, n, mu = 0, rho = 0, sigma = 1) {
  x <- sigma * x
  if (abs(rho) >= 1) {stop("Bad rho given!")}
  eps <- filter(x, rho, "recursive")  # Apply the recursion
  eps <- eps[-(1:500)]  # Throw away first 500 observations; they're burn-in
  dat <- eps + mu

  test_stat(dat, mu = mu)  # Will be localizing
}

mc.ar1.t.test <- MCHTest(ts, sg, rg, N = 1000, seed = 123, test_params = "mu",
                         nuisance_params = c("rho", "sigma"),
                         optim_control = list(lower = c("rho" = -0.999,
                                                        "sigma" = 0),
                                              upper = c("rho" = 0.999,
                                                        "sigma" = 100),
                                              control = list("max.time" = 10)),
                         threshold_pval = 0.2, localize_functions = TRUE,
                         lock_alternative = FALSE)

dat <- c(-1.02, -1.13, 0.53, 0.21, 1.76, 1.79, 1.42, -0.31, -0.28, -0.44)

mc.ar1.t.test(dat, mu = 0, alternative = "two.sided")


## Warning in mc.ar1.t.test(dat, mu = 0, alternative = "two.sided"): Computed
## p-value is greater than threshold value (0.2); the optimization algorithm
## may have terminated early


## 
## 	Monte Carlo Test
## 
## data:  dat
## S = 0.73415, p-value = 0.264
## alternative hypothesis: true mu is not equal to 0


mc.ar1.t.test(dat, mu = 3, alternative = "two.sided")


## Warning in mc.ar1.t.test(dat, mu = 3, alternative = "two.sided"): Computed
## p-value is greater than threshold value (0.2); the optimization algorithm
## may have terminated early


## 
## 	Monte Carlo Test
## 
## data:  dat
## S = -7.9712, p-value = 0.504
## alternative hypothesis: true mu is not equal to 3


t.test(dat, mu = 3, alternative = "two.sided")  # For reference


## 
## 	One Sample t-test
## 
## data:  dat
## t = -7.9712, df = 9, p-value = 2.278e-05
## alternative hypothesis: true mean is not equal to 3
## 95 percent confidence interval:
##  -0.5265753  1.0325753
## sample estimates:
## mean of x 
##     0.253

Conclusion

I have now covered what I consider the essential technical functionality of MCHT. All of the functionality I described in these posts is functionality that I want this package to have. Thus I personally am quite happy this package exists, which is good; I'm the package's primary audience, after all. All I can hope is that others find the package useful too.

I wrote this article more than a month before it was published, so perhaps I have made an update that isn't being accounted for here, but as of this version (0.1.0), I'd call the package in a beta stage of stability; it's usable, but features could be added or removed and there could be unknown bugs.

The following is a list of possible areas of expansion. This list exists mostly because I think it needs to exist; it gives me something to aim for before making a 1.0 release. That said, they could be useful features.

*A function for making diagnostic-type plots for tests, such as a function creating a plot for the rejection probability function (RPF) as described in [1].
*A function that accepts a MCHTest-class object and returns a function that, rather than returning a htest-class object, returns a function that will give the test statistic, simulated test statistics, and a p-value, in a list; could be useful for diagnostic work.
*Real-world datasets that can be used for examples.
*Functions with a simpler interface than MCHTest, perhaps with more restrictions on inputs.
*Pre-made MCHTest objects perhaps implementing common Monte Carlo or Bootstrap tests.

I also welcome community requests and collaboration. If you want a feature, consider issuing a pull request on GitHub.

Do you want more documentation? More examples? More background? Let me know! I'd be willing to write more on this subject. Perhaps if I amass enough content I could write a book documenting MCHT and Monte Carlo/bootstrap testing.

These blog posts together extend beyond 10,000 words, so I'm thinking I have enough material to submit an article to, say, J. Stat. Soft. or the R Journal and thus get my first publication where I'm the sole author. But this is something I'm still considering; I'm an insecure person at heart.

Next week I will still be using this package in a blog post, but I won't be writing about how to use it anymore; instead, I'll be using it to revisit a proposition I made many months ago. (It was because of that article I created this package.) Stay tuned, and thanks for reading!

References

  1. R. Davidson and J. G. MacKinnon, The size distortion of bootstrap test, Econometric Theory, vol. 15 (1999) pp. 361-376

Packt Publishing published a book for me entitled Hands-On Data Analysis with NumPy and Pandas, a book based on my video course Unpacking NumPy and Pandas. This book covers the basics of setting up a Python environment for data analysis with Anaconda, using Jupyter notebooks, and using NumPy and pandas. If you are starting out using Python for data analysis or know someone who is, please consider buying my book or at least spreading the word about it. You can buy the book directly or purchase a subscription to Mapt and read it there.

If you like my blog and would like to support it, spread the word (if not get a copy yourself)!

To leave a comment for the author, please follow the link and comment on their blog: R – Curtis Miller's Personal Website.

R-bloggers.com offers daily e-mail updates about R news and tutorials about learning R and many other topics. Click here if you're looking to post or find an R/data-science job.
Want to share your content on R-bloggers? click here if you have a blog, or here if you don't.

Never miss an update!
Subscribe to R-bloggers to receive
e-mails with the latest R posts.
(You will not see this message again.)

Click here to close (This popup will not appear again)