R中求特定相关的两列数

  如题，假如我要产生两列相关系数为0.8的数，R中该如何操作？

  函数还有具体程序？论坛币不多，只算是小弟一点心意，期盼各位大神指点，谢谢！

1. > x <- rnorm(50)
   
2. > y <- x*0.8+rnorm(50)
   
3. > cor(x,y)
   
4. [1] 0.7195559

复制代码

就这样生成好多次，看看那个靠近0.8就可以了

谢谢