# NOT RUN {
df <- data.frame(start = 1:10, width = 5, seqnames = "seq1",
strand = sample(c("+", "-", "*"), 10, replace = TRUE), gc = runif(10))
rng <- as_granges(df)
rng %>% summarise(gc = mean(gc))
rng %>% group_by(strand) %>% summarise(gc = mean(gc))
# }
Run the code above in your browser using DataLab