Заполнение ячеек матрицы

matrix.R

RStudio

Sat Oct 28 16:05:02 2017

m<-matrix(0,10,10)
diag(m)<-1
for (k in 1:9)
{
  i<-k+1
  while (i <=10) 
  {
    m[i,k]<-2
    i<-i+1
  }
}
m

##       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
##  [1,]    1    0    0    0    0    0    0    0    0     0
##  [2,]    2    1    0    0    0    0    0    0    0     0
##  [3,]    2    2    1    0    0    0    0    0    0     0
##  [4,]    2    2    2    1    0    0    0    0    0     0
##  [5,]    2    2    2    2    1    0    0    0    0     0
##  [6,]    2    2    2    2    2    1    0    0    0     0
##  [7,]    2    2    2    2    2    2    1    0    0     0
##  [8,]    2    2    2    2    2    2    2    1    0     0
##  [9,]    2    2    2    2    2    2    2    2    1     0
## [10,]    2    2    2    2    2    2    2    2    2     1