## load packages to obtain masked hg38genome and
## pseudoautosomal.hg19 from GWASTools package
if (require(BSgenome.Hsapiens.UCSC.hg38.masked) && require(GWASTools))
{
## extract unmasked regions of all autosomal chromosomes
regions <- unmaskedRegions(BSgenome.Hsapiens.UCSC.hg38.masked,
chrs=paste0("chr", 1:22))
names(regions)
regions$chr1
## adjust chromosome names
pseudoautosomal.hg38
psaut <- pseudoautosomal.hg38
psaut$chrom <- paste0("chr", psaut$chrom)
psaut
## extract unmasked regions of sex chromosomes taking pseudoautosomal
## regions into account
regions <- unmaskedRegions(BSgenome.Hsapiens.UCSC.hg38.masked,
chrs=c("chrX", "chrY"), pseudoautosomal=psaut)
names(regions)
regions$chrX
regions$X.PAR1
## check overlap between X chromosome and a pseudoautosomal region
intersect(regions$chrX, regions$X.PAR1)
}
Run the code above in your browser using DataLab