New in Wolfram Mathematica 7: Current & Historical Weather Data ◄ previous | next ►
Model Climate Change
Trend in yearly average temperature based on a linear fit of mean data between 1975 and 2007.
In[1]:=

Click for copyable input
temps = WeatherData["KHOU", 

   "MeanTemperature", {{1975}, {2007}, "Year"}];
In[2]:=

Click for copyable input
fit = LinearModelFit[{#1[[1]], #2} & @@@ temps, {1, year}, year];
In[3]:=

Click for copyable input
DateListPlot[{temps, {{#}, fit[#]} & /@ temps[[All, 1, 1]]}, 

 Joined -> {False, True}, PlotStyle -> Thick, PlotRange -> All]
Out[3]=