#' Function to do peak filling (xcms) with restored RT values
#'
#'
#'
#' @param xcmsObject XCMS object to be peak filled
#' @param unStructureBatchesObject XCMS object after retrieved after the unStructureBatches function
#'
#'
#' @return xcmsObject A peak filled xcms object
#'
#' @author Charlie Beirnaert, \email{charlie.beirnaert@@uantwerpen.be}
#'
#' @importFrom xcms fillPeaks
#'
#' @export
batchPeakFilling <- function(xcmsObject, unStructureBatchesObject){
xcmsObject@rt$raw = unStructureBatchesObject@rt$Original_raw
xcmsObject.peakfilled = xcms::fillPeaks(xcmsObject)
return(xcmsObject.peakfilled)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.