## Load the example data base from the GenomicFeatures vignette
library('GenomicFeatures')
samplefile <- system.file('extdata', 'hg19_knownGene_sample.sqlite',
package='GenomicFeatures')
txdb <- loadDb(samplefile)
## Generate genomic state object, only for chr6
sampleGenomicState <- makeGenomicState(txdb, chrs='chr6')
## Not run:
# ## Create the GenomicState object for Hsapiens.UCSC.hg19.knownGene
# library('TxDb.Hsapiens.UCSC.hg19.knownGene')
# txdb <- TxDb.Hsapiens.UCSC.hg19.knownGene
#
# ## Creating this GenomicState object takes around 8 min for all chrs and
# ## around 30 secs for chr21
# GenomicState.Hsapiens.UCSC.hg19.knownGene.chr21 <-
# makeGenomicState(txdb=txdb, chrs='chr21')
#
# ## For convinience, this object is already included in derfinder
# library('testthat')
# expect_that(GenomicState.Hsapiens.UCSC.hg19.knownGene.chr21,
# is_equivalent_to(genomicState))
#
# ## Hsapiens ENSEMBL GRCh37
# library('GenomicFeatures')
# ## Can take several minutes and speed will depend on your internet speed
# xx <- makeTxDbPackageFromBiomart(version = '0.99', maintainer = 'Your Name',
# author='Your Name')
# txdb <- loadDb(file.path('TxDb.Hsapiens.BioMart.ensembl.GRCh37.p11', 'inst',
# 'extdata', 'TxDb.Hsapiens.BioMart.ensembl.GRCh37.p11.sqlite'))
#
# ## Creating this GenomicState object takes around 13 min
# GenomicState.Hsapiens.ensembl.GRCh37.p11 <- makeGenomicState(txdb=txdb,
# chrs=c(1:22, 'X', 'Y'))
#
# ## Save for later use
# save(GenomicState.Hsapiens.ensembl.GRCh37.p11,
# file='GenomicState.Hsapiens.ensembl.GRCh37.p11.Rdata')
# ## End(Not run)
Run the code above in your browser using DataLab