[過去ログ]
高校数学の質問スレ(医者・東大卒専用) Part438 (1002レス)
上
下
前
次
1-
新
このスレッドは過去ログ倉庫に格納されています。
次スレ検索
歴削→次スレ
栞削→次スレ
過去ログメニュー
562
: 01/14(火)06:30
ID:6B9y8ZmQ(1)
AA×
[240|
320
|
480
|
600
|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
562: [sage] 2025/01/14(火) 06:30:12.29 ID:6B9y8ZmQ 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) http://rio2016.5ch.net/test/read.cgi/math/1723152147/562
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 440 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
ぬこの手
ぬこTOP
0.028s