my_c_seq <- seq(0.3, 0.54, 0.03)
print(my_c_seq)
[1] 0.30 0.33 0.36 0.39 0.42 0.45 0.48 0.51 0.54
my_c_seq[6] == 0.45
[1] FALSE
my_c_seq[6]-0.45
[1] -5.551115e-17
seq()居然有浮点位数的差异。。。。。导致我用的界值不是想要的界值。细想这个Bug涉及了以前所有的计算内容。惊掉了下巴
竟然要用这个才行：
seq(0.3, 0.54, 0.03) %>% round(2)
