set RProfile(i, j) = 1