transforming the k-dimensional initial vector into an integer number
for(j in 1:anos){
for(l in 0:(K-1)){
mbase_init[j] = mbase_init[j] + ozonio_sw[1+l,j]*2^l}