r - R中的矩阵重采样循环

Question

我有一个包含五个变量和 1500 个观察值的数据集，并且想要重新采样 1000 次。数据集如下所示：

      K_Ri K_Le D_Ri D_Le Goal
[1,]    1    0    1    0    1   
[2,]    0    1    0    1    0   
[3,]    1    0    0    1    1   
[4,]    0    0    1    0    1   
[5,]    1    0    0    1    1   

... ETC。

这是关于足球的，所以 K_Ri 表示 Kicker 将球踢到球门的右侧，G_Ri 表示守门员跳到右侧等。

但是，我还定义了一个 3x3 矩阵，它显示了守门员和踢球者的所有可能动作（右/右、右/中、右/左等）以及他们对所选动作的回报（回报=（踢到某个特定球的总和）方向 - 被踢到那个方向的停止球）/踢到某个方向的球总数）。

所以，我需要定义这样一个循环，它既可以为我的数据集做样本，又可以为这些样本自动创建支付矩阵。

到目前为止，我的代码是...

Y=cbind(as.matrix(soccer))
boot=Y[sample(x=nrow(Y),300,replace=TRUE),]
samplefunct=function(X=dll.data){boot=Y[sample(x=nrow(Y),300,replace=TRUE),]}
replicate=replicate(1000,samplefunct())

如果有人可以帮助我，我会非常高兴！

伊万

标签： rloopssampleresampling