assigning the values of alpha
alpha_init_0 <- matrix(0,dias,2)
for(i in 1:dias){
for(j in 1:2){if(count_init_0[i,j] == 0){alpha_init_0[i,j] = 3} }
if ((count_init_0[i,1] == min(count_init_0[i,])) & (count_init_0[i,1] != 0)){
if(alpha_init_0[i,1] == 0){alpha_init_0[i,1] = 4
if(alpha_init_0[i,2] == 0){alpha_init_0[i,2] = 8}} }
if ((count_init_0[i,1] == max(count_init_0[i,])) & (count_init_0[i,2] != 0)){
if(alpha_init_0[i,1] == 0){alpha_init_0[i,1] = 8
if(alpha_init_0[i,2] == 0){alpha_init_0[i,2] = 4}} }
if ((count_init_0[i,1] == min(count_init_0[i,])) & (count_init_0[i,1] == 0)){
if(alpha_init_0[i,2] == 0){alpha_init_0[i,2] = 8} }
if ((count_init_0[i,1] == max(count_init_0[i,])) & (count_init_0[i,2] == 0)){
if(alpha_init_0[i,1] == 0){alpha_init_0[i,1] = 8} }
}