vcffile <- system.file("extdata/input", "PGA.vcf",package="PGA")
bedfile <- system.file("extdata/input", "junctions.bed",package="PGA")
gtffile <- system.file("extdata/input", "transcripts.gtf",package="PGA")
annotation <- system.file("extdata", "annotation",package="PGA")
outfile_path<-"db/"
outfile_name<-"test"
library(BSgenome.Hsapiens.UCSC.hg19)
dbfile <- dbCreator(gtfFile=gtffile,vcfFile=vcffile,bedFile=bedfile,
annotation_path=annotation,outfile_name=outfile_name,
genome=Hsapiens,outdir=outfile_path)
msfile <- system.file("extdata/input", "pga.mgf",package="PGA")
runTandem(spectra = msfile, fasta = dbfile, outdir = "./", cpu = 6,
enzyme = "[KR]|[X]", varmod = "15.994915@M",
fixmod = "57.021464@C", tol = 10, tolu = "ppm", itol = 0.05,
itolu = "Daltons", miss = 2, maxCharge = 8, ti = FALSE)
Run the code above in your browser using DataLab