# NOT RUN {
my_protein_df <- read_faa(system.file("extdata/bat_protein.fasta", package = "ampir"))
calculate_features(my_protein_df)
## Output (showing the first six output columns)
# seq_name Amphiphilicity Hydrophobicity pI Mw Charge ....
# [1] G1P6H5_MYOLU 0.4145847 0.4373494 8.501312 9013.757 4.53015 ....
# }
Run the code above in your browser using DataLab