浮点精度问题。这个是基础的编程问题，浮点数之间比较不允许用== 用sprintf打印a和b，就会发现不同了：
> sprintf("%.20f", a)
[1] "30.00000000000000355271"
> sprintf("%.20f", b)
[1] "30.00000000000000000000"

一般来说，浮点数比较只有在一个情况下才允许用==，就是仅用于直接赋值的情况，例如
a <- 25.99999
b <- 25.99999
> g == h
[1] TRUE

其他情况下，要比较浮点数，需要这么做：
> abs(a-b) < 0.0001
[1] TRUE

就是说，允许一定精度内的误差。楼主明白了吧？

谢谢，明白了a与b的不同。
但是照你所说，那是什么原因导致了精度不同呢？类似于你的方法，在查看T*(1 - 0.3) 与T*(1 - 0.7)的精度时，结果如下：
> sprintf("%.30f", T*(1- 0.3))
[1] "70.000000000000000000000000000000"
> sprintf("%.30f", T*(1- 0.7))
[1] "30.000000000000003552713678800501"
而：
> sprintf("%.30f", 0.3)
[1] "0.299999999999999988897769753748"
> sprintf("%.30f", 0.7)
[1] "0.699999999999999955591079014994"
那这是什么原因呢？

因为计算机使用二进制保存这些数据，转换为十进制会有误差

因为计算机使用二进制保存这些数据，转换为十进制会有误差

使用二进制这我知道，转换为十进制有误差也能理解，但是0.3、0.7有误差，怎么乘100之后有的有误差，有的误差就没有了呢？
> sprintf("%.40f", 100*0.3)
[1] "30.0000000000000000000000000000000000000000"
> sprintf("%.40f", 100*(1-0.7))
[1] "30.0000000000000035527136788005009293556213"
导致这种结果出现的原因是什么？