data <- data.frame(
SN = rep(c("SerialNumber_01","SerialNumber_02"), each = 4),
Operator = rep(c("Operator_01","Operator_02"), each = 2, times = 2),
Measure = c(0.0172,0.0177,0.0155,0.0159,0.0174,0.0181,0.0152,0.0176)
)
grr_calc(data, part = "SN", operator = "Operator",
meas = "Measure", LSL = 0, USL = 0.040, method = "xbar_r")
Run the code above in your browser using DataLab