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