r-project SixSigma ss.rr 在 `row.names<-.data.frame`(`*tmp*`, value = value) 中给出错误：无效的 'row.names' 长度

Question

我有以下data.frame

> str（卢克） 'data.frame'：19 obs。 4个变量： $ driver : 16 个级别的因子 "nr #1","nr #10",..: 1 9 10 11 12 13 14 15 16 2 ... $ 位置：因子 w/ 16 个级别 "pos #1","pos #10",..: 1 9 10 11 12 13 14 15 16 2 ... $吃：数字2 2 2 2 2 2 2 2 2 1 ... $ i2：数字 0.00656 0.00676 0.00679 0.00681 0.00666 0.00657 0.00674 0.00676 0.00682 0.00684 ... > 卢克 驾驶员位置吃了 i2 1 nr #1 位置 #1 2 0.00656 2 nr #2 位置 #2 2 0.00676 3 nr #3 位置 #3 2 0.00679 4 nr #4 位置 #4 2 0.00681 5 nr #5 位置 #5 2 0.00666 6 nr #6 位置 #6 2 0.00657 7 nr #7 位置 #7 2 0.00674 8 nr #8 位置 #8 2 0.00676 9 nr #9 位置 #9 2 0.00682 10 nr #10 位置 #10 1 0.00684 11 nr #11 位置 #11 2 0.00671 12 nr #12 位置 #12 2 0.00673 13 nr #13 位置 #13 2 0.00660 14 nr #14 位置 #14 2 0.00672 15 nr #15 位置 #15 2 0.00673 16 nr #16 位置 #16 2 0.00654 17 nr #7 位置 #1 2 0.00678 18 nr #3 位置 #2 2 0.00680 19 nr #1 位置 #3 2 0.00658

与 SixSigma 包提供的 ss.data.rr 非常接近。

使用 ss.data.rr 调用 ss.rr 有效，但无论我尝试什么，在使用 luc 时总是出现以下错误：

> ss.rr(var=i2, appr=driver, part=ate, data=luc) ``row.names

如何摆脱它？

下面的完整代码；我从更大的数据集创建 data.frame(luc)。

library("SixSigma")

luc <- subset(cf, cf$CntrlVal == 85)
luc <- data.frame(cbind(luc$DriverNumber, luc$Position, luc$ATE, luc$I2))
colnames(luc)<-c("driver", "position", "ate", "i2")

luc$position <- as.factor(paste0("pos #", luc$position))
luc$driver<- as.factor(paste0("nr #", luc$driver))
luc[10, c("ate")] <- 1
luc<-luc[-c(20:48), ]

ss.rr(var=i2, appr=driver, part=ate, data=luc)

ss.rr(var=i2, appr=driver, part=position, data=luc)

Answer 1

量具 R&R 需要重复测量才能评估测量系统。显然，该数据集仅包含每个因素组合（如果有）的一个观察值。例如，ss.data.rr data.frame 对每个算子的每个原型都有 3 次测量：

table(ss.data.rr$prototype, ss.data.rr$operator)

          op #1 op #2 op #3
  prot #1     3     3     3
  prot #2     3     3     3
  prot #3     3     3     3

错误是由于方差分析表中没有“残差”行（变异的重复性分量）。我将在SixSigma 的下一版本中编写一个信息性错误。