if (check.binary("bedtools")) {
index <- get.example.regions();
a <- index[[1]];
b <- index[[2]];
a.sort <- bedr.sort.region(a);
b.sort <- bedr.sort.region(b);
d <- bedr.join.region(a.sort, b.sort);
}
Run the code above in your browser using DataLab