高校数学の質問スレ（医者・東大卒専用） Part438 (991ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

562: 01/14(火)06:30 ID:6B9y8ZmQ(1) AAS
rm(list=ls())
library(fitdistrplus)

solve=\(hours){
noro=c(
runif(2,21,24),
runif(2,25,28),
runif(16,29,32),
runif(16,33,36),
runif(14,37,40),
runif(2,41,44),
runif(5,45,48)
)
#hist(noro)
distr=c("norm","lnorm","gamma","weibull")
aic=NULL
for(i in 1:length(distr)) aic=c(aic,gofstat(fitdist(noro,distr[i]))$aic)
fitted=distr[which.min(aic)]

fit=fitdist(noro,"fitted")
# plot(fit)
par=fit$estimate
#hist(noro,freq=F,main='Noro Virus incubation',col=4,axes=FALSE,xlab='hours',ylab='') ; axis(1)
#curve(dgamma(x,par[1],par[2]),add=TRUE)

#curve(dgamma(x,par[1],par[2]),0,5*24)

pgamma(hours,par[1],par[2],lower.tail = FALSE)
}

solve(48)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ

---

ぬこの手 ぬこTOP 0.037s