R/msn2xcms.R

In sneumann/MetShot: High throughput prioritized acquisition and processing of tandem mass spectra

msn2xcms <-
function(xmsn) {
    x <- xmsn
                                        # BROKEN
    x@tic <- x@msnAcquisitionNum
                                        # Fake time in secs
    x@scantime <- x@msnRt
    x@acquisitionNum <- x@msnAcquisitionNum
    x@scanindex <- x@msnScanindex

    x@env$mz <- x@env$msnMz
    x@env$intensity <- x@env$msnIntensity
    invisible(x)
}