Skip to content

Instantly share code, notes, and snippets.

@glamp
Last active December 12, 2015 09:19
Show Gist options
  • Select an option

  • Save glamp/4751004 to your computer and use it in GitHub Desktop.

Select an option

Save glamp/4751004 to your computer and use it in GitHub Desktop.
library(qcc)
# series of value w/ mean of 10 with a little random noise added in
x <- rep(10, 100) + rnorm(100)
# a test series w/ a mean of 11
new.x <- rep(11, 15) + rnorm(15)
# qcc will flag the new points
qcc(x, newdata=new.x, type="xbar.one")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment