> df
         a         b
1 73.64276  137988.8
2 60.74262 1281541.4
3 44.66888 1038862.2
4 39.40455 2422216.5

test <- aov (df$a ~ df$b, data = df)
summary (test)

            Df Sum Sq Mean Sq F value Pr(>F)
df$b         1  507.6   507.6   4.568  0.166
Residuals    2  222.3   111.1