In[406]:=

SetDirectory["/Users/beerli/src/bayes-diverge"]

Out[406]=

/Users/beerli/src/bayes-diverge

In[408]:=

d1 = ReadList["result.testdata.0.00001-0.05-0.11-0", {Number, Number}] ;

In[409]:=

dj = ReadList["result.testdata.0.00001-0.05-0.11-0-jeffreys", {Number, Number}] ;

In[414]:=

Max[d1]

Out[414]=

11.220184543019527722999999999989778`19.301

In[428]:=

g1 = ListPlot[Map[{#[[1]], #[[2]] - Max[Transpose[d1][[2]]]} &, d1], PlotJoined -> True]

[Graphics:HTMLFiles/index_8.gif]

Out[428]=

-Graphics -

In[429]:=

g2 = ListPlot[Map[{#[[1]], #[[2]] - Max[Transpose[dj][[2]]]} &, dj], PlotStyle -> RGBColor[1, 0, 0], PlotJoined -> True]

[Graphics:HTMLFiles/index_11.gif]

Out[429]=

-Graphics -

In[431]:=

Show[g1, g2, PlotRange -> {{0, 0.7}, {0, -4}}]

[Graphics:HTMLFiles/index_14.gif]

Out[431]=

-Graphics -

Converted by Mathematica  (June 11, 2003)