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)
# \donttest{
GB09_al <- twod_cow(sample_chrom = GB09, ref_chrom = GB08,
segments = c(20, 40), max_warp = c(2, 8))
# }
Run the code above in your browser using DataLab