Problem in generate random samples in r

Hello,

I am trying to generate random samples from the following code

### Setting random seed to always create the same
### Random set of points
set.seed(0)

absences_15000<-absences[sample(nrow(absences), 15000),]
points(absences_15000, cex=0.1)

## Subsample_10000
set.seed(0)

absences_10000<-absences_15000[sample(nrow(absences_15000), 10000),]
dim(absences_10000)

I get the following error:

Error in sample.int(length(x), size, replace, prob) :
  cannot take a sample larger than the population when 'replace = FALSE'

Any advice?

Regards,

Lara

        [[alternative HTML version deleted]]