# NOT RUN {
set.seed(13)
Bvalues <- sample(thrombin.1hai$atom$b, 10)
Bvalues
# [1] 45.73 45.40 20.24 39.30 35.53
# 22.16 35.81 15.35 22.73 21.34
NormalizedBvalue(Bvalues)
# [1] 1.3698 1.3404 -0.9017 0.7968 0.4608
# -0.7306 0.4858 -1.3375 -0.6798 -0.8037
# }
Run the code above in your browser using DataLab