Commit 33107f74 authored by daniel.eilertz's avatar daniel.eilertz
Browse files

Stuff

parent c19ee385
get_unirt <- function(samplefile, prm) {
# read first file to get RT prm$timerange
mz <- mzR::openMSfile(samplefile)
nowtic <- mzR::tic(mz)
prm$timerange[1] <- min(c(prm$timerange[1], nowtic[,1] ))
prm$timerange[2] <- max(c(prm$timerange[2], nowtic[,1] ))
# create unified rt vector with leading 0
prm$unirt <- seq(from=(prm$timerange[1]), to=(prm$timerange[2]), by=(1/(prm$samplingfrequency*60)) )
prm$nscan <- length(prm$unirt)
prm
}
\ No newline at end of file
}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment