## Locate input FASTA file------------------------------------------------------------------------
fastafilepath <- system.file("extdata", "badend.fasta", package = "longreadvqs")
## Prepare data for viral quasispecies comparison using 10% cut-off across all positions----------
nocustom <- vqsassess(fastafilepath, pct = 10, label = "nocustom")
## Prepare data using 10% cut-off for the first 74 positions and 30% cut-off for the rest---------
custom <- vqscustompct(fastafilepath, pct = 10,
brkpos = c("1:74","75:84"), lspct = c(10,30), label = "custom")
## Use "snvcompare" function to check whether SNV profile looks better or not---------------------
snvcompare(samplelist = list(nocustom, custom), ncol = 1)
Run the code above in your browser using DataLab