if (FALSE) {
#Input files
fasta_input <- system.file("extdata", "Example_aa.fasta", package="SeqFeatR")
consensus_input <- system.file("extdata", "Example_Consensus_aa.fasta", package="SeqFeatR")
#Usage
getfreqs(
path_to_file_sequence_alignment=fasta_input,
save_csv="getfreqs_result.csv",
save_png="getfreqs_result.png",
epitope_position_start=1,
epitope_position_end=40,
path_to_file_consensus=consensus_input,
patnum_threshold=1,
A11=10,
A12=11,
A21=13,
A22=14,
B11=17,
B12=18,
B21=20,
B22=21,
one_feature=FALSE)
}Run the code above in your browser using DataLab