我公平的骰子模拟不输出1到6之间的10个随机数

Question

我已经创建了一个公平的骰子模拟，但是当我运行它时，只有一个元素存储在10个中。我需要所有10个元素都有1到6之间的随机数。

dice<-function(n){

a<-numeric(n)

for(m in 1:n){

b=sample(1:6, size = n, replace = TRUE)

}
if(1==b){
a[m]<-1
}

else if(2==b){
a[m]<-2
}
else if(3==b){
a[m]<-3
}
else if(4==b){
a[m]<-4
}
else if(5==b){
a[m]<-5
}
else if(6==b){
a[m]<-6
}
a
}


x<-dice(10)

我期望输出：5361324164，但实际输出是：0000000003