现在 输出的值是一百个2，各位大神怎么修改呢，有没有其他办法代替啊， k[d]=m[i]+n[j]这一步最好保存，我要替换成替他公式
a=seq(.1, 1, 0.1)
length(a)
b=seq(.1, 1, 0.1)
length(b)

k<-array()
m<-array()
n<-array()

p=length(a)*length(b)
p

for(d in 1:p){
   for(i in 1:length(a))
     {
    m[i]<-a[i]
   for(j in 1:length(b)){  
    n[j]<-b[j] }  #双循环
      k[d]=m[i]+n[j]
}
k