library(Gviz)
anchor.one = GRanges(c("chr1", "chr1", "chr1", "chr1"), IRanges(c(10, 20, 30, 20), width=5))
anchor.two = GRanges(c("chr1", "chr1", "chr1", "chr2"), IRanges(c(100, 200, 300, 50), width=5))
interaction_counts = sample(1:10, 4)
test <- GenomicInteractions(anchor.one, anchor.two, experiment_name="test",
description="this is a test", counts=interaction_counts)
interactions.track = InteractionTrack(name="Test", test, chromosome="chr1")
plotTracks(list(interactions.track), chromosome="chr1", from=0, to=500)
Run the code above in your browser using DataLab