我想使用 apply 函数填充一个空矩阵。
例如我的目的是简化下面的代码
tmp <- matrix(NA, 10, 10)
tmp[, 1] <- sample(1:500, 10)
tmp[, 2] <- sample(1:500, 10)
...
tmp[, 10] <- sample(1:500, 10)
是否可以使用以下代码使上面的代码仅一行apply
功能?如果不是,推荐任何类型的更简单的代码可能对我有帮助:)
你可以使用replicate()
:
set.seed(1)
replicate(10, sample(1:500, 10))
# [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
# [1,] 324 481 213 89 111 172 280 371 331 84
# [2,] 167 85 37 428 404 25 160 499 465 359
# [3,] 129 277 105 463 412 375 14 104 484 29
# [4,] 418 362 217 289 20 248 130 326 13 141
# [5,] 471 438 366 340 44 198 45 471 296 252
# [6,] 299 494 485 419 377 378 402 255 217 406
# [7,] 270 330 165 326 343 39 22 492 176 221
# [8,] 466 263 290 330 70 435 206 497 345 412
# [9,] 187 329 362 42 121 298 230 498 279 108
# [10,] 307 79 382 422 40 390 193 103 110 304
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)