Skip to content

Instantly share code, notes, and snippets.

View gjkerns's full-sized avatar

G. Jay Kerns gjkerns

View GitHub Profile
@gjkerns
gjkerns / wer_all.R
Last active June 25, 2023 01:28 — forked from glamp/wer_all.R
library(plyr)
library(qcc)
data("pistonrings")
attach(pistonrings)
x <- qcc.groups(diameter, sample)
detach(pistonrings)
find_zones <- function(x) {