storing the number of mbase in row i in the vector s[day, mbase]

n\_m0 <- matrix(0, (dias - K), 2^K) # matrix counting m -> 0 n\_m1 <- matrix(0, (dias - K), 2^K) # matrix counting m -> 1
