Avoid spurious warning in ss.rr

[emilopezcano]

Avoid this warning

Frio the book's example 5.5:

my.rr <- ss.rr(var = voltage, part = battery, appr = voltmeter, data = batteries, main = "Six Sigma Gage R&R Measure", sub = "Batteries Project MSA")

The output produces this warning:

Warning message:
In widths.x[pos.widths[[nm]]] <- widths.settings[[nm]] * widths.defaults[[nm]]$x :
  number of items to replace is not a multiple of replacement length