# NOT RUN {
SASA.diff <- FreeSASA.diff(atoms.oi = thrombin.1hai$atom,
probeRadius = 1.4)
head(SASA.diff)
# uniq.atom.ids SASA.prot SASA.hetatm SASA.lost
# 1 THR_1_L_N_1 0.00 0.00 0
# 2 THR_1_L_CA_2 0.00 0.00 0
# 3 THR_1_L_C_3 0.00 0.00 0
# 4 THR_1_L_O_4 0.00 0.00 0
# 5 THR_1_L_CB_5 1.92 1.92 0
# 6 THR_1_L_OG1_6 11.25 11.25 0
#
stem(SASA.diff$SASA.lost)
#
# The decimal point is at the |
#
# 0 | 00000000000000000000000000000000000000000000000000000000000000000000+1721
# 2 | 00000000000001111111111122222222223333333333444444445555555555566666+88
# 4 | 00001111111122222333333333334444444455555566677777777788899999000000+23
# 6 | 00000111111222222222223333444455556666677778889900001112222333334455
# 8 | 001122222333344566777888999001111222223444556667899
# 10 | 000000001233445567888990001333344567899999
# 12 | 00001233334446678800111233344788889
# 14 | 00134448881223589
# 16 | 014466389
# 18 | 0945578888
# 20 | 22347702
# 22 | 246999
# 24 | 09457
# 26 | 44
# 28 | 6
# 30 |
# 32 |
# 34 | 9
# 36 |
# 38 |
# 40 |
# 42 |
# 44 |
# 46 | 9
#
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab