sampling code snippets in r

how to do bootstrap to get variances in r