生成具有特定相关阈值的随机变量

Question

我正在生成具有指定范围和维度的随机变量。我为此制作了以下代码。

generateRandom <- function(size,scale){
  result<- round(runif(size,1,scale),1)
  return(result)
}

flag=TRUE
x <- generateRandom(300,6)
y <- generateRandom(300,6)
while(flag){
  corrXY <- cor(x,y)
  if(corrXY>=0.2){
    flag=FALSE
  }
  else{
    x <- generateRandom(300,6)
    y <- generateRandom(300,6)
  }

}

我希望关注 6个变量 尺寸300 且规模全部介于 1到 之间6 除了一个变量，其变量为1-7 ，其中包含以下相关结构。

1 0.45  -0.35  0.46  0.25 0.3
     1   0.25  0.29  0.5  -0.3
         1    -0.3   0.1   0.4
               1     0.4   0.6
                      1    -0.4
                             1

但是当我尝试增加阈值时，我的程序变得非常慢。而且，我想要超过7个大小为300的变量，并且在每对变量之间我想要一些特定的相关阈值。我该如何有效地做到这一点？ / p>