Mathematica programmal kapcsolatban segítség jól jönne!?

Most kezdtem el csak használni a programot, úgyhogy jó lenne, ha a negatív vélemények nem jönnének.

Magában a programban nem is nagyon megy ez az In Out dolog, de most nem is ez lenne a sürgős, hanem az, hogy Kernelben frankón összehoztam a dolgot, csak nem akarja kirajzolni valamiért a függvényt.

Mathematica 8.0 for Microsoft Windows (32-bit)

Copyright 1988-2010 Wolfram Research, Inc.

In[1]:= data = {{3, 0.9926}, {6, 0.5725}, {9, 0.4457}, {12, 0.3397}, {15, 0.3193}};

In[2]:= lm = LinearModelFit[data, x, x]

Out[2]= FittedModel[Panel[1.00778 - 0.0526467 x, FrameMargins -> 5]]

In[3]:= Normal[lm]

Out[3]= 1.00778 - 0.0526467 x

In[4]:= lm[2.3]

Out[4]= 0.886693

In[5]:= Show[ListPlot[data], Plot[lm[x], {x, 0, 5}], Frame -> True]

Out[5]= -Graphics-

és a végén csak azt írja ki, hogy graphics, nem rajzol. hogyan lehet ezen segíteni?