A result of Behrstock and Minsky (cf. Hamenstadt too) implies that the rank of mapping class groups is the maximal rank of abelian subgroups, which is $3g+p-3$ for a connected hyperbolic surface of genus $g$ with $p$ boundary components. The rank of Teichmuller space with respect to the Weil-Petersson metric they show is $\lfloor \frac{3g+p-2}{2}\rfloor &lt; 3g-3+p$, so there is no q.i. embedding of the mapping class group to Teichmuller space with the Weil-Petersson metric. 

On the other hand, Eskin-Masur-Rafi show that the rank of the Teichmuller metric is equal to that of the mapping class group. They point out that the orbit of a point under the mapping class group is not a quasi-isometric embedding. But this leaves open whether there might be a non-equivariant q.i. embedding. 

Quasi-isometric embeddings of the mapping class group into the Teichmuller space
I am encountering really strange behavior: I wrote a function that plots values some data. After executing the code the resulting plot has the red 'error' colour, but only momentarily (maybe 0.1 sec). There is no error message, so the plot seems fine. However, when I export the graphic, the red colour is exported too. There seems no way to get the graphic without the red.

I am (in this case) not interested in what caused the error message but want to export the graphic without te red colour. Does anyone know how to do this?
I tried using Quiet[] but that did not help.



My code:

 PlotBetaCI[whole_,everyminute_]:=
        Module[
        {len,linearmodels,betas,lows,highs},

        len=Length[everyminute];

        linearmodels=Quiet@LinearModelFit[Transpose[{#,whole}],x,x]&amp;/@everyminute;

        betas=Transpose[{Range[len],#["ParameterConfidenceIntervalTableEntries"][[2,1]]&amp;/@linearmodels}];

        lows=Transpose[{Range[len],#["ParameterConfidenceIntervalTableEntries"][[2,3,1]]&amp;/@linearmodels}];

        highs=Transpose[{Range[len],#["ParameterConfidenceIntervalTableEntries"][[2,3,2]]&amp;/@linearmodels}];

        ListPlot[{betas,Sequence@@Transpose[{lows,highs}]},Joined-&gt;{False,Sequence@@ConstantArray[True,len]},PlotStyle-&gt;Black,PlotMarkers-&gt;{Graphics[{Line[{{-1,-1},{1,1}}],Line[{{-1,1},{1,-1}}]},ImageSize-&gt;10],Sequence@@ConstantArray[Graphics[{Line[{{0,0},{0.04,0}}]},ImageSize-&gt;10],len]},ImageSize-&gt;Large,PlotRange-&gt;{Automatic,{Automatic,1.5}}]
    ]


The command to actually plot is (this produces the plot I am talking about)

PlotBetaCI[rmssd, everyminutermssd]


rmssd is a list of values. everyminutermssd has the same length, but depth 10.
