20/04/07 21:10:10.27 TwUCHcsI.net
ソース不明な数字だけど
"名前：名無しさん＠１周年[sage] 投稿日：2020/04/07(火) 20:29:49.57 ID:GcsEpAfR0 (PC)
他国の総感染者数が今の日本と同程度の時の死者数
イタリア, 感染3089人 死者107人
スペイン, 感染2965人 死者 84人
アメリカ, 感染3499人 死者 64人
イラン , 感染3513人 死者107人
フランス, 感染3661人 死者 79人
日本 , 感染3123人 死者 77人
"
country=c('イタリア','スペイン','アメリカ','イラン','フランス','日本')
infected=c(3089,2965,3499,3513,3661,3123)
dead=c(107,84,64,107,79,77)
df=data.frame(country,dead,infected)
df
re.lm=lm(dead~infected,data=df)
summary(re.lm)
chisq.test(dead,infected)
names(infected)=country
names(dead)=country
pairwise.prop.test(dead,infected)
> chisq.test(dead,infected)
Pearson's Chi-squared test
data: dead and infected
X-squared = 24, df = 20, p-value = 0.2424
Warning message:
In chisq.test(dead, infected) : Chi-squared approximation may be incorrect
> pairwise.prop.test(dead,infected)
Pairwise comparisons using Pairwise comparison of proportions
data: dead out of infected
イタリア スペイン アメリカ イラン フランス
スペイン 1.00000 - - - -
アメリカ 0.00066 0.11005 - - -
イラン 1.00000 1.00000 0.01762 - -
フランス 0.01843 0.79242 1.00000 0.24130 -
日本 0.24724 1.00000 0.79242 1.00000 1.00000
P value adjustment method: holm