|
...
|
...
|
@@ -58,8 +58,8 @@ setMethod("header", c("mzRnetCDF", "numeric"), function(object, scans) {
|
|
58
|
58
|
result <- data.frame(
|
|
59
|
59
|
seqNum=scans,
|
|
60
|
60
|
acquisitionNum=scans,
|
|
61
|
|
- msLevel=rep(1, length(scans)),
|
|
62
|
|
- polarity = empty_val,
|
|
|
61
|
+ msLevel = rep(1L, length(scans)),
|
|
|
62
|
+ polarity = -1L,
|
|
63
|
63
|
peaksCount=rep(1, length(scans)),
|
|
64
|
64
|
totIonCurrent=netCDFVarDouble(object@backend, "total_intensity")[scans],
|
|
65
|
65
|
retentionTime=netCDFVarDouble(object@backend, "scan_acquisition_time")[scans],
|
