counting the numbers of ones and zeros in each row
count_init_0 <- matrix(0, dias, 2)
for(i in 1:dias){
for(j in 1:anos){
if(ozonio_sw[i,j] == 0){count_init_0[i,1] = count_init_0[i,1] + 1} }
count_init_0[i,2] = anos - count_init_0[i,1]}