#Input files
if (FALSE) {
fasta_input <- system.file("extdata", "Example_aa.fasta", package="SeqFeatR")
consensus_input <- system.file("extdata", "Example_Consensus_aa.fasta", package="SeqFeatR")
#Usage
assocpair(
path_to_file_sequence_alignment=fasta_input,
path_to_file_consensus=consensus_input,
save_name_csv="assocpair_results.csv",
dna=FALSE,
significance_level=0.05,
multiple_testing_correction="bonferroni")
}
Run the code above in your browser using DataLab