矩阵抽样

各位大神，我想要从一个100行10列的矩阵中按照按下面的代码中的P值，用泊松抽样提取k行，这种R代码应该怎么写，是要构造一个循环吗？set.seed(123)
x=rnorm(1000)
y=matrix(x,100,10)
F=sqrt(sum(diag(t(y)%*%y)))
S=apply(abs(y),1,sum)
P=S^2/F^2

没看明白这个问题，你你计算的这个P值是长度100的向量，然后你打算用这100个P值在y这个矩阵里面抽样，每行对应一个P值。
但问题是泊松抽样的参数是均值lambda，和你这个P值有什么关系呢？