From a vector of 18 text values I want to generate 153 pairs where none of the pairs are identical. Is there a way to do this with the sample function?

I've included what I've got so far below, it's basic now, I just want to know how to build on it to get the function I want

```
#vector of species included in the survey
rewildingspps<c("lynx","wolf","wildcat","bison","beaver","moose","boar","owl","goshawk","osprey","nightheron","pelican","spoonbill","stork","eagle","bustard","crane","capercaillie")

#sample- will pick 2 species randomly from the rewildingspps vector
sample(rewildingspps,2)

```