早教吧作业答案频道 -->数学-->
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.那这个应该怎样写?
非常感谢先.
Q1:cumsum(x)是什么意思?
Q2:模拟 5万个 exponential 随机数是rate 三.找proportion of 这些数 which 是小于一.我只会rexp(50000m rate=3).之后不会了.
Q3:有个电器有两部分.他们失败时间是独立exponential随机变量.第一部分是三个月失败的mean 时间,第二部分是六个月失败的.这电器会停止当其中一部分失败.用模拟去估算电器停止时间的mean和variance.那这个应该怎样写?
非常感谢先.
▼优质解答
答案和解析
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)
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)
看了 R语言.写code的问题Q1...的网友还看了以下:
英语翻译right小练习④将下列句子译成英文1)记住在马路的尽头向右转.2)这个不是正确答案.3) 2020-04-08 …
1964年,日本东京成功举办了奥运会。2008年,中国北京也成功举办了奥运会。你知道这两次奥运会分 2020-05-13 …
中国儒家和道家的理想社会分别是什么 2020-05-16 …
细胞什么时候会分裂?是时间长了,快死亡时分裂,还是怎么样? 2020-05-17 …
关于信用的说法,错误的是( )。A.社会分工是信用产生的前提条件之一B.实物借贷和货币借贷是信用存 2020-05-30 …
有时候我们的社会更像是亿万孤独的海鸥组成的群体.有时候我们的社会更像是亿万孤独的海鸥组成的群体,人 2020-06-05 …
有时候我们的社会更像是亿万孤独的海鸥组成的群体……有时候我们的社会更像是亿万孤独的海鸥组成的群体, 2020-06-05 …
地球与月球是排斥的还是吸引的?月球与地球中间是有一种什么力量让它们不会分开.是地球的啦引力,还是相 2020-06-16 …
湖南省的简称和省会分别是()A.蜀、湘潭B.琼、株洲C.湘、长沙D.赣、岳阳 2020-06-21 …
贵州省的简称和省会分别是()A.桂、南昌B.黔、昆明C.贵、贵阳D.黔、桂林 2020-07-01 …