install.packages("SixSigma")
library(SixSigma)
# Specify the factors for appraisals
voltmeter <- factor(rep(1:2, each = 9))
# Specify the factors for parts
battery <- factor(rep(rep(1:3, each = 3), 2))
# Specify the factors for replicates
run <- factor(rep(1:3, 6))
# Specify the measured variable
voltage <- c(1.4727, 1.4206, 1.4754, 1.5083, 1.5739, 1.4341,
1.5517, 1.5483, 1.4614, 1.3337, 1.6078, 1.4767,
1.4066, 1.5951, 1.8419, 1.7087, 1.8259, 1.5444)
# Build data frame
batteries <- data.frame(voltmeter, battery, run, voltage)
batteries
# Perform Gage R&R Analysis
my.rr <- ss.rr(var = voltage,
part = battery,
appr = voltmeter,
data = batteries,
main = "Six Sigma Gage R&R Measure",
sub = "Batteries Project MSA")