使用runif（）和rbern（）的R脚本

这需要使用R脚本解决：使用runif和rbern遵循上述生成配方，生成4000张图纸，即表示单个车辆处理时间的C随机变量的实现。在您生成的4000张图纸中，有多少百分比的图纸的汽车处理时间超过6分钟？以三位有效数字的小数形式输入您的百分比，例如，输入0.342表示34.2%

我只是尝试4画开始，并有这个代码

for (i in 1:4) {   
   rainTime = runif(n=4, min=1, max = 2) 
   Wash = runif(n=4, min=2, max=3)
   A=Wash
   preWash = runif(n=4, min=1, max=2)
   B=preWash
   rainFlag = rbern(4, 0.5)   
   x = rainFlag*rainTime    
   C=A+B+x   
   result =max(C)  
   filter(C,C>6)
   outputMessage = paste0("Result=", result)   
   print(outputMessage) 
}

---

我不知道如何得到C>6分钟的实例，然后再加上一个百分比。从下面的代码中，我确实得到了一次C值超过6分钟的情况。

我能够解决：感谢您的回复

> library("tidyverse") 
> set.seed(111)
> rainTime = runif(n=4000, min=1, max = 2) 
> Wash = runif(n=4000, min=2, max=3)   
> A=Wash   
> preWash = runif(n=4000, min=1, max=2)  
> B=preWash   
> rainFlag = rbern(n=4000, prob=0.5)   
> x = rainFlag*rainTime
> C=A+B+x    
> result =ifelse(C >6, 1,0)   
> count1 = sum(result==1)  
> length(result) 
> proportion6 =  round(sum(result==1)/length(result),3)  
> proportion6

---

你试过什么？告诉我们codeStack Overflow不是为你做功课的oracle。我是R编程的初学者，这就是为什么我在1:4中得到了一些帮助{rainTime=runifn=4，min=1，max=2 Wash=runifn=4，min=2，max=3 A=Wash preWash=runifn=4，min=1，max=2 B=preWash rainFlag=rbern4，0.5x=rainFlag*rainTime C=A+B+x outputMessage=paste0C=，C printoutputMessage}这就是我到目前为止所做的，我刚刚尝试了4张图