# NOT RUN {
##-------------------------------------##
## Loading and saving
## From and to R-image (fast loading)
##-------------------------------------##
ucfile <- system.file("extdata", "hs.ucsc.small.RData", package="refGenome")
uc <- loadGenome(ucfile)
uc
# }
# NOT RUN {
saveGenome(uc, "uc.RData", useBasedir=FALSE)
ucr <- loadGenome("uc.RData")
# }
# NOT RUN {
##-------------------------------------##
## Extract data for Primary Assembly seqids
##-------------------------------------##
ucpa <-extractSeqids(uc, ucPrimAssembly())
# Extract data for indival Genes
ddx <- extractByGeneName(uc,"DDX11L1")
ddx
# Extract range limits of entire Genes
gp <-getGenePositions(uc)
gp
tableFeatures(uc)
extractByGeneName(ucpa, "DDX11L1")
tableTranscript.id(ucpa)
##-------------------------------------##
## Create object from scratch
##-------------------------------------##
# }
# NOT RUN {
uc<-ucscGenome()
basedir(uc) <- "/my/genome/basedir"
# Place all UCSC-files in folder
read.gtf(uc, "knownGene.gtf")
addXref(uc, "kgXref.csv")
addEnsembl(uc, "knownToEnsembl.csv")
addIsoforms(uc, "knownisoforms.csv")
# }
# NOT RUN {
##-------------------------------------##
# }
Run the code above in your browser using DataLab