GB08_fl <- system.file("extdata", "08GB.cdf", package = "RGCxGC")
GB09_fl <- system.file("extdata", "09GB.cdf", package = "RGCxGC")
GB08 <- read_chrom(GB08_fl, 5L)
GB09 <- read_chrom(GB09_fl, 5L)
join_gc <- join_chromatograms(GB08, GB09)
metadata <- data.frame(Names = c("GB08", "GB09"),
Type = c("Control", "Treatment"))
join_metadata <- join_chromatograms(GB08, GB09, groups = metadata)
Run the code above in your browser using DataLab