## TESTING GFF3
gffFile <- system.file("extdata","a.gff3",package="GenomicFeatures")
txdb <- makeTranscriptDbFromGFF(file=gffFile,
format="gff3",
exonRankAttributeName=NA,
dataSource="partial gtf file for Tomatoes for testing",
species="Solanum lycopersicum")
if(interactive()) {
saveDb(txdb,file="TESTGFF.sqlite")
}
## TESTING GTF, this time specifying the chrominfo
gtfFile <- system.file("extdata","Aedes_aegypti.partial.gtf",
package="GenomicFeatures")
chrominfo <- data.frame(chrom = c('supercont1.1','supercont1.2'),
length=c(5220442, 5300000),
is_circular=c(FALSE, FALSE))
txdb2 <- makeTranscriptDbFromGFF(file=gtfFile,
format="gtf",
exonRankAttributeName="exon_number",
chrominfo=chrominfo,
dataSource=paste("ftp://ftp.ensemblgenomes.org/pub/metazoa/",
"release-13/gtf/aedes_aegypti/",sep=""),
species="Aedes aegypti")
if(interactive()) {
saveDb(txdb2,file="TESTGTF.sqlite")
}
Run the code above in your browser using DataLab