R отображает 1-действительно маленькое число как 1. Как я могу получить доступ к его фактическому значению?

Question

Если я введу следующее в консоль R:

1 - 3.125e-09

В результате будет напечатано 1.

Однако логический тест покажет, что на самом деле это не 1.

if ( (1-3.125e-09) == 1){
   print('Number is equal to one')
} else {
   print('Number is not one')
}

Как это происходит? Как я могу получить истинное значение? Такое поведение нарушает некоторые функции библиотеки графиков, где общее значение должно составлять до 1.