R

In[10]:=

RowBox[{RowBox[{rpts, =, RowBox[{{, RowBox[{RowBox[{{, RowBox[{RowBox[{-, 0.78398}], ,, 0.1777 ... , 0.560981}]}], }}], ,, RowBox[{{, RowBox[{0.477357, ,, RowBox[{-, 0.533106}]}], }}]}], }}]}], ;}]

Created by Mathematica  (October 15, 2003)