This function accepts a GRanges input of CpG islands that can be derived from UCSC table browser and rtracklayer::import(yourbed.bed). It resizes the inteval to create 4kb flanking open sea regions around the CpG islands as defined by Fortin and Hansen (Genome Biology, 2015).