# \donttest{
library(colorRamps)
GB08_fl <- system.file("extdata", "08GB.cdf", package = "RGCxGC")
GB08 <- read_chrom(GB08_fl, 5L)
plot(GB08, nlevels = 150, color.palette = matlab.like,
main = "No dephased chromatogram")
GB08_d25 <- dephase_chrom(GB08, 25)
plot(GB08_d25, nlevels = 150, color.palette = matlab.like,
main = "25% dephased chromatogram")
# }
Run the code above in your browser using DataLab