// Set vectors.
rEngine.assign("scantime", scanTimes);
rEngine.assign("scanindex", scanIndices);
rEngine.assign("mass", masses);
rEngine.assign("intensity", intensities);
// Construct xcmsRaw object
rEngine.eval("xRaw <- new(\"xcmsRaw\")", false);
rEngine.eval("xRaw@tic <- intensity", false);
rEngine.eval("xRaw@scantime <- scantime * " + SECONDS_PER_MINUTE,