if (FALSE) #VLF analysis
data(birds)
bird_vlfAnalysis <- vlfFun(birds)
#Amino Acid analysis
data(birds_aminoAcids)
bird_aaAnalysis <- aminoAcidFun(birds_aminoAcids)
#Concordance analysis
bird_Concordance <- concordanceFun(bird_vlfAnalysis$VLFmatrix, bird_aaAnalysis$VLFmatrix, 648, 216,
bird_aaAnalysis$modal)
Run the code above in your browser using DataLab