# COMPARED TO EMBOSS:HMOMENT
# http://emboss.bioinformatics.nl/cgi-bin/emboss/hmoment
# SEQUENCE: FLPVLAGLTPSIVPKLVCLLTKKC
# ALPHA-HELIX ANGLE=100 : 0.56
# BETA-SHEET ANGLE=160 : 0.25
# ALPHA HELIX VALUE
hmoment("FLPVLAGLTPSIVPKLVCLLTKKC",100)
# [1] 0.56
# BETA SHEET VALUE
hmoment("FLPVLAGLTPSIVPKLVCLLTKKC",160)
# [1] 0.25
Run the code above in your browser using DataLab