if (FALSE) {
# Define arguments
fastx_input <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R1.fq")
fastx_output <- NULL
output_format <- "fastq"
sample_size <- 10
# Subsample sequences and return a FASTQ tibble
subsample_R1 <- vs_fastx_subsample(fastx_input = fastx_input,
fastx_output = fastx_output,
output_format = output_format,
sample_size = sample_size)
# Subsample sequences and write subsampled sequences to a file
vs_fastx_subsample(fastx_input = fastx_input,
fastx_output = "subsample.fq",
output_format = output_format,
sample_size = sample_size)
}
Run the code above in your browser using DataLab