initialisation of the matrices of interest in the case of i not the initial state
mbase <- matrix(0, dias - K, anos) # that is overline{m}
count_Km <- matrix(0, 2^K, 2) # matrix counting the transitions from m
s <- matrix(0, (dias-K), 2^K)