assigning the same values of alpha_init_0[1,i] to alpha_init_1[i]
alpha_init_1 <- matrix(0,1,2)
for(j in 1:2){alpha_init_1[j]= alpha_init_0[1,j]}
#############