R语言.写code的问题Q1:cumsum(x)是什么意思?Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.Q3:有个电器有两部分.他们失败时间是独
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 21:02:41
![R语言.写code的问题Q1:cumsum(x)是什么意思?Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.Q3:有个电器有两部分.他们失败时间是独](/uploads/image/z/8095590-54-0.jpg?t=R%E8%AF%AD%E8%A8%80.%E5%86%99code%E7%9A%84%E9%97%AE%E9%A2%98Q1%EF%BC%9Acumsum%28x%29%E6%98%AF%E4%BB%80%E4%B9%88%E6%84%8F%E6%80%9D%3FQ2%EF%BC%9A%E6%A8%A1%E6%8B%9F+5%E4%B8%87%E4%B8%AA+exponential+%E9%9A%8F%E6%9C%BA%E6%95%B0%E6%98%AFrate+%E4%B8%89.%E6%89%BEproportion+of+%E8%BF%99%E4%BA%9B%E6%95%B0+which+%E6%98%AF%E5%B0%8F%E4%BA%8E%E4%B8%80.%E6%88%91%E5%8F%AA%E4%BC%9Arexp%2850000m+rate%3D3%29.%E4%B9%8B%E5%90%8E%E4%B8%8D%E4%BC%9A%E4%BA%86.Q3%3A%E6%9C%89%E4%B8%AA%E7%94%B5%E5%99%A8%E6%9C%89%E4%B8%A4%E9%83%A8%E5%88%86.%E4%BB%96%E4%BB%AC%E5%A4%B1%E8%B4%A5%E6%97%B6%E9%97%B4%E6%98%AF%E7%8B%AC)
R语言.写code的问题Q1:cumsum(x)是什么意思?Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.Q3:有个电器有两部分.他们失败时间是独
R语言.写code的问题
Q1:cumsum(x)是什么意思?
Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.
Q3:有个电器有两部分.他们失败时间是独立exponential随机变量.第一部分是三个月失败的mean 时间,第二部分是六个月失败的.这电器会停止当其中一部分失败.用模拟去估算电器停止时间的mean和variance.那这个应该怎样写?
非常感谢先.
R语言.写code的问题Q1:cumsum(x)是什么意思?Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.Q3:有个电器有两部分.他们失败时间是独
q1 cum sum = cumulative sum 比如 cumsum(1:4) ==> 1,3,6,10
q2 v<-rexp(50000,3)
prop<-length(v[v<1])/length(v)
q3 我不会模拟法,我觉得应该是这样的
randnum = 50000
a <- rexp(randnum , 1/3)
b <- rexp(randnum , 1/6)
c <- vector(length = randnum)
for (i in 1:randnum){
c[i] = min(a[i], b[i])
}
hist(c) ## 可以看到,c也应该大概是个exp分布
## 然后应该曲线拟合,然后再求rate吗?我不清楚
mean(c)
sd(c)