sequence_bases <- list("ACGT", "ATCG")
quality_scores <- list("IIII", "JJJJ")
sequences <- list(seq1=list(Sequence=sequence_bases[[1]], QualityScore=quality_scores[[1]]),
seq2=list(Sequence=sequence_bases[[2]], QualityScore=quality_scores[[2]]))
tempdir <- tempdir()
write.list_to_fastq(sequences, output_dir = tempdir)
# Write to working directory
# write.list_to_fastq(sequences)
# Write to custom directory
# write.list_to_fastq(sequences, output_dir = "/path/to/directory/")
Run the code above in your browser using DataLab