#Input files
if (FALSE) {
fasta_input <- system.file("extdata", "Example_aa.fasta", package="SeqFeatR")
assocpair_result <- system.file("extdata", "assocpair_results.csv", package="SeqFeatR")
tree_input <- system.file("extdata", "Example_tree.nh", package="SeqFeatR")
#Usage
foundereffectfinder(
path_to_file_sequence_alignment=fasta_input,
path_to_file_assocpair_csv_result=assocpair_result,
path_to_file_nexus_tree=tree_input,
save_name_csv="foundereffectfinder_result.csv",
threshold=7)
}Run the code above in your browser using DataLab