powered by
arow(a, i)
a
a <- array(0,c(3,3,2,2)) arow(a,2) (arow(a,1)+arow(a,2)+arow(a,3)+arow(a,4))%%2
Run the code above in your browser using DataLab