The following generative DAG models a real-world car wash where every car receives the pre-wash and wash services, but only a percentage of the cars gets the Rain X service (please note this percentage MAY change on each attempt of the question - BE CAREFUL!). Rain X Proc Time Select Rain X rainTime ~ uniform(1,2) rainFlag - bernoulli(0.6) Rain X Treatment Wash Prewash X = rainFlag * rainTime B ~ uniform(2,3) A ~ uniform(1,2) Car Processing Time C=A+B+X Observations i [4000] Write R code using runifl) and causact::rbern() to follow the above generative recipe that will generate 4000 draws (i.e. realizations} of the "C" random variable representing the processing time of an individual car. Of the 4,000 draws you have generated, what percentage of the draws have a car processing time GREATER than 6 minutes? Enter your percentage as a decimal with three signicant digits (e.g. enter 0.342 for 34.2%). Since there is some randomness in your result, a range of answers are being accepted