Find the Effect of Inflation on Grocery Prices 

What would the price of grocery items be today if their prices had been inflated at the same pace as all items?

In[1]:=

X CostOfGroceries = { {"Granulated Sugar (10 lb)", Quantity[.89, DatedUnit["USDollars", 1962]]}, {"Vitamin D Milk (1 gal)", Quantity[1.04, DatedUnit["USDollars", 1962]]}, {"Ground Coffee (1 lb)", Quantity[.85, DatedUnit["USDollars", 1962]]}, {"Bacon (1 lb)", Quantity[.69, DatedUnit["USDollars", 1962]]}, {"Eggs (1 doz.)", Quantity[.32, DatedUnit["USDollars", 1962]]}, {"Fresh Ground Hamburger (1 lb)", Quantity[.4, DatedUnit["USDollars", 1962]]}, {"Fresh Baked Bread (1 loaf)", Quantity[.21, DatedUnit["USDollars", 1962]]} };

In[2]:=

X Grid[Prepend[ Replace[CostOfGroceries, {item_, cost_} :> {item, InflationAdjust[cost]}, 1], {"Item", "Price in today's $"}], Frame -> All]

Out[2]=