\begin{Schunk}
\begin{Sinput}
 library(boot)
 bpois <- boot(samp, calcMed, R = 1000)
 bpois
\end{Sinput}
\begin{Soutput}
ORDINARY NONPARAMETRIC BOOTSTRAP


Call:
boot(data = samp, statistic = calcMed, R = 1000)


Bootstrap Statistics :
    original  bias    std. error
t1*        3  0.1815   0.3646103
\end{Soutput}
\end{Schunk}
