# \dontshow{
options(gmax.processes = 2)
# }
gdb.init_examples()
intervs1 <- gintervals.2d(
1, (1:4) * 200, (1:4) * 200 + 100,
1, (1:4) * 300, (1:4) * 300 + 200
)
intervs2 <- gintervals.2d(
"X", (7:10) * 100, (7:10) * 100 + 50,
2, (1:4) * 200, (1:4) * 200 + 130
)
intervs <- rbind(intervs1, intervs2)
gtrack.2d.create(
"test_rects", "Test 2d track", intervs,
runif(dim(intervs)[1], 1, 100)
)
gextract("test_rects", .misha$ALLGENOME)
gtrack.rm("test_rects", force = TRUE)
Run the code above in your browser using DataLab