如何从r中的函数生成数组？

X和Y分别以lambda 10和20的泊松RV分布。我需要创建一个函数sample（），它生成（X，Y）的n个实现，并生成一个nx2数组

到目前为止，我已经做了：

sample=function()          
{
  X=rpois(1,10)
  Y=rpois(1,20)
} 

---

然后如何生成数组？

fred\u示例不清楚您的预期输出应该是什么样子。你只是要求
c（X，Y）
，或者可能是
matrix（c（X，Y），ncol=2，byrow=FALSE）
或者甚至是
cbind（X，Y）
？
fred_sample <- function(n){
  X <- rpois(n, 10)
  Y <- rpois(n, 20)
  matrix(c(X, Y), n)
}