\begin{Schunk}
\begin{Sinput}
 par(xpd=TRUE)
 text(bp1,t1,label=round(t1,2), pos=3,cex=0.7,col="black")
\end{Sinput}
\end{Schunk}
