Question

I have generate a matrix by using the following for loop.
And now I am trying to generate a same matrix using while loop but don’t know how to do so.
Can anyone help with this? Thank you so much.

i<- 1
j<- 1
m1<- matrix(0, nrow=5, ncol=5)
for(i in 1:5) {
for(j in i:5) {
m1[i,j]<- (j-i)*2+1
}
}
m1

Answer 1

i <- 1
j <- 1
m1 <- matrix(0, nrow = 5, ncol = 5)
while (i <= 5) {
    while (j <= 5) {
        m1[i, j] <- (j - i) * 2 + 1
        j <- j + 1
    }
    i <- i + 1
    j <- i
}
m1