0

でランダムに分散された値のセットを行列に入力しようとしていますがrunif、ベクトル化された操作のシードは変更されていないようです (この時点で間違っているかどうかはわかりません)。mxnmx1 の 1 つから行列を作成します

  set <- matrix(nrow=10, ncol=1, b=T)

         [,1]
 [1,]   NA
 [2,]   NA
 [3,]   NA
 [4,]   NA
 [5,]   NA
 [6,]   NA
 [7,]   NA
 [8,]   NA
 [9,]   NA
[10,]   NA

ここで、R1 ベクトル (1x3) を各行に入力したいので (最初の座標は一定です)、次のようにしました。

cbind(set, 1, runif(1, -5, 5), runif(1, -5, 5))[,2:4]
      [,1]      [,2]     [,3]
 [1,]    1 0.3733975 3.968388
 [2,]    1 0.3733975 3.968388
 [3,]    1 0.3733975 3.968388
 [4,]    1 0.3733975 3.968388
 [5,]    1 0.3733975 3.968388
 [6,]    1 0.3733975 3.968388
 [7,]    1 0.3733975 3.968388
 [8,]    1 0.3733975 3.968388
 [9,]    1 0.3733975 3.968388
[10,]    1 0.3733975 3.968388

しかし、ご覧のとおり、毎回同じ番号に初期化されます

私も試しました：

apply(set,1, function(x){ c(1,runif(2,-5,5)) })

          [,1]      [,2]     [,3]       [,4]       [,5]      [,6]     [,7]      [,8]       [,9]     [,10]
[1,]  1.000000  1.000000 1.000000  1.0000000  1.0000000  1.000000  1.00000  1.000000  1.0000000 1.0000000
[2,] -1.932621  3.939935 4.311493 -1.5389568 -0.8101092  2.414381  3.65576 -3.048565  0.4321976 0.8809179
[3,]  2.473342 -1.889638 1.506515  0.4796991 -4.0810869 -3.723647 -2.55024  4.577043 -0.5506893 1.2699766

しかし、MARGINが言うように（行ごとに）期待どおりではなく、実際には逆に入力されます。これは実際には大したことではありません。転置することができるからですが、そのような回避策を回避する直接的な方法があるかどうか知りたいです. 乾杯

4

2 に答える 2

2

そうではありませんか：

cbind(set, 1, runif(nrow(set), -5, 5), runif(nrow(set), -5, 5))[,2:4]

cbind列ベクトルを自動的に拡張しておよびメソッド内の未入力の場所を埋める R の習慣はdata.frame、式を再評価しません。既存の値をリサイクルするだけです。

于 2013-10-16T20:17:34.067 に答える