Ache o efeito da inflação no preço de gêneros alimentícios 

Qual seria hoje o preço de gêneros alimentícios se seus preços tivessem sofrido uma inflação igual a de todos os demais produtos?

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]=