inst/examples/basic_plotting.R

In mariev/chromatoplotsgui: Interactive graphics and interface for chromatoplots

setwd('Documents/chromatoplotsgui')
load('data/processed/chromData_xcms.rda')

library(cranvas)
library(xcms)

qplotRaw(chromData_xcms[[1]])
qplotRaw(chromData_xcms[[2]])

library(faahKO)
cdfpath <- system.file("cdf", package = "faahKO")
cdffiles <- list.files(cdfpath, recursive = TRUE, full.names = TRUE)
xr<-xcmsRaw(cdffiles[1])
qplotChrom(chromData_xcms[[1]])



### wip
load('data/processed/chromData_list.rda')
str(chromData_list[[1]])

cdfpath <- system.file("cdf", package = "faahKO")
cdffiles <- list.files(cdfpath, recursive = TRUE, full.names = TRUE)
test <- profRange(xcmsRaw(cdffiles[1], profstep = 0, profmethod = 'intlin'))
range(test$massidx)
test$masslab


test1 <- xcmsRaw('data/raw/treatment_0/IS01.cdf')
test2 <- profRange(test1)
range(test2$massidx)