This is the code and is not working as intended, the code is suposed to tell me if there is any adjacente NA values in a given column and how many. This is done by checking if a current value is NA and if the previous is NA as well, if this is the case, the will be a counter that will be registering this and saving the count in a new matrix, so at the end i will only search for the biggest value in every column and i will know how long is the longest chain of NA values.

#datos is the name of a matrix from excel

# this part is to obtain the dimensions of the matrix

filas <- nrow(datos)

columnas <- ncol(datos)

#Creating a matrix to save the results

resultado <- matrix(0, nrow=filas, ncol=columnas)

# counter at 0

contador <- matrix(0, 1, 1)

#going for every column

for (i in 1:columnas) {

# going down at the current column

for (j in 1:filas) {

# verifying if the current value is NA

if (is.na(datos[j,i])) {

contador[1,1]<-1

# verifying if the preious value is NA

if (j > 1 && is.na(datos[j-1,i])) {

# if the previous value is NA, +1 to the counter

contador[1,1] <- contador[1,1] + 1

} else {

# if is not, counter restarts at 1

contador[1,1] <- 1

}

} else {

# if the value is not NA, restart the counter at cero

contador[1,1] <- 0

}

# savinf every value to the results matrix

resultado[j,i] <- contador[1,1]

}

}

# show the matrix with the results

print(resultado)

I hope that my idea is clearly explained here.