if (require("GenomicRanges", "airway")) {
data(airway)
# GRangesList object
air_gr <- rowRanges(airway)
tidy(air_gr)
glance(air_gr)
# GRanges object
air_gr <- rowRanges(airway)@unlistData
tidy(air_gr)
glance(air_gr)
}
Run the code above in your browser using DataLab