#Input file
if (FALSE) {
fasta_input <- system.file("extdata", "Example_aa.fasta", package="SeqFeatR")
#Usage
assocpairfeat(
path_to_file_sequence_alignment=fasta_input,
save_name_csv="assocpairfeat_results.csv",
dna=FALSE,
patnum_threshold=1,
significance_level=0.05,
A11=10,
A12=11,
A21=13,
A22=14,
B11=17,
B12=18,
B21=20,
B22=21,
multiple_testing_correction="bonferroni")
}
Run the code above in your browser using DataLab