R array job