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)
)
xbar_repeat(data, part = 'SN', operator = 'Operator', meas = 'Measure')
Run the code above in your browser using DataLab