Using R to simulate a biased 6 sided dice

Question

In R I want to figure the code to simulate a biased 6 sided die being thrown 44 times. The die is biased in the sense that the number 6 is twice as likely to be thrown as any ot

Answer 1

sample(1:6, size = 44, replace = TRUE, prob = c(rep(1, 5), 2))