fixed R sparse test