Convert Currencies Using Historical Exchange Rates

Convert historical data to different currencies using the historical exchange rate.

In[1]:=

JapanExpenditurePerStudentInUSDollars = \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ = "Japan", 
       WolframAlphaClient`Private`boxes$$ = 
       TemplateBox[{"\"Japan\"", 
RowBox[{"Entity", "[", 
RowBox[{"\"Country\"", ",", "\"Japan\""}], "]"}], 
         "\"Entity[\\\"Country\\\", \\\"Japan\\\"]\"", "\"country\""},
         "Entity"], WolframAlphaClient`Private`allassumptions$$ = {}, 
       WolframAlphaClient`Private`assumptions$$ = {}, 
       WolframAlphaClient`Private`open$$ = {1, 2}}, 
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1, 
Dynamic[WolframAlphaClient`Private`query$$], 
Dynamic[WolframAlphaClient`Private`boxes$$], 
Dynamic[WolframAlphaClient`Private`allassumptions$$], 
Dynamic[WolframAlphaClient`Private`assumptions$$], 
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{124., {10., 18.}},
TrackedSymbols:>{
         WolframAlphaClient`Private`query$$, 
          WolframAlphaClient`Private`boxes$$, 
          WolframAlphaClient`Private`allassumptions$$, 
          WolframAlphaClient`Private`assumptions$$, 
          WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)[
   EntityProperty["Country", 
    "ExpenditurePerStudent", {"CurrencyUnit" -> "CurrentUSDollar", 
     "EducationLevel" -> "Primary", 
     "Date" -> Interval[{DateObject[{1980}], DateObject[{2014}]}]}]];

In[2]:=