nycflights13::flights (jan <-filter(flights,month==1,day==1)) sqrt(2) ^ 2 == 2 1 / 49 * 49 == 1 near(sqrt(2) ^ 2, 2) near(1 / 49 * 49, 1)