How to estimate a parameter in R- sample with replace

Hi, thank's for your answer.

I have a somewhat related question here