Probabilities in R programming

Question

I'm solving a probability problem. The question is to calculate the probability of drawing two face cards (Jack, Queen, King) in a row. Simulate a standard deck of 52 cards (no Jokers). Sample two cards from the deck 1000 times (remember, we do not replace the card after drawing). How does the proportion of times two face cards were drawn compare to the probability you calculated? 

I tried this:

 poker <- c(1:10, "J", "Q", "K")

 poker_face <- sample(poker, size = 1000, replace = FALSE)

I'm getting the following error:

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

Answer 1

This should work:

poker_face <- replicate(1000, sample(poker, size =2, replace = FALSE))