I'm working on this problem: The first person rolls 1 of 3 die and then a second person rolls 1 of the remaining 2 die. The die are 6 sided but with random numbers on each side (the numbers corresponding to each dice are listed in the sample for that dice).

```
approximated.probability.that.c1.wins <- function(n, k, c1, c2){

    red <- replicate(k, sum(sample(c(3,3,3,3,3,6), n)))
    yellow <- replicate(k, sum(sample(c(2,2,2,5,5,5), n)))     
    green <- replicate(k, sum(sample(c(1,4,4,4,4,4), n))) 

    return(sum(c1 > c2))
}

approximated.probability.that.c1.wins(1, 1000, red, green)

```

My function works when I replace `c1` and `c2` with the vectors in the function like `sum(red > green)`. However, when I run the function as is, it returns the error `"object 'red' not found"`. The goal would be to replace `c1` and `c2` with whatever colors I define when calling the function.