Encuentre el efecto de la inflación en los precios de abarrotes 

¿Cuál sería el precio de los artículos de abarrotes hoy si sus precios sufrieron inflación al mismo ritmo que todos los demás artículos?

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