从主矩阵创建一个样本矩阵

Question

我想创建一个主要的样本矩阵，其中列数为sam但行数较少（50）我尝试使用一系列循环，但它没有工作：

n=nrow(data)
camp <- sample(1:n,size=50,replace=TRUE)


n<-length(camp)
c<-ncol(data)
for(i in 1:n){
      t<-camp[i]
    for(k in 1:c){
    campione[i,k]<-data[t,k]}
}

Answer 1

您不需要使用循环。你只需要从主矩阵中随机选择一行：

mat = matrix(runif(2000),ncol=20)

sample_matrix = mat[sample(1:nrow(mat),50),]