Question

我需要重复100次带有一些固定数字的16个数字的向量，并且在特定位置随机创建一些数字。我创建了一个函数，但它重复了随机生成的第一个向量，甚至是随机数。但是我需要函数样本在每个重复的向量中工作，以获得所需位置的100个随机数的数组。

r1<- c(1,3,2,1,2,sample(1:4,1,replace=T),4,sample(1:4,1,replace=T),3,sample(1:4,1,replace=T),
 sample(1:4,1,replace=T),2,sample(1:4,1,replace=T),1,sample(1:4,1,replace=T),3)

rep.row<-function(x,n){matrix(rep(r1,each=100),nrow=100)}       
rp <- rep.row(r1)

你可以帮帮我吗？谢谢你，

Answer 1

在您的代码中，您在开头创建一次随机向量，然后将该（固定）向量复制100次。您需要做的是在每次迭代中重复随机抽样。你可以，例如这样做：

## Function to create your random vector:
createVector <- function(ii){
    r1 <- c(1, 3, 2, 1, 2, 
            sample(1:4, 1, replace = TRUE), 4,
            sample(1:4, 1, replace = TRUE), 3,
            sample(1:4, 1, replace = TRUE), 
            sample(1:4, 1, replace = TRUE), 2,
            sample(1:4, 1, replace = TRUE), 1, 
            sample(1:4, 1, replace = TRUE), 3)  
}

## Replicate 100 times:
set.seed(1234)
rp <- replicate(100, createVector())

head(rp)
#      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12] [,13] [,14]
# [1,]    1    3    2    1    2    1    4    3    3     3     3     2     4     1
# [2,]    1    3    2    1    2    1    4    1    3     3     3     2     3     1
# [3,]    1    3    2    1    2    2    4    4    3     2     4     2     2     1
# [4,]    1    3    2    1    2    1    4    1    3     2     2     2     1     1
# [5,]    1    3    2    1    2    1    4    4    3     3     4     2     4     1
# [6,]    1    3    2    1    2    2    4    2    3     2     3     2     1     1
#      [,15] [,16]
# [1,]     3     3
# [2,]     3     3
# [3,]     2     3
# [4,]     1     3
# [5,]     1     3
# [6,]     4     3

Answer 2

这样做 - 它会将NAs放在您想要随机数字的位置，然后在最后填写它们。

r2 <- c(1,3,2,1,2,NA,4,NA,3,NA,NA,2,NA,1,NA,3)
rep.row <- matrix(rep(r2,each=100),nrow=100)
rep.row <- apply(rep.row,c(1,2),function(x) ifelse(is.na(x),sample(1:4,1,replace=T),x))

R在向量重复函数中保持随机函数

2 个答案: