如何从R中的矩阵中随机抽取样本?