从矩阵的随机行选择的剩余数据中创建矩阵，并使用数据计算R中的RMSE

Question

我有一个42行2列的矩阵[a]。然后，我有一个函数随机选择这些行中的12行，对随机选择的矩阵进行线性回归，并输出线性回归的系数（斜率和截距）。

在R中，我想从原始矩阵中得到其他30行，这些行在随机函数中没有被选中，然后使用这些数据和我新计算的系数，生成一个点（y值）。因此，我将有30个Y值，然后使用新的Y值和新的30行矩阵中的1列计算RMSE(http://upload.wikimedia.org/math/e/f/b/efb7882a7dbfa5fe48d771565d2675f3.png)。

#Calibration Equation 1 (TC OFF)

B<- A[sample(42,12),]
lm(B[,2] ~ B[,1])$coefficients

}

Z<-t（复制(10000，randco(A)))

Answer 1

arows <- apply(A, 1, paste, collapse="_")
brows <- apply(B, 1, paste, collapse="_")
A[-match(brows, arows), ]

（不推荐，如果您的唯一目的是上面描述的）

library(data.table)
A <- as.data.table(A)

B <- A[sample(nrow(A), 12)]

setkey(A)
setkey(B)
A[!B]