在R中填充矩阵

Question

我正在尝试使用随机分布的一组值来填充矩阵runif,但是看起来种子不会因为向量化操作而改变(我不知道在这一点上我是否错误),所以,我想要例如mxn从mx1之一创建一个矩阵

  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所说的那样(按行)这实际上并不是什么大问题,因为你可以转换它,但我想知道是否是避免这种解决方法的直接方法.干杯

Answer 1

您可以通过以下方式初始化矩阵:

nrows <- 10
ncols <- 15
matrix(runif(nrows * ncols ),nrows,ncols)